Bell 32V development

[unix-history] / usr / src / libI77 / lread.c

diff --git a/usr/src/libI77/lread.c b/usr/src/libI77/lread.c
index 2e220f6..c08a6c2 100644 (file)
--- a/usr/src/libI77/lread.c
+++ b/usr/src/libI77/lread.c
@@ -9,17 +9,15 @@ int (*lioproc)();
 #define issep(x) (ltab[x+1]&SX)
 #define isapos(x) (ltab[x+1]&AX)
 #define isexp(x) (ltab[x+1]&EX)
 #define issep(x) (ltab[x+1]&SX)
 #define isapos(x) (ltab[x+1]&AX)
 #define isexp(x) (ltab[x+1]&EX)

-#define issign(x) (ltab[x+1]&SG)

 #define SX 1
 #define B 2
 #define AX 4
 #define EX 8
 #define SX 1
 #define B 2
 #define AX 4
 #define EX 8

-#define SG 16

 char ltab[128+1]       /* offset one for EOF */
 {      0,
        0,0,AX,0,0,0,0,0,0,0,B,0,0,0,0,0,
        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 char ltab[128+1]       /* offset one for EOF */
 {      0,
        0,0,AX,0,0,0,0,0,0,0,B,0,0,0,0,0,
        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,

-       SX|B,0,AX,0,0,0,0,0,0,0,0,SG,SX,SG,0,SX,
+       SX|B,0,AX,0,0,0,0,0,0,0,0,0,SX,0,0,SX,

        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
        0,0,0,0,EX,EX,0,0,0,0,0,0,0,0,0,0,
        AX,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
        0,0,0,0,EX,EX,0,0,0,0,0,0,0,0,0,0,
        AX,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,


@@ -160,10 +158,6 @@ l_R()
        }
        else    dc=rd_int(&c);
        if(isexp(GETC(ch))) db=rd_int(&d);
        }
        else    dc=rd_int(&c);
        if(isexp(GETC(ch))) db=rd_int(&d);

-       else if(issign(ch))
-       {       ungetc(ch, cf);
-               db = rd_int(&d);
-       }

        else
        {       ungetc(ch,cf);
                d=0;
        else
        {       ungetc(ch,cf);
                d=0;