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     ! 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.