/[gcl]/gcl/o/read.d
ViewVC logotype

Diff of /gcl/o/read.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by camm, Fri Jun 10 15:27:20 2005 UTC revision 1.33 by camm, Fri Jul 8 06:12:26 2005 UTC
# Line 1  Line 1 
1    /*-*-C-*-*/
2  /*  /*
3   Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa   Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa
4    
# Line 1174  Lsharp_C_reader() Line 1175  Lsharp_C_reader()
1175          x = read_object(vs_base[0]);          x = read_object(vs_base[0]);
1176          if (x == OBJNULL)          if (x == OBJNULL)
1177                  FEerror("No real part.", 0);                  FEerror("No real part.", 0);
1178            if (!realp(x))
1179              TYPE_ERROR(x,TSor_rational_float);
1180          vs_push(x);          vs_push(x);
1181          delimiting_char = code_char(')');          delimiting_char = code_char(')');
1182          x = read_object(vs_base[0]);          x = read_object(vs_base[0]);
1183          if (x == OBJNULL)          if (x == OBJNULL)
1184                  FEerror("No imaginary part.", 0);                  FEerror("No imaginary part.", 0);
1185            if (!realp(x))
1186              TYPE_ERROR(x,TSor_rational_float);
1187          vs_push(x);          vs_push(x);
1188          delimiting_char = code_char(')');          delimiting_char = code_char(')');
1189          x = read_object(vs_base[0]);          x = read_object(vs_base[0]);

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26