diff options
author | jmz <jmz@FreeBSD.org> | 1995-09-28 20:36:16 +0000 |
---|---|---|
committer | jmz <jmz@FreeBSD.org> | 1995-09-28 20:36:16 +0000 |
commit | d7540707150387c6154e64a7807ac15aaede039f (patch) | |
tree | 9652bbd72571e2f3e85bab900a7bb12db48f6bd7 /usr.bin/f2c/gram.dcl | |
parent | 7b21039a71d27d24df672740c642830438c642e3 (diff) | |
download | FreeBSD-src-d7540707150387c6154e64a7807ac15aaede039f.zip FreeBSD-src-d7540707150387c6154e64a7807ac15aaede039f.tar.gz |
Update to the 1995/09/20 version. Previous version was 1993/12/17
The diffs are large mainly because of prototyping changes.
Diffstat (limited to 'usr.bin/f2c/gram.dcl')
-rw-r--r-- | usr.bin/f2c/gram.dcl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/usr.bin/f2c/gram.dcl b/usr.bin/f2c/gram.dcl index 9a25c25..fadbb5b 100644 --- a/usr.bin/f2c/gram.dcl +++ b/usr.bin/f2c/gram.dcl @@ -56,6 +56,7 @@ typename: SINTEGER { $$ = TYLONG; } | SDIMENSION { $$ = TYUNKNOWN; } | SAUTOMATIC { NOEXT("AUTOMATIC statement"); $$ = - STGAUTO; } | SSTATIC { NOEXT("STATIC statement"); $$ = - STGBSS; } + | SBYTE { $$ = TYINT1; } ; lengspec: @@ -228,6 +229,15 @@ var: name dims datavar: lhs { Namep np; + int tt = $1->tag; + if (tt != TPRIM) { + if (tt == TCONST) + err("parameter in data statement"); + else + erri("tag %d in data statement",tt); + $$ = 0; + break; + } np = ( (struct Primblock *) $1) -> namep; vardcl(np); if(np->vstg == STGCOMMON) |