diff options
author | Per Bothner <bothner@gcc.gnu.org> | 1998-08-27 13:51:39 -0700 |
---|---|---|
committer | Per Bothner <bothner@gcc.gnu.org> | 1998-08-27 13:51:39 -0700 |
commit | 615582bce18b80dfdabf651a65b7d6ca0b368451 (patch) | |
tree | 394d33235c68dee2f95d7a121cbdc3c9279e41e4 | |
parent | 3c79b2da6ba52fe9ae2ec45f9ed6774f3366db93 (diff) | |
download | gcc-615582bce18b80dfdabf651a65b7d6ca0b368451.zip gcc-615582bce18b80dfdabf651a65b7d6ca0b368451.tar.gz gcc-615582bce18b80dfdabf651a65b7d6ca0b368451.tar.bz2 |
Migrate from devo/gcc/ch.
From-SVN: r22039
-rw-r--r-- | gcc/ch/runtime/settextaccess.c | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/gcc/ch/runtime/settextaccess.c b/gcc/ch/runtime/settextaccess.c new file mode 100644 index 0000000..014db4a --- /dev/null +++ b/gcc/ch/runtime/settextaccess.c @@ -0,0 +1,39 @@ +/* Implement Input/Output runtime actions for CHILL. + Copyright (C) 1992,1993 Free Software Foundation, Inc. + Author: Wilfried Moser, et al + +This file is part of GNU CC. + +GNU CC is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2, or (at your option) +any later version. + +GNU CC is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with GNU CC; see the file COPYING. If not, write to +the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ + +#include "fileio.h" + +void +__settextaccess( Text_Mode* the_text, + Access_Mode* the_access, + char* file, + int line ) +{ + if( !the_text ) + CHILLEXCEPTION( file, line, EMPTY, NULL_TEXT ); + + if( !the_access ) + CHILLEXCEPTION( file, line, EMPTY, NULL_ACCESS ); + + CLR_FLAG( the_text->access_sub, IO_TEXTIO ); + + the_text->access_sub = the_access; + SET_FLAG( the_access, IO_TEXTIO ); +} |