1989-02-07 11:04:05 +00:00
|
|
|
/*
|
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
|
*/
|
1994-06-27 08:03:14 +00:00
|
|
|
/* $Id$ */
|
1989-02-07 11:04:05 +00:00
|
|
|
/* TOKEN NAME DEFINITIONS */
|
|
|
|
|
|
2013-05-12 19:45:55 +00:00
|
|
|
#include "parameters.h"
|
|
|
|
|
#include "idf.h"
|
1989-02-07 11:04:05 +00:00
|
|
|
#include "arith.h"
|
|
|
|
|
#include "LLlex.h"
|
|
|
|
|
#include "tokenname.h"
|
|
|
|
|
#include "Lpars.h"
|
2019-02-18 16:42:15 +00:00
|
|
|
#include "error.h"
|
1989-02-07 11:04:05 +00:00
|
|
|
|
|
|
|
|
/* To centralize the declaration of %tokens, their presence in this
|
|
|
|
|
file is taken as their declaration. The Makefile will produce
|
|
|
|
|
a grammar file (tokenfile.g) from this file.
|
|
|
|
|
Moreover, rather than looking up a symbol in all these lists
|
|
|
|
|
to find its printable name, a fast version of symbol2str() is
|
|
|
|
|
generated from these tables.
|
|
|
|
|
Consequenty some of these tables are not referenced explicitly
|
|
|
|
|
in the C text any more. To save space and to avoid lint confusion,
|
|
|
|
|
these have been made pseudo-invisible by #ifdefs.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#ifdef ____
|
|
|
|
|
struct tokenname tkspec[] = { /* the names of the special tokens */
|
|
|
|
|
{IDENTIFIER, "identifier"},
|
|
|
|
|
{TYPE_IDENTIFIER, "type_identifier"},
|
|
|
|
|
{STRING, "string"},
|
|
|
|
|
{WCHAR, "wchar"},
|
|
|
|
|
{FILESPECIFIER, "filespecifier"},
|
|
|
|
|
{INTEGER, "integer"},
|
|
|
|
|
{FLOATING, "floating"},
|
|
|
|
|
{0, ""}
|
|
|
|
|
};
|
1991-12-17 13:12:22 +00:00
|
|
|
#endif /* ____ */
|
1989-02-07 11:04:05 +00:00
|
|
|
|
|
|
|
|
#ifdef ____
|
|
|
|
|
struct tokenname tkcomp[] = { /* names of the composite tokens */
|
1989-09-29 16:20:38 +00:00
|
|
|
{PLUSAB, "+="},
|
|
|
|
|
{MINAB, "-="},
|
|
|
|
|
{TIMESAB, "*="},
|
|
|
|
|
{DIVAB, "/="},
|
|
|
|
|
{MODAB, "%="},
|
|
|
|
|
{LEFTAB, "<<="},
|
|
|
|
|
{RIGHTAB, ">>="},
|
|
|
|
|
{ANDAB, "&="},
|
|
|
|
|
{XORAB, "^="},
|
|
|
|
|
{ORAB, "|="},
|
1989-02-07 11:04:05 +00:00
|
|
|
{NOTEQUAL, "!="},
|
|
|
|
|
{AND, "&&"},
|
|
|
|
|
{PLUSPLUS, "++"},
|
|
|
|
|
{MINMIN, "--"},
|
|
|
|
|
{ARROW, "->"},
|
|
|
|
|
{LEFT, "<<"},
|
|
|
|
|
{LESSEQ, "<="},
|
|
|
|
|
{EQUAL, "=="},
|
|
|
|
|
{GREATEREQ, ">="},
|
|
|
|
|
{RIGHT, ">>"},
|
|
|
|
|
{OR, "||"},
|
|
|
|
|
{ELLIPSIS, "..."},
|
|
|
|
|
{0, ""}
|
|
|
|
|
};
|
1991-12-17 13:12:22 +00:00
|
|
|
#endif /* ____ */
|
1989-02-07 11:04:05 +00:00
|
|
|
|
|
|
|
|
struct tokenname tkidf[] = { /* names of the identifier tokens */
|
|
|
|
|
{AUTO, "auto"},
|
|
|
|
|
{BREAK, "break"},
|
|
|
|
|
{CASE, "case"},
|
|
|
|
|
{CONST, "const"},
|
|
|
|
|
{CONTINUE, "continue"},
|
|
|
|
|
{DEFAULT, "default"},
|
|
|
|
|
{DO, "do"},
|
|
|
|
|
{ELSE, "else"},
|
|
|
|
|
{ENUM, "enum"},
|
|
|
|
|
{EXTERN, "extern"},
|
|
|
|
|
{FOR, "for"},
|
|
|
|
|
{GOTO, "goto"},
|
|
|
|
|
{IF, "if"},
|
|
|
|
|
{LONG, "long"},
|
|
|
|
|
{REGISTER, "register"},
|
|
|
|
|
{RETURN, "return"},
|
|
|
|
|
{SHORT, "short"},
|
|
|
|
|
{SIGNED, "signed"},
|
|
|
|
|
{SIZEOF, "sizeof"},
|
|
|
|
|
{STATIC, "static"},
|
|
|
|
|
{STRUCT, "struct"},
|
|
|
|
|
{SWITCH, "switch"},
|
|
|
|
|
{TYPEDEF, "typedef"},
|
|
|
|
|
{UNION, "union"},
|
|
|
|
|
{UNSIGNED, "unsigned"},
|
|
|
|
|
{VOLATILE, "volatile"},
|
|
|
|
|
{WHILE, "while"},
|
|
|
|
|
|
1990-07-13 10:18:27 +00:00
|
|
|
{VOID, "void"},
|
1989-02-07 11:04:05 +00:00
|
|
|
{CHAR, "char"},
|
|
|
|
|
{INT, "int"},
|
|
|
|
|
{FLOAT, "float"},
|
|
|
|
|
{DOUBLE, "double"},
|
1990-07-13 10:18:27 +00:00
|
|
|
{0, ""}
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
#ifdef ____
|
|
|
|
|
struct tokenname tkfunny[] = { /* internal keywords */
|
Begin to add `long long` to C compiler for linux386.
Add long long type, but without literals; you can't say '123LL' yet.
You can try constant operations, like `(long long)123 + 1`, but the
compiler's `arith` type might not be wide enough. Conversions,
shifts, and some other operations don't work in i386 ncg; I am using a
union instead of conversions:
union q {
long long ll;
unsigned long long ull;
int i[2];
};
Hack plat/linux386/descr to enable long long (size 8, alignment 4)
only for this platform. The default for other platforms is to disable
long long (size -1).
In lang/cem/cemcom.ansi,
- BigPars, SmallPars: Add default size, alignment of long long.
- align.h: Add lnglng_align.
- arith.c: Convert arithmetic operands to long long or unsigned long
long when necessary; avoid conversion from long long to long.
Allow long long as an arithmetic, integral, or logical operand.
- ch3.c: Handle long long like int and long when erroneously applying
a selector, like `long long ll; ll.member` or `ll->member`. Add
long long to integral and arithmetic types.
- code.c: Add long long to type stabs for debugging.
- conversion.c: Add long long to integral conversions.
- cstoper.c: Write masks up to full_mask[8]. Add FIXME comment.
- declar.g: Parse `long long` in code.
- decspecs.c: Understand long long in type declarations.
- eval.c: Add long long to operations, to generate code like `adi 8`.
Don't use `ldc` with constant over 4 bytes.
- ival.g: Allow long long in initializations.
- main.c: Set lnglng_type and related values.
- options.c: Add option like `-Vq8.4` to set long long to size 8,
alignment 4. I chose 'q', because Perl's pack and Ruby's
Array#pack use 'q' for 64-bit or long long values; it might be a
reference to BSD's old quad_t alias for long long.
- sizes.h: Add lnglng_size.
- stab.c: Allow long long when writing the type stab for debugging.
Switch from calculating the ranges to hardcoding them in strings;
add 8-byte ranges as a special case. This also hardcodes the
unsigned 4-byte range as "0;-1". Before it was either "0;-1" or
"0;4294967295", depending on sizeof(long) in the compiler.
- struct.c: Try long long bitfield, but it will probably give the
error, "bit field type long long does not fit in a word".
- switch.c: Update comment.
- tokenname.c: Define LNGLNG (long long) like LNGDBL (long double).
- type.c, type.str: Add lnglng_type and ulnglng_type. Add function
no_long_long() to check if long long is disabled.
2019-09-02 15:24:44 +00:00
|
|
|
{LNGLNG, "long long"},
|
1989-02-07 11:04:05 +00:00
|
|
|
{LNGDBL, "long double"},
|
|
|
|
|
{ULONG, "unsigned long"},
|
Add long long literals like 123LL to ACK C.
For now, a long long literal must have the 'LL' or 'll' suffix. A
literal without 'LL' or 'll' acts as before: it may become unsigned
long but not long long. (For targets where int and long have the same
size, some literals change from unsigned int to unsigned long.)
Type `arith` may be too narrow for long long values. Add a second
type `writh` for wide arithmetic, and change some variables from arith
to writh. This may cause bugs if I forget to use writh, or if a
conversion from writh to arith overflows. I mark some conversions
with (arith) or (writh) casts.
- BigPars, SmallPars: Remove SPECIAL_ARITHMETICS. This feature
would change arith to a different type, but can't work, because it
would conflict with definitions of arith in both <em_arith.h> and
<flt_arith.h>.
- LLlex.c: Understand 'LL' or 'll' suffix. Cut size of constant when
it overflows writh, not only when it overflows the target machine's
types. (This cut might not be necessary, because we might cut it
again later.) When picking signed long or unsigned long, check the
target's long type, not the compiler's arith type; the old check
for `val >= 0` was broken where sizeof(arith) > 4.
- LLlex.h: Change struct token's tok_ival to writh, so it can hold a
long long literal.
- arith.c: Adjust to VL_VALUE being writh. Don't convert between
float and integer at compile-time if the integer might be too wide
for <flt_arith.h>. Add writh2str(), because writh might be too
wide for long2str().
- arith.h: Remove SPECIAL_ARITHMETICS. Declare full_mask[] here,
not in several *.c files. Declare writh2str().
- ch3.c, ch3bin.c, ch3mon.c, declarator.c, statement.g: Remove
obsolete casts. Adjust to VL_VALUE being writh.
- conversion.c, stab.c: Don't declare full_mask[].
- cstoper.c: Use writh for constant operations on VL_VALUE, and for
full_mask[].
- declar., field.c, ival.g: Add casts.
- dumpidf.c: Need to #include "parameters.h" before checking DEBUG.
Use writh2str, because "%ld" might not work.
- eval.c, eval.h: Add casts. Use writh when writing a wide constant
in EM.
- expr.c: Add and remove casts. In fill_int_expr(), make expression
from long long literal. In chk_cst_expr(), allow long long as
constant expression, so the compiler may accept `case 123LL:` in a
switch statement.
- expr.str: Change struct value's vl_value and struct expr's VL_VALUE
to writh, so an expression may have a long long value at compile
time.
- statement.g: Remove obsolete casts.
- switch.c, switch.str: Use writh in case entries for switch
statements, so `switch (ll) {...}` with long long ll works.
- tokenname.c: Add ULNGLNG so LLlex.c can use it for literals.
2019-09-05 02:14:38 +00:00
|
|
|
{ULNGLNG, "unsigned long long"},
|
1989-02-07 11:04:05 +00:00
|
|
|
|
|
|
|
|
{ARRAY, "array"},
|
|
|
|
|
{FUNCTION, "function"},
|
|
|
|
|
{POINTER, "pointer"},
|
|
|
|
|
{FIELD, "field"},
|
|
|
|
|
|
|
|
|
|
{GLOBAL, "global"},
|
|
|
|
|
{FORMAL, "formal"},
|
|
|
|
|
{LABEL, "label"},
|
|
|
|
|
{ERRONEOUS, "erroneous"},
|
|
|
|
|
|
|
|
|
|
{PARCOMMA, "parcomma"},
|
|
|
|
|
{INITCOMMA, "initcomma"},
|
|
|
|
|
{CAST, "cast"},
|
|
|
|
|
{CASTAB, "castab"},
|
1989-11-22 16:41:09 +00:00
|
|
|
{ADDRESSOF,"unary &"},
|
1989-02-07 11:04:05 +00:00
|
|
|
{POSTINCR, "postfix ++"},
|
|
|
|
|
{POSTDECR, "postfix --"},
|
|
|
|
|
|
|
|
|
|
{INT2INT, "int2int"},
|
|
|
|
|
{INT2FLOAT, "int2float"},
|
|
|
|
|
{FLOAT2INT, "float2int"},
|
|
|
|
|
{FLOAT2FLOAT, "float2float"},
|
|
|
|
|
{0, ""}
|
|
|
|
|
};
|
1991-12-17 13:12:22 +00:00
|
|
|
#endif /* ____ */
|
1989-02-07 11:04:05 +00:00
|
|
|
|
2019-02-18 16:42:15 +00:00
|
|
|
void reserve(register struct tokenname resv[])
|
1989-02-07 11:04:05 +00:00
|
|
|
{
|
|
|
|
|
/* The names of the tokens described in resv are entered
|
|
|
|
|
as reserved words.
|
|
|
|
|
*/
|
|
|
|
|
while (resv->tn_symbol) {
|
1991-06-19 16:12:56 +00:00
|
|
|
struct idf *idf = str2idf(resv->tn_name, 0);
|
1989-02-07 11:04:05 +00:00
|
|
|
|
|
|
|
|
if (idf->id_reserved)
|
|
|
|
|
fatal("maximum identifier length insufficient");
|
|
|
|
|
idf->id_reserved = resv->tn_symbol;
|
|
|
|
|
resv++;
|
|
|
|
|
}
|
|
|
|
|
}
|
