007a63d529
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.
151 lines
3.2 KiB
C
151 lines
3.2 KiB
C
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
/* $Id$ */
|
|
/* TOKEN NAME DEFINITIONS */
|
|
|
|
#include "parameters.h"
|
|
#include "idf.h"
|
|
#include "arith.h"
|
|
#include "LLlex.h"
|
|
#include "tokenname.h"
|
|
#include "Lpars.h"
|
|
#include "error.h"
|
|
|
|
/* 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, ""}
|
|
};
|
|
#endif /* ____ */
|
|
|
|
#ifdef ____
|
|
struct tokenname tkcomp[] = { /* names of the composite tokens */
|
|
{PLUSAB, "+="},
|
|
{MINAB, "-="},
|
|
{TIMESAB, "*="},
|
|
{DIVAB, "/="},
|
|
{MODAB, "%="},
|
|
{LEFTAB, "<<="},
|
|
{RIGHTAB, ">>="},
|
|
{ANDAB, "&="},
|
|
{XORAB, "^="},
|
|
{ORAB, "|="},
|
|
{NOTEQUAL, "!="},
|
|
{AND, "&&"},
|
|
{PLUSPLUS, "++"},
|
|
{MINMIN, "--"},
|
|
{ARROW, "->"},
|
|
{LEFT, "<<"},
|
|
{LESSEQ, "<="},
|
|
{EQUAL, "=="},
|
|
{GREATEREQ, ">="},
|
|
{RIGHT, ">>"},
|
|
{OR, "||"},
|
|
{ELLIPSIS, "..."},
|
|
{0, ""}
|
|
};
|
|
#endif /* ____ */
|
|
|
|
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"},
|
|
|
|
{VOID, "void"},
|
|
{CHAR, "char"},
|
|
{INT, "int"},
|
|
{FLOAT, "float"},
|
|
{DOUBLE, "double"},
|
|
{0, ""}
|
|
};
|
|
|
|
#ifdef ____
|
|
struct tokenname tkfunny[] = { /* internal keywords */
|
|
{LNGLNG, "long long"},
|
|
{LNGDBL, "long double"},
|
|
{ULONG, "unsigned long"},
|
|
|
|
{ARRAY, "array"},
|
|
{FUNCTION, "function"},
|
|
{POINTER, "pointer"},
|
|
{FIELD, "field"},
|
|
|
|
{GLOBAL, "global"},
|
|
{FORMAL, "formal"},
|
|
{LABEL, "label"},
|
|
{ERRONEOUS, "erroneous"},
|
|
|
|
{PARCOMMA, "parcomma"},
|
|
{INITCOMMA, "initcomma"},
|
|
{CAST, "cast"},
|
|
{CASTAB, "castab"},
|
|
{ADDRESSOF,"unary &"},
|
|
{POSTINCR, "postfix ++"},
|
|
{POSTDECR, "postfix --"},
|
|
|
|
{INT2INT, "int2int"},
|
|
{INT2FLOAT, "int2float"},
|
|
{FLOAT2INT, "float2int"},
|
|
{FLOAT2FLOAT, "float2float"},
|
|
{0, ""}
|
|
};
|
|
#endif /* ____ */
|
|
|
|
void reserve(register struct tokenname resv[])
|
|
{
|
|
/* The names of the tokens described in resv are entered
|
|
as reserved words.
|
|
*/
|
|
while (resv->tn_symbol) {
|
|
struct idf *idf = str2idf(resv->tn_name, 0);
|
|
|
|
if (idf->id_reserved)
|
|
fatal("maximum identifier length insufficient");
|
|
idf->id_reserved = resv->tn_symbol;
|
|
resv++;
|
|
}
|
|
}
|