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.
86 lines
1.8 KiB
Plaintext
86 lines
1.8 KiB
Plaintext
# $Source$
|
|
# $State$
|
|
# $Revision$
|
|
|
|
var w=4
|
|
var wa=4
|
|
var p={w}
|
|
var pa={w}
|
|
var s=2
|
|
var sa={s}
|
|
var l={w}
|
|
var la={w}
|
|
var f={w}
|
|
var fa={w}
|
|
var d=8
|
|
var da={d}
|
|
var x=8
|
|
var xa={x}
|
|
var ARCH=i386
|
|
var PLATFORM=linux386
|
|
var PLATFORMDIR={EM}/share/ack/{PLATFORM}
|
|
var CPP_F=-D__unix
|
|
var ALIGN=-a0:4 -a1:4 -a2:4 -a3:4 -b0:0x08048054
|
|
var C_LIB={PLATFORMDIR}/libc-ansi.a
|
|
# bitfields reversed for compatibility with (g)cc.
|
|
# long long enabled.
|
|
var CC_ALIGN=-Vrq8.4
|
|
var OLD_C_LIB={C_LIB}
|
|
var MACHOPT_F=-m10
|
|
var EGO_PLAT_FLAGS=-M{EM}/share/ack/ego/{ARCH}.descr
|
|
|
|
# Override the setting in fe so that files compiled for linux386 can see
|
|
# the platform-specific headers.
|
|
|
|
var C_INCLUDES=-I{EM}/share/ack/linux/include -I{EM}/share/ack/include/ansi
|
|
|
|
name be
|
|
from .m.g
|
|
to .s
|
|
program {EM}/lib/ack/{PLATFORM}/ncg
|
|
mapflag -gdb GF=-gdb
|
|
args {GF?} <
|
|
stdout
|
|
need .e
|
|
end
|
|
name as
|
|
from .s.so
|
|
to .o
|
|
program {EM}/lib/ack/{PLATFORM}/as
|
|
args - -o > <
|
|
prep cond
|
|
end
|
|
name led
|
|
from .o.a
|
|
to .out
|
|
program {EM}/lib/ack/em_led
|
|
mapflag -l* LNAME={PLATFORMDIR}/lib*
|
|
mapflag -fp FLOATS={EM}/{LIB}fp
|
|
args {ALIGN} {SEPID?} \
|
|
({RTS}:.b=-u _i_main) \
|
|
(.e:{HEAD}={PLATFORMDIR}/boot.o) \
|
|
({RTS}:.ocm.bas.b={PLATFORMDIR}/c-ansi.o) \
|
|
({RTS}:.c={PLATFORMDIR}/c-ansi.o) \
|
|
({RTS}:.mod={PLATFORMDIR}/modula2.o) \
|
|
({RTS}:.p={PLATFORMDIR}/pascal.o) \
|
|
-o > < \
|
|
(.p:{TAIL}={PLATFORMDIR}/libpascal.a) \
|
|
(.b:{TAIL}={PLATFORMDIR}/libb.a) \
|
|
(.bas:{TAIL}={PLATFORMDIR}/libbasic.a) \
|
|
(.mod:{TAIL}={PLATFORMDIR}/libmodula2.a) \
|
|
(.ocm:{TAIL}={PLATFORMDIR}/liboccam.a) \
|
|
(.ocm.bas.mod.b.c.p:{TAIL}={PLATFORMDIR}/libc.a) \
|
|
{FLOATS?} \
|
|
(.e:{TAIL}={PLATFORMDIR}/libem.a \
|
|
{PLATFORMDIR}/libsys.a \
|
|
{PLATFORMDIR}/libend.a)
|
|
linker
|
|
end
|
|
name cv
|
|
from .out
|
|
to .exe
|
|
program {EM}/bin/aelflod
|
|
args < >
|
|
outfile linux386.exe
|
|
end
|