diff options
author | Jeff Law <law@gcc.gnu.org> | 1998-09-04 19:11:54 -0600 |
---|---|---|
committer | Jeff Law <law@gcc.gnu.org> | 1998-09-04 19:11:54 -0600 |
commit | b79f73df6aed1b1411b1b505bc5dd48e9ed78609 (patch) | |
tree | e2a997b294961a00f5d259edefbef93b8501c089 /libchill/settextindex.c | |
parent | 1802393487391d209c472f42c92cc2ba4d34469f (diff) | |
download | gcc-b79f73df6aed1b1411b1b505bc5dd48e9ed78609.zip gcc-b79f73df6aed1b1411b1b505bc5dd48e9ed78609.tar.gz gcc-b79f73df6aed1b1411b1b505bc5dd48e9ed78609.tar.bz2 |
* Chill runtime moved into toplevel libchill.
* Makefile.in Revamped due to move. Add multilib support.
* configure.in: Similarly. Use autoconf.
* powerset.h: Do not depend on BITS_PER_UNIT.
From-SVN: r22238
Diffstat (limited to 'libchill/settextindex.c')
-rw-r--r-- | libchill/settextindex.c | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/libchill/settextindex.c b/libchill/settextindex.c new file mode 100644 index 0000000..94b9266 --- /dev/null +++ b/libchill/settextindex.c @@ -0,0 +1,38 @@ +/* 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 +__settextindex( Text_Mode* the_text, + signed long the_text_index, + char* file, + int line ) +{ + if( !the_text ) + CHILLEXCEPTION( file, line, EMPTY, NULL_TEXT ); + + if( the_text_index < 0 + || the_text->access_sub->reclength - 2 < the_text_index ) + CHILLEXCEPTION( file, line, TEXTFAIL, BAD_TEXTINDEX ); + + the_text->actual_index = the_text_index; +} + |