add LCC - a better C-Compiler for WEGA
This commit is contained in:
Oliver Lehmann
parent
ac87126a3f
commit
f6696e9a93
|
|
@ -0,0 +1,328 @@
|
||||||
|
#define ARGINIT 32 /* initial offset, in bits, of first argument on
|
||||||
|
the stack */
|
||||||
|
#define AUTOINIT 0 /* initial offset of first automatic variable */
|
||||||
|
|
||||||
|
/* alignments, in bits, of fundamental types */
|
||||||
|
#define ALCHAR 8
|
||||||
|
#define ALINT 16 /* 16 or 32 bit ints aligned thus */
|
||||||
|
#define ALDOUBLE 16
|
||||||
|
#define ALPOINT 16
|
||||||
|
#define ALSTRUCT 16
|
||||||
|
#define ALSTACK 16
|
||||||
|
#define ALINIT 16 /* alignment of an initialized quantity */
|
||||||
|
|
||||||
|
/* size in bits of fundamental types */
|
||||||
|
#define SZCHAR 8
|
||||||
|
|
||||||
|
# define SZINT 16
|
||||||
|
# define SZLONG 32
|
||||||
|
# define ALLONG ALINT
|
||||||
|
|
||||||
|
/* if defined, float and double are treated as long */
|
||||||
|
#undef NOFLOAT
|
||||||
|
#define DOUBLES
|
||||||
|
|
||||||
|
#ifndef NOFLOAT
|
||||||
|
/* Assume compiler switch DOUBLES that selects single/double precision*/
|
||||||
|
# ifdef DOUBLES
|
||||||
|
/* two floating point tupes, i.e. float != double */
|
||||||
|
# undef ONEFLOAT
|
||||||
|
# else
|
||||||
|
/* only one floating point type, i.e. float == double */
|
||||||
|
# define ONEFLOAT
|
||||||
|
# endif /* DOUBLES */
|
||||||
|
#endif /* NOFLOAT */
|
||||||
|
|
||||||
|
#ifdef ONEFLOAT
|
||||||
|
# define SZDOUBLE 32
|
||||||
|
# else
|
||||||
|
# define SZDOUBLE 64
|
||||||
|
# define SZFLOAT 32
|
||||||
|
# define ALFLOAT 16
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define SZPOINT 32
|
||||||
|
|
||||||
|
/* use common declarations for all unitialized declarations */
|
||||||
|
#define ALLCOMM
|
||||||
|
|
||||||
|
/* is &a[0] a constant when "a" is auto */
|
||||||
|
#undef ANDABLE
|
||||||
|
|
||||||
|
/* set aside argument space for return value */
|
||||||
|
#undef ARGALLRET
|
||||||
|
|
||||||
|
/* set aside argument space for returning structure value */
|
||||||
|
#undef ARGSRET
|
||||||
|
|
||||||
|
/* size in chars of assembly language buffer for in-line as code */
|
||||||
|
#undef ASMBUF
|
||||||
|
|
||||||
|
/* permit -Xs option that puts C line of code in assembler output */
|
||||||
|
#define ASSYCOMMENT
|
||||||
|
|
||||||
|
/* arguments run backward (downwards) on the stack */
|
||||||
|
#undef BACKARGS
|
||||||
|
|
||||||
|
/* automatics run backward (downwards) on the stack */
|
||||||
|
#undef BACKAUTO
|
||||||
|
|
||||||
|
/* temporaries run backward (downwards) on the stack */
|
||||||
|
#undef BACKTEMP
|
||||||
|
|
||||||
|
/* default cost of testing a register for condition codes */
|
||||||
|
#undef CCTEST
|
||||||
|
/* charged cost for load, store */
|
||||||
|
#define CLOAD(x) 4
|
||||||
|
#define CSTORE(x) 4
|
||||||
|
|
||||||
|
/* character-set translation; default: do nothing */
|
||||||
|
#undef CCTRANS
|
||||||
|
|
||||||
|
/* name of function so user can get control after arguments are declared
|
||||||
|
in a function*/
|
||||||
|
#undef CENDARG
|
||||||
|
|
||||||
|
/* characters are signed */
|
||||||
|
#define CHSIGN
|
||||||
|
|
||||||
|
/* name of function to reprocess tree before it is optimized */
|
||||||
|
#undef CLOCAL
|
||||||
|
|
||||||
|
/* string that introduces a comment to the assembler, double-quoted */
|
||||||
|
#define COMMENTSTR "//"
|
||||||
|
|
||||||
|
/* size in which constants are converted */
|
||||||
|
/* should be long if feasable - from VAX pcc for two-pass conversion */
|
||||||
|
/* CONSZ defined in manifest.h */
|
||||||
|
#define CONFMT "%ld"
|
||||||
|
|
||||||
|
/* a function or macro called with indication of errors
|
||||||
|
at the end of mainp1() */
|
||||||
|
#undef ENDJOB
|
||||||
|
|
||||||
|
/* make available the address of the end of a structure, useful when
|
||||||
|
copying one onto the stack */
|
||||||
|
#undef ENDSTRUCT
|
||||||
|
|
||||||
|
/* allow for enum type to depend on range of values; default INT */
|
||||||
|
#undef ENUMSIZE
|
||||||
|
|
||||||
|
/* define class of external variables */
|
||||||
|
#undef EXCLASS
|
||||||
|
|
||||||
|
/* alternate routine to be called by cerror(); default exit */
|
||||||
|
#undef EXIT
|
||||||
|
|
||||||
|
/* user-level fix-up at symbol definition time */
|
||||||
|
|
||||||
|
#define FIXDEF(p) fixdef(p)
|
||||||
|
|
||||||
|
/* support for structure debug info */
|
||||||
|
|
||||||
|
#define FIXSTRUCT(p,q) strend(p)
|
||||||
|
|
||||||
|
/* routine to convert string to float; default atof() */
|
||||||
|
#undef FLOATCVT
|
||||||
|
|
||||||
|
/* manifest.h, determines default TREESZ; Fortran can have huge trees */
|
||||||
|
#undef FORT
|
||||||
|
|
||||||
|
/* for fields within structures of types that are not long/short/char;
|
||||||
|
i.e. Honeywell addresses are 18 bits */
|
||||||
|
#undef FUNNYFLDS
|
||||||
|
|
||||||
|
/* format for compiler-generated labels */
|
||||||
|
#define LABFMT "L%d"
|
||||||
|
|
||||||
|
/* defined if magic lint comments are to be recognized */
|
||||||
|
#undef LINT
|
||||||
|
|
||||||
|
/* defined if fields are permitted to be long data type if int < long */
|
||||||
|
#define LONGFIELDS
|
||||||
|
|
||||||
|
/* number of bits from Least Significant Bit of a long in a register to
|
||||||
|
the LSB of an int */
|
||||||
|
#undef LOWINT
|
||||||
|
|
||||||
|
/* if defined, arguments are evaluated left to right;
|
||||||
|
default is right to left */
|
||||||
|
#undef LTORARGS
|
||||||
|
|
||||||
|
/* optional translation on a character constant */
|
||||||
|
#undef MAKECC
|
||||||
|
|
||||||
|
/* converstion nodes from long to ptr or ptr to long should be kept */
|
||||||
|
#define MEMONLY
|
||||||
|
|
||||||
|
/* if defined, asmout() in scan.c ignored and user provides one */
|
||||||
|
#undef MYASMOUT
|
||||||
|
|
||||||
|
/* optional C statements to be run near end of bccode() in optim.c */
|
||||||
|
#undef MYBCCODE
|
||||||
|
|
||||||
|
/* if defined, ccast() in trees.c ignored and user provides one */
|
||||||
|
#undef MYCCAST
|
||||||
|
|
||||||
|
/* if defined, sconvert() in optim.c ignored and user provides one */
|
||||||
|
#undef MYCONVERT
|
||||||
|
|
||||||
|
/* if defined, ctype() in pftn.c ignored and user provides one */
|
||||||
|
#undef MYCTYPE
|
||||||
|
|
||||||
|
/* if defined, ecode() in trees.c ignored and user provides one */
|
||||||
|
#undef MYECODE
|
||||||
|
|
||||||
|
/* my own initialization routine, for speed */
|
||||||
|
#define MYINIT(a,b) myinit(a,b)
|
||||||
|
|
||||||
|
/* if defined, getlab() in trees.c ignored and user provides one */
|
||||||
|
#undef MYLABELS
|
||||||
|
|
||||||
|
/* if defined, locctr() in trees.c ignored and user provides one */
|
||||||
|
#undef MYLOCCTR
|
||||||
|
|
||||||
|
/* used to define alternate printf() for printing mask in expand() */
|
||||||
|
#undef MYMASK
|
||||||
|
|
||||||
|
/* if defined, myoffcon() in optim.c ignored and user provides one */
|
||||||
|
#undef MYOFFCON
|
||||||
|
|
||||||
|
/* if defined, used in buildtree() to modifiy actions */
|
||||||
|
#undef MYOPACT
|
||||||
|
|
||||||
|
/* if defined, replaces action of p2tree; should end with return */
|
||||||
|
#undef MYP2TREE
|
||||||
|
|
||||||
|
/* to produce power-of-two divide or multiply */
|
||||||
|
#undef MYPDIV
|
||||||
|
#undef MYPMUL
|
||||||
|
|
||||||
|
/* if defined, replaces action of prtree; should end with return */
|
||||||
|
#undef MYPRTREE
|
||||||
|
|
||||||
|
/* escape within p2compile() in reader.c to "launder input" */
|
||||||
|
#undef MYREADER
|
||||||
|
|
||||||
|
/* if defined, where() in common ignored and user provides one */
|
||||||
|
#undef MYWHERE
|
||||||
|
|
||||||
|
|
||||||
|
/* if defined, not debug code is included */
|
||||||
|
#undef NODBG
|
||||||
|
|
||||||
|
/* if defined as "return(class)" this will disable FORTRAN types */
|
||||||
|
/* may need to be resolved with FORT */
|
||||||
|
#undef NOFORTRAN
|
||||||
|
|
||||||
|
/* short => int */
|
||||||
|
# define NOSHORT
|
||||||
|
# undef NOLONG
|
||||||
|
|
||||||
|
/* if defined, function calls of the form f(g(x)) can not have their
|
||||||
|
argument lists nested */
|
||||||
|
#undef NONEST
|
||||||
|
/* if defined, function calls of the form f(g()) where g() returns
|
||||||
|
a structure can not have their arguments nested */
|
||||||
|
#undef STCALLBAD
|
||||||
|
/* if defined, like STCALLBAD, except for cases where g() is unary,
|
||||||
|
i.e. takes no arguments */
|
||||||
|
#undef UCALLBAD
|
||||||
|
/* if defined, like UCALLBAD, except for cases where g() is a unary
|
||||||
|
Fortran function */
|
||||||
|
#undef UFCALLBAD
|
||||||
|
|
||||||
|
/* turn on optimization (may be out of date) */
|
||||||
|
#undef NOOPT
|
||||||
|
|
||||||
|
/* number of op table entries */
|
||||||
|
#undef NOPTB
|
||||||
|
|
||||||
|
/* if defined, no register arguments */
|
||||||
|
#undef NOREGARGS
|
||||||
|
|
||||||
|
/* unsigned quantities are forbidden */
|
||||||
|
#undef NOUNSIGNED
|
||||||
|
|
||||||
|
/* no longer used */
|
||||||
|
#undef NPSH
|
||||||
|
|
||||||
|
/* number of scratch registers */
|
||||||
|
#define NRGS 8
|
||||||
|
|
||||||
|
/* size of a string in sty.y */
|
||||||
|
#undef NSTRING
|
||||||
|
|
||||||
|
/* number of sty shapes */
|
||||||
|
#undef NSTYSHPS
|
||||||
|
|
||||||
|
/* output register number for SDB */
|
||||||
|
#define OUTREGNO(p) (ISPTR(p->stype)?p->offset+8:p->offset)
|
||||||
|
|
||||||
|
/* with PTR+INT, put the PTR on the left, or right */
|
||||||
|
#undef PTRLEFT
|
||||||
|
#define PTRRIGHT
|
||||||
|
/* except that, with PTR+CONST, put the constant on the right */
|
||||||
|
#define CONSRIGHT
|
||||||
|
|
||||||
|
/* type of a pointer, may be LONG or UNSIGNED; default INT */
|
||||||
|
# define PTRTYPE LONG
|
||||||
|
|
||||||
|
/* alternate putchar(), e.g. for uppercase-only assemblers */
|
||||||
|
#undef PUTCHAR
|
||||||
|
|
||||||
|
/* the name of the (shared) return area for structures; must collide
|
||||||
|
with user names! */
|
||||||
|
#define RNODNAME "__StRet"
|
||||||
|
|
||||||
|
/* right to left bytes */
|
||||||
|
#undef RTOLBYTES
|
||||||
|
|
||||||
|
/* sdb is enabled */
|
||||||
|
#undef SDB
|
||||||
|
|
||||||
|
/* used to construct register masks */
|
||||||
|
#define SETREGS(x) { extern int rsmask; rsmask |= x; }
|
||||||
|
|
||||||
|
/* define the shared structure return area */
|
||||||
|
#define SRETNAME(sz) printf( "\tcomm\t%s,%d\n", RNODNAME, sz/SZCHAR );
|
||||||
|
|
||||||
|
/* if defined, this is a stack machine and register allocation is
|
||||||
|
different */
|
||||||
|
#undef STACK
|
||||||
|
|
||||||
|
/* structures returned in static areas */
|
||||||
|
#define STATSRET
|
||||||
|
|
||||||
|
/* we want the standard prtree() or p2tree() included */
|
||||||
|
#define STDPRTREE
|
||||||
|
|
||||||
|
/* symbol table size */
|
||||||
|
#define SYMTSZ 2729
|
||||||
|
|
||||||
|
/* tree size */
|
||||||
|
#undef TREESZ
|
||||||
|
|
||||||
|
/* create a two-pass compiler */
|
||||||
|
#ifdef TWOPASS
|
||||||
|
# undef ONEPASS /* for ported VAX code from pcc */
|
||||||
|
#else
|
||||||
|
# undef TWOPASS
|
||||||
|
# define ONEPASS
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* pointer are not all alike (currently can only handle 2 types */
|
||||||
|
#undef TWOPTRS
|
||||||
|
|
||||||
|
/* turn on debugging in yacc functions */
|
||||||
|
#undef YYDEBUG
|
||||||
|
|
||||||
|
/* ??? */
|
||||||
|
#undef YYMAXDEPTH
|
||||||
|
|
||||||
|
/* if defined, user defines their own routine to pass structures shorter
|
||||||
|
than or equal to longs as longs */
|
||||||
|
#undef simpstr
|
||||||
|
|
||||||
|
/* number of registers needed to hold an object of type; default 1 */
|
||||||
|
#undef szty
|
||||||
|
|
@ -0,0 +1,15 @@
|
||||||
|
.seg
|
||||||
|
|
||||||
|
sp := r15
|
||||||
|
SP := rr14
|
||||||
|
|
||||||
|
.psec
|
||||||
|
.code
|
||||||
|
_execv::
|
||||||
|
{
|
||||||
|
ldm r0,|_stkseg+4|(sp),#4 /* path, argv */
|
||||||
|
ldl rr4,_environ
|
||||||
|
sc #59 /*exece*/
|
||||||
|
ld r2,r4
|
||||||
|
jp cerror
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,16 @@
|
||||||
|
.seg
|
||||||
|
|
||||||
|
sp := r15
|
||||||
|
SP := rr14
|
||||||
|
|
||||||
|
.psec
|
||||||
|
.code
|
||||||
|
_ioctl::
|
||||||
|
{
|
||||||
|
ldm r0,|_stkseg+4|(sp),#4
|
||||||
|
subl rr4,rr4
|
||||||
|
sc #54 /*ioctl*/
|
||||||
|
ld r2,r4
|
||||||
|
ret nc
|
||||||
|
jp cerror
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,16 @@
|
||||||
|
.seg
|
||||||
|
|
||||||
|
sp := r15
|
||||||
|
SP := rr14
|
||||||
|
|
||||||
|
.psec
|
||||||
|
.code
|
||||||
|
_ssgbrk::
|
||||||
|
{
|
||||||
|
ldl rr0,SP(#4)
|
||||||
|
subl rr4,rr4
|
||||||
|
sc #45 /*unused*/
|
||||||
|
ldl rr2,rr4
|
||||||
|
jp c,cerror
|
||||||
|
ret
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,16 @@
|
||||||
|
.seg
|
||||||
|
|
||||||
|
sp := r15
|
||||||
|
SP := rr14
|
||||||
|
|
||||||
|
.psec
|
||||||
|
.code
|
||||||
|
_ulimit::
|
||||||
|
{
|
||||||
|
ldm r0,|_stkseg+4|(sp),#3
|
||||||
|
subl rr4,rr4
|
||||||
|
sc #65 /*lt*/
|
||||||
|
ldl rr2,rr4
|
||||||
|
ret nc
|
||||||
|
jp cerror
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,17 @@
|
||||||
|
.seg
|
||||||
|
|
||||||
|
sp := r15
|
||||||
|
SP := rr14
|
||||||
|
|
||||||
|
.psec
|
||||||
|
.code
|
||||||
|
_uname::
|
||||||
|
{
|
||||||
|
ld r2,#%0016
|
||||||
|
ldl rr0,SP(#4)
|
||||||
|
xor r3,r3
|
||||||
|
sc #57 /*reserved*/
|
||||||
|
ld r2,r4
|
||||||
|
ret nc
|
||||||
|
jp cerror
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue