Return to lread.c CVS log

Up to [Research Unix] / researchv10dc / libI77 / d

Annotation of researchv10dc/libI77/d/lread.c, revision 1.1.1.1

1.1       root        1: 67c67
                      2: <              l_eof = f__curunit->uend = 1;
                      3: ---
                      4: >              f__curunit->uend = l_eof = 1;
                      5: 127c127
                      6: <                      err(f__elist->cierr,112,"bad repetition count")
                      7: ---
                      8: >                      errfl(f__elist->cierr,112,"bad repetition count");
                      9: 160c160
                     10: <                      err(f__elist->cierr,112,"exponent field")
                     11: ---
                     12: >                      errfl(f__elist->cierr,112,"exponent field");
                     13: 203c203
                     14: <                              err(f__elist->cierr,112,"invalid number")
                     15: ---
                     16: >                              errfl(f__elist->cierr,112,"invalid number");
                     17: 239c239
                     18: <                              err(f__elist->cierr,112,"complex format")
                     19: ---
                     20: >                              errfl(f__elist->cierr,112,"complex format");
                     21: 245c245
                     22: <                              err(f__elist->cierr,112,"no star")
                     23: ---
                     24: >                              errfl(f__elist->cierr,112,"no star");
                     25: 263c263
                     26: <              err(f__elist->cierr,112,"no real part");
                     27: ---
                     28: >              errfl(f__elist->cierr,112,"no real part");
                     29: 268c268
                     30: <              err(f__elist->cierr,112,"no comma");
                     31: ---
                     32: >              errfl(f__elist->cierr,112,"no comma");
                     33: 275c275
                     34: <              err(f__elist->cierr,112,"no imaginary part");
                     35: ---
                     36: >              errfl(f__elist->cierr,112,"no imaginary part");
                     37: 277c277
                     38: <      if(ch!=')') err(f__elist->cierr,112,"no )");
                     39: ---
                     40: >      if(ch!=')') errfl(f__elist->cierr,112,"no )");
                     41: 294c294
                     42: <                              err(f__elist->cierr,112,"no star")
                     43: ---
                     44: >                              errfl(f__elist->cierr,112,"no star");
                     45: 315c315
                     46: <              else    err(f__elist->cierr,112,"logical");
                     47: ---
                     48: >              else    errfl(f__elist->cierr,112,"logical");
                     49: 331,332c331,333
                     50: <      p=f__lchar=malloc((unsigned int)size);
                     51: <      if(f__lchar==NULL) err(f__elist->cierr,113,"no space");
                     52: ---
                     53: >      p=f__lchar = (char *)malloc((unsigned int)size);
                     54: >      if(f__lchar == NULL)
                     55: >              errfl(f__elist->cierr,113,"no space");
                     56: 368c369
                     57: <                              f__lchar = realloc(f__lchar,
                     58: ---
                     59: >                              f__lchar = (char *)realloc(f__lchar,
                     60: 400c401
                     61: <                              f__lchar = realloc(f__lchar,
                     62: ---
                     63: >                              f__lchar = (char *)realloc(f__lchar,
                     64: 413c414,415
                     65: <                      f__lchar= realloc(f__lchar, (unsigned int)(size += BUFSIZE));
                     66: ---
                     67: >                      f__lchar= (char *)realloc(f__lchar,
                     68: >                                      (unsigned int)(size += BUFSIZE));
                     69: 528c530
                     70: <                              err(f__elist->cierr,errno,"list in")
                     71: ---
                     72: >                              errfl(f__elist->cierr,errno,"list in");
                     73: 536c538
                     74: <                      Ptr->flchar = f__lx;
                     75: ---
                     76: >                      Ptr->flchar = (char)f__lx;
                     77: 540c542
                     78: <                      Ptr->flshort=f__lx;
                     79: ---
                     80: >                      Ptr->flshort = (short)f__lx;
                     81: 600a603
                     82: >      f__doend = xrd_SL;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.