vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-05 23:22:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update bootstrap.

Browse source
This commit is contained in:
David Brown 2016-09-11 18:33:30 +01:00
parent 1bce6ac9b0
commit 74a085dda3
205 changed files with 715 additions and 525 deletions
Download patch file Download diff file Expand all files Collapse all files

4
bootstrap/unix-44/Configuration.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32
@ -18,6 +18,6 @@ export void *Configuration__init(void)
__DEFMOD;
__REGMOD("Configuration", 0);
/* BEGIN */
__MOVE("1.95 [2016/09/06] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__MOVE("1.95 [2016/09/11] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__ENDMOD;
}

2
bootstrap/unix-44/Configuration.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Configuration__h
#define Configuration__h

2
bootstrap/unix-44/Console.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/Console.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Console__h
#define Console__h

2
bootstrap/unix-44/Files.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/Files.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tspkaSfF */
#ifndef Files__h
#define Files__h

4
bootstrap/unix-44/Heap.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tskSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tskSfF */
#define INTEGER int16
#define LONGINT int32
@ -353,7 +353,7 @@ static void Heap_Mark (address q)
tag = tagbits + 4;
for (;;) {
__GET(tag, offset, address);
if (__BIT((address)&offset, 31)) {
if (offset < 0) {
__PUT(q - 4, (tag + offset) + 1, address);
if (p == 0) {
break;

2
bootstrap/unix-44/Heap.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tskSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tskSfF */
#ifndef Heap__h
#define Heap__h

2
bootstrap/unix-44/Modules.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/Modules.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Modules__h
#define Modules__h

2
bootstrap/unix-44/OPB.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/OPB.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPB__h
#define OPB__h

2
bootstrap/unix-44/OPC.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/OPC.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPC__h
#define OPC__h

2
bootstrap/unix-44/OPM.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/OPM.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPM__h
#define OPM__h

2
bootstrap/unix-44/OPP.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/OPP.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPP__h
#define OPP__h

2
bootstrap/unix-44/OPS.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/OPS.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tspkaSfF */
#ifndef OPS__h
#define OPS__h

2
bootstrap/unix-44/OPT.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/OPT.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPT__h
#define OPT__h

2
bootstrap/unix-44/OPV.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/OPV.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPV__h
#define OPV__h

2
bootstrap/unix-44/Platform.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/Platform.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Platform__h
#define Platform__h

2
bootstrap/unix-44/Reals.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/Reals.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Reals__h
#define Reals__h

46
bootstrap/unix-44/SYSTEM.c
View file

@ -21,11 +21,34 @@
// Procedure verions of SYSTEM.H versions used when a multiply accessed
// parameter has side effects.
int64 SYSTEM_XCHK(uint64 i, uint64 ub) {return __X(i, ub);}
int64 SYSTEM_RCHK(uint64 i, uint64 ub) {return __R(i, ub);}
LONGINT SYSTEM_ASH (LONGINT i, LONGINT n) {return __ASH(i, n);}
LONGINT SYSTEM_ABS (LONGINT i) {return __ABS(i);}
double SYSTEM_ABSD(double i) {return __ABS(i);}
LONGINT SYSTEM_ABS (LONGINT i) {return __ABS(i);}
double SYSTEM_ABSD(double i) {return __ABS(i);}
int64 SYSTEM_DIV(int64 x, int64 y)
{
if (x == 0) return 0;
if (x >= 0)
if (y >= 0) {return x/y;}
else {return -((x-y-1)/(-y));}
else
if (y >= 0) {return -((y-x-1)/y);}
else {return (-x)/(-y);}
}
int64 SYSTEM_MOD(int64 x, int64 y)
{
if (x == 0) return 0;
if (x >= 0)
if (y >= 0) {return x % y;}
else {return (y+1) + ((x-1) % (-y));}
else
if (y >= 0) {return (y-1) - ((-x-1) % y);}
else {return -((-x) % (-y));}
}
void SYSTEM_INHERIT(LONGINT *t, LONGINT *t0)
{
@ -57,19 +80,6 @@ void SYSTEM_ENUMR(void *adr, LONGINT *typ, LONGINT size, LONGINT n, void (*P)())
}
}
LONGINT SYSTEM_DIV(uint64 x, uint64 y)
{ if ((int64) x >= 0) return (x / y);
else return -((y - 1 - x) / y);
}
LONGINT SYSTEM_MOD(uint64 x, uint64 y)
{ uint64 m;
if ((int64) x >= 0) return (x % y);
else { m = (-x) % y;
if (m != 0) return (y - m); else return 0;
}
}
LONGINT SYSTEM_ENTIER(double x)
{
LONGINT y;

116
bootstrap/unix-44/SYSTEM.h
View file

@ -2,9 +2,17 @@
#define SYSTEM__h
// 64 bit system detection
#if (__SIZEOF_POINTER__ == 8) || defined (_LP64) || defined(__LP64__) || defined(_WIN64)
#define __o_64
#endif
// Temporary while bootstrapping and clearing up SYSTEM.c.
#ifndef LONGINT
#if (__SIZEOF_POINTER__ == 8) || defined(_WIN64)
#if defined (__o_64)
#define INTEGER int32
#define LONGINT int64
#define SET uint64
@ -22,14 +30,17 @@
// Declare memcpy in a way compatible with C compilers intrinsic
// built in implementations.
#if (__SIZEOF_POINTER__ == 8) || defined(_WIN64) || defined(__LP64__)
#if defined (__o_64)
#if defined(_WIN64)
typedef unsigned long long size_t;
// typedef long long address;
#else
typedef unsigned long size_t;
// typedef long address;
#endif
#else
typedef unsigned int size_t;
//typedef int address;
#endif
#define _SIZE_T_DECLARED // For FreeBSD
@ -40,14 +51,14 @@ void *memcpy(void *dest, const void *source, size_t size);
// Declare fixed size versions of basic intger types
#if (__SIZEOF_POINTER__ < 8) || defined(_WIN64)
// ILP32 or LLP64
typedef long long int64;
typedef unsigned long long uint64;
#else
#if defined (__o_64) && !defined(_WIN64)
// LP64
typedef long int64;
typedef unsigned long uint64;
#else
// ILP32 or LLP64
typedef long long int64;
typedef unsigned long long uint64;
#endif
typedef int int32;
@ -59,7 +70,14 @@ typedef unsigned short int uint16;
typedef signed char int8;
typedef unsigned char uint8;
#define address size_t
// 'address' is a synonym for an int32 of pointer size
#if defined (__o_64)
#define address int64
#else
#define address int32
#endif
// The compiler uses 'import' and 'export' which translate to 'extern' and
// nothing respectively.
@ -103,18 +121,40 @@ extern address Platform_OSAllocate (address size);
extern void Platform_OSFree (address addr);
// Assertions and Halts
extern void Platform_Halt(LONGINT x);
extern void Platform_AssertFail(LONGINT x);
#define __HALT(x) Platform_Halt(x)
#define __ASSERT(cond, x) if (!(cond)) Platform_AssertFail((LONGINT)(x))
// Index checking
static inline int64 __XF(uint64 i, uint64 ub) {if (i >= ub) {__HALT(-2);} return i;}
#define __X(i, ub) (((uint64)(i)<(uint64)(ub))?i:(__HALT(-2),0))
// Range checking, and checked SHORT and CHR functions
static inline int64 __RF(uint64 i, uint64 ub) {if (i >= ub) {__HALT(-8);} return i;}
#define __R(i, ub) (((uint64)(i)<(uint64)(ub))?i:(__HALT(-8),0))
#define __SHORT(x, ub) ((int)((uLONGINT)(x)+(ub)<(ub)+(ub)?(x):(__HALT(-8),0)))
#define __SHORTF(x, ub) ((int)(__RF((x)+(ub),(ub)+(ub))-(ub)))
#define __CHR(x) ((CHAR)__R(x, 256))
#define __CHRF(x) ((CHAR)__RF(x, 256))
// Run time system routines in SYSTEM.c
extern int64 SYSTEM_XCHK (uint64 i, uint64 ub);
extern int64 SYSTEM_RCHK (uint64 i, uint64 ub);
extern LONGINT SYSTEM_ASH (LONGINT i, LONGINT n);
extern LONGINT SYSTEM_ABS (LONGINT i);
extern double SYSTEM_ABSD (double i);
extern void SYSTEM_INHERIT(LONGINT *t, LONGINT *t0);
extern void SYSTEM_ENUMP (void *adr, LONGINT n, void (*P)());
extern void SYSTEM_ENUMR (void *adr, LONGINT *typ, LONGINT size, LONGINT n, void (*P)());
extern LONGINT SYSTEM_DIV (uint64 x, uint64 y);
extern LONGINT SYSTEM_MOD (uint64 x, uint64 y);
extern LONGINT SYSTEM_ENTIER (double x);
@ -131,7 +171,7 @@ extern LONGINT SYSTEM_ENTIER (double x);
// String comparison
static int __str_cmp(CHAR *x, CHAR *y){
static inline int __str_cmp(CHAR *x, CHAR *y){
LONGINT i = 0;
CHAR ch1, ch2;
do {ch1 = x[i]; ch2 = y[i]; i++;
@ -152,21 +192,12 @@ static int __str_cmp(CHAR *x, CHAR *y){
#define __DEL(x) Platform_OSFree((address)x)
// Index and range checks
#define __X(i, ub) (((uint64)(i)<(uint64)(ub))?i:(__HALT(-2),0))
#define __XF(i, ub) SYSTEM_XCHK((uint64)(i), (uint64)(ub))
#define __R(i, ub) (((uint64)(i)<(uint64)(ub))?i:(__HALT(-8),0))
#define __RF(i, ub) SYSTEM_RCHK((uint64)(i),(uint64)(ub))
/* SYSTEM ops */
#define __VAL(t, x) (*(t*)&(x))
#define __GET(a, x, t) x= *(t*)(address)(a)
#define __GET(a, x, t) x=*(t*)(address)(a)
#define __PUT(a, x, t) *(t*)(address)(a)=x
#define __LSHL(x, n, t) ((t)((u##t)(x)<<(n)))
@ -177,21 +208,27 @@ static int __str_cmp(CHAR *x, CHAR *y){
#define __ROTR(x, n, t) ((t)((u##t)(x)>>(n)|(u##t)(x)<<(8*sizeof(t)-(n))))
#define __ROT(x, n, t) ((n)>=0? __ROTL(x, n, t): __ROTR(x, -(n), t))
#define __ASHL(x, n) ((LONGINT)(x)<<(n))
#define __ASHR(x, n) ((LONGINT)(x)>>(n))
#define __ASHL(x, n) ((int64)(x)<<(n))
#define __ASHR(x, n) ((int64)(x)>>(n))
#define __ASH(x, n) ((n)>=0?__ASHL(x,n):__ASHR(x,-(n)))
#define __ASHF(x, n) SYSTEM_ASH((LONGINT)(x), (LONGINT)(n))
static inline int64 SYSTEM_ASH(int64 x, int64 n) {return __ASH(x,n);}
#define __ASHF(x, n) SYSTEM_ASH((int64)(x), (int64)(n))
#define __BIT(x, n) (*(uint64*)(x)>>(n)&1)
#define __MOVE(s, d, n) memcpy((char*)(address)(d),(char*)(address)(s),n)
#define __SHORT(x, y) ((int)((uLONGINT)(x)+(y)<(y)+(y)?(x):(__HALT(-8),0)))
#define __SHORTF(x, y) ((int)(__RF((x)+(y),(y)+(y))-(y)))
#define __CHR(x) ((CHAR)__R(x, 256))
#define __CHRF(x) ((CHAR)__RF(x, 256))
#define __DIV(x, y) ((x)>=0?(x)/(y):-(((y)-1-(x))/(y)))
#define __DIVF(x, y) SYSTEM_DIV((LONGINT)(x),(LONGINT)(y))
#define __MOD(x, y) ((x)>=0?(x)%(y):__MODF(x,y))
#define __MODF(x, y) SYSTEM_MOD((LONGINT)(x),(LONGINT)(y))
extern int64 SYSTEM_DIV(int64 x, int64 y);
#define __DIVF(x, y) SYSTEM_DIV(x, y)
#define __DIV(x, y) (((x)>0 && (y)>0) ? (x)/(y) : __DIVF(x, y))
extern int64 SYSTEM_MOD(int64 x, int64 y);
#define __MODF(x, y) SYSTEM_MOD(x, y)
#define __MOD(x, y) (((x)>0 && (y)>0) ? (x)%(y) : __MODF(x, y))
#define __ENTIER(x) SYSTEM_ENTIER(x)
#define __ABS(x) (((x)<0)?-(x):(x))
#define __ABSF(x) SYSTEM_ABS((LONGINT)(x))
@ -244,15 +281,6 @@ extern void Heap_FINALL();
#define __FINI Heap_FINALL(); return 0
// Assertions and Halts
extern void Platform_Halt(LONGINT x);
extern void Platform_AssertFail(LONGINT x);
#define __HALT(x) Platform_Halt(x)
#define __ASSERT(cond, x) if (!(cond)) Platform_AssertFail((LONGINT)(x))
// Memory allocation
extern SYSTEM_PTR Heap_NEWBLK (address size);

2
bootstrap/unix-44/Strings.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/Strings.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Strings__h
#define Strings__h

2
bootstrap/unix-44/Texts.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/Texts.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Texts__h
#define Texts__h

2
bootstrap/unix-44/Vishap.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkamSf */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkamSf */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/errors.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/errors.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef errors__h
#define errors__h

6
bootstrap/unix-44/extTools.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32
@ -64,7 +64,7 @@ void extTools_Assemble (CHAR *moduleName, LONGINT moduleName__len)
{
CHAR cmd[1023];
__DUP(moduleName, moduleName__len, CHAR);
__MOVE("gcc -g", cmd, 7);
__MOVE("gcc -g -O1", cmd, 11);
Strings_Append(extTools_compilationOptions, 1023, (void*)cmd, 1023);
Strings_Append((CHAR*)"-c ", 4, (void*)cmd, 1023);
Strings_Append(moduleName, moduleName__len, (void*)cmd, 1023);
@ -77,7 +77,7 @@ void extTools_LinkMain (CHAR *moduleName, LONGINT moduleName__len, BOOLEAN stati
{
CHAR cmd[1023];
__DUP(additionalopts, additionalopts__len, CHAR);
__MOVE("gcc -g", cmd, 7);
__MOVE("gcc -g -O1", cmd, 11);
Strings_Append((CHAR*)" ", 2, (void*)cmd, 1023);
Strings_Append(extTools_compilationOptions, 1023, (void*)cmd, 1023);
Strings_Append(moduleName, moduleName__len, (void*)cmd, 1023);

2
bootstrap/unix-44/extTools.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef extTools__h
#define extTools__h

2
bootstrap/unix-44/vt100.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-44/vt100.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef vt100__h
#define vt100__h

4
bootstrap/unix-48/Configuration.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32
@ -18,6 +18,6 @@ export void *Configuration__init(void)
__DEFMOD;
__REGMOD("Configuration", 0);
/* BEGIN */
__MOVE("1.95 [2016/09/06] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__MOVE("1.95 [2016/09/11] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__ENDMOD;
}

2
bootstrap/unix-48/Configuration.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Configuration__h
#define Configuration__h

2
bootstrap/unix-48/Console.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/Console.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Console__h
#define Console__h

2
bootstrap/unix-48/Files.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/Files.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tspkaSfF */
#ifndef Files__h
#define Files__h

4
bootstrap/unix-48/Heap.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tskSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tskSfF */
#define INTEGER int16
#define LONGINT int32
@ -353,7 +353,7 @@ static void Heap_Mark (address q)
tag = tagbits + 4;
for (;;) {
__GET(tag, offset, address);
if (__BIT((address)&offset, 31)) {
if (offset < 0) {
__PUT(q - 4, (tag + offset) + 1, address);
if (p == 0) {
break;

2
bootstrap/unix-48/Heap.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tskSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tskSfF */
#ifndef Heap__h
#define Heap__h

2
bootstrap/unix-48/Modules.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/Modules.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Modules__h
#define Modules__h

2
bootstrap/unix-48/OPB.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/OPB.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPB__h
#define OPB__h

2
bootstrap/unix-48/OPC.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/OPC.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPC__h
#define OPC__h

2
bootstrap/unix-48/OPM.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/OPM.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPM__h
#define OPM__h

2
bootstrap/unix-48/OPP.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/OPP.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPP__h
#define OPP__h

2
bootstrap/unix-48/OPS.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/OPS.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tspkaSfF */
#ifndef OPS__h
#define OPS__h

2
bootstrap/unix-48/OPT.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/OPT.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPT__h
#define OPT__h

2
bootstrap/unix-48/OPV.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/OPV.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPV__h
#define OPV__h

2
bootstrap/unix-48/Platform.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/Platform.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Platform__h
#define Platform__h

2
bootstrap/unix-48/Reals.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/Reals.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Reals__h
#define Reals__h

46
bootstrap/unix-48/SYSTEM.c
View file

@ -21,11 +21,34 @@
// Procedure verions of SYSTEM.H versions used when a multiply accessed
// parameter has side effects.
int64 SYSTEM_XCHK(uint64 i, uint64 ub) {return __X(i, ub);}
int64 SYSTEM_RCHK(uint64 i, uint64 ub) {return __R(i, ub);}
LONGINT SYSTEM_ASH (LONGINT i, LONGINT n) {return __ASH(i, n);}
LONGINT SYSTEM_ABS (LONGINT i) {return __ABS(i);}
double SYSTEM_ABSD(double i) {return __ABS(i);}
LONGINT SYSTEM_ABS (LONGINT i) {return __ABS(i);}
double SYSTEM_ABSD(double i) {return __ABS(i);}
int64 SYSTEM_DIV(int64 x, int64 y)
{
if (x == 0) return 0;
if (x >= 0)
if (y >= 0) {return x/y;}
else {return -((x-y-1)/(-y));}
else
if (y >= 0) {return -((y-x-1)/y);}
else {return (-x)/(-y);}
}
int64 SYSTEM_MOD(int64 x, int64 y)
{
if (x == 0) return 0;
if (x >= 0)
if (y >= 0) {return x % y;}
else {return (y+1) + ((x-1) % (-y));}
else
if (y >= 0) {return (y-1) - ((-x-1) % y);}
else {return -((-x) % (-y));}
}
void SYSTEM_INHERIT(LONGINT *t, LONGINT *t0)
{
@ -57,19 +80,6 @@ void SYSTEM_ENUMR(void *adr, LONGINT *typ, LONGINT size, LONGINT n, void (*P)())
}
}
LONGINT SYSTEM_DIV(uint64 x, uint64 y)
{ if ((int64) x >= 0) return (x / y);
else return -((y - 1 - x) / y);
}
LONGINT SYSTEM_MOD(uint64 x, uint64 y)
{ uint64 m;
if ((int64) x >= 0) return (x % y);
else { m = (-x) % y;
if (m != 0) return (y - m); else return 0;
}
}
LONGINT SYSTEM_ENTIER(double x)
{
LONGINT y;

116
bootstrap/unix-48/SYSTEM.h
View file

@ -2,9 +2,17 @@
#define SYSTEM__h
// 64 bit system detection
#if (__SIZEOF_POINTER__ == 8) || defined (_LP64) || defined(__LP64__) || defined(_WIN64)
#define __o_64
#endif
// Temporary while bootstrapping and clearing up SYSTEM.c.
#ifndef LONGINT
#if (__SIZEOF_POINTER__ == 8) || defined(_WIN64)
#if defined (__o_64)
#define INTEGER int32
#define LONGINT int64
#define SET uint64
@ -22,14 +30,17 @@
// Declare memcpy in a way compatible with C compilers intrinsic
// built in implementations.
#if (__SIZEOF_POINTER__ == 8) || defined(_WIN64) || defined(__LP64__)
#if defined (__o_64)
#if defined(_WIN64)
typedef unsigned long long size_t;
// typedef long long address;
#else
typedef unsigned long size_t;
// typedef long address;
#endif
#else
typedef unsigned int size_t;
//typedef int address;
#endif
#define _SIZE_T_DECLARED // For FreeBSD
@ -40,14 +51,14 @@ void *memcpy(void *dest, const void *source, size_t size);
// Declare fixed size versions of basic intger types
#if (__SIZEOF_POINTER__ < 8) || defined(_WIN64)
// ILP32 or LLP64
typedef long long int64;
typedef unsigned long long uint64;
#else
#if defined (__o_64) && !defined(_WIN64)
// LP64
typedef long int64;
typedef unsigned long uint64;
#else
// ILP32 or LLP64
typedef long long int64;
typedef unsigned long long uint64;
#endif
typedef int int32;
@ -59,7 +70,14 @@ typedef unsigned short int uint16;
typedef signed char int8;
typedef unsigned char uint8;
#define address size_t
// 'address' is a synonym for an int32 of pointer size
#if defined (__o_64)
#define address int64
#else
#define address int32
#endif
// The compiler uses 'import' and 'export' which translate to 'extern' and
// nothing respectively.
@ -103,18 +121,40 @@ extern address Platform_OSAllocate (address size);
extern void Platform_OSFree (address addr);
// Assertions and Halts
extern void Platform_Halt(LONGINT x);
extern void Platform_AssertFail(LONGINT x);
#define __HALT(x) Platform_Halt(x)
#define __ASSERT(cond, x) if (!(cond)) Platform_AssertFail((LONGINT)(x))
// Index checking
static inline int64 __XF(uint64 i, uint64 ub) {if (i >= ub) {__HALT(-2);} return i;}
#define __X(i, ub) (((uint64)(i)<(uint64)(ub))?i:(__HALT(-2),0))
// Range checking, and checked SHORT and CHR functions
static inline int64 __RF(uint64 i, uint64 ub) {if (i >= ub) {__HALT(-8);} return i;}
#define __R(i, ub) (((uint64)(i)<(uint64)(ub))?i:(__HALT(-8),0))
#define __SHORT(x, ub) ((int)((uLONGINT)(x)+(ub)<(ub)+(ub)?(x):(__HALT(-8),0)))
#define __SHORTF(x, ub) ((int)(__RF((x)+(ub),(ub)+(ub))-(ub)))
#define __CHR(x) ((CHAR)__R(x, 256))
#define __CHRF(x) ((CHAR)__RF(x, 256))
// Run time system routines in SYSTEM.c
extern int64 SYSTEM_XCHK (uint64 i, uint64 ub);
extern int64 SYSTEM_RCHK (uint64 i, uint64 ub);
extern LONGINT SYSTEM_ASH (LONGINT i, LONGINT n);
extern LONGINT SYSTEM_ABS (LONGINT i);
extern double SYSTEM_ABSD (double i);
extern void SYSTEM_INHERIT(LONGINT *t, LONGINT *t0);
extern void SYSTEM_ENUMP (void *adr, LONGINT n, void (*P)());
extern void SYSTEM_ENUMR (void *adr, LONGINT *typ, LONGINT size, LONGINT n, void (*P)());
extern LONGINT SYSTEM_DIV (uint64 x, uint64 y);
extern LONGINT SYSTEM_MOD (uint64 x, uint64 y);
extern LONGINT SYSTEM_ENTIER (double x);
@ -131,7 +171,7 @@ extern LONGINT SYSTEM_ENTIER (double x);
// String comparison
static int __str_cmp(CHAR *x, CHAR *y){
static inline int __str_cmp(CHAR *x, CHAR *y){
LONGINT i = 0;
CHAR ch1, ch2;
do {ch1 = x[i]; ch2 = y[i]; i++;
@ -152,21 +192,12 @@ static int __str_cmp(CHAR *x, CHAR *y){
#define __DEL(x) Platform_OSFree((address)x)
// Index and range checks
#define __X(i, ub) (((uint64)(i)<(uint64)(ub))?i:(__HALT(-2),0))
#define __XF(i, ub) SYSTEM_XCHK((uint64)(i), (uint64)(ub))
#define __R(i, ub) (((uint64)(i)<(uint64)(ub))?i:(__HALT(-8),0))
#define __RF(i, ub) SYSTEM_RCHK((uint64)(i),(uint64)(ub))
/* SYSTEM ops */
#define __VAL(t, x) (*(t*)&(x))
#define __GET(a, x, t) x= *(t*)(address)(a)
#define __GET(a, x, t) x=*(t*)(address)(a)
#define __PUT(a, x, t) *(t*)(address)(a)=x
#define __LSHL(x, n, t) ((t)((u##t)(x)<<(n)))
@ -177,21 +208,27 @@ static int __str_cmp(CHAR *x, CHAR *y){
#define __ROTR(x, n, t) ((t)((u##t)(x)>>(n)|(u##t)(x)<<(8*sizeof(t)-(n))))
#define __ROT(x, n, t) ((n)>=0? __ROTL(x, n, t): __ROTR(x, -(n), t))
#define __ASHL(x, n) ((LONGINT)(x)<<(n))
#define __ASHR(x, n) ((LONGINT)(x)>>(n))
#define __ASHL(x, n) ((int64)(x)<<(n))
#define __ASHR(x, n) ((int64)(x)>>(n))
#define __ASH(x, n) ((n)>=0?__ASHL(x,n):__ASHR(x,-(n)))
#define __ASHF(x, n) SYSTEM_ASH((LONGINT)(x), (LONGINT)(n))
static inline int64 SYSTEM_ASH(int64 x, int64 n) {return __ASH(x,n);}
#define __ASHF(x, n) SYSTEM_ASH((int64)(x), (int64)(n))
#define __BIT(x, n) (*(uint64*)(x)>>(n)&1)
#define __MOVE(s, d, n) memcpy((char*)(address)(d),(char*)(address)(s),n)
#define __SHORT(x, y) ((int)((uLONGINT)(x)+(y)<(y)+(y)?(x):(__HALT(-8),0)))
#define __SHORTF(x, y) ((int)(__RF((x)+(y),(y)+(y))-(y)))
#define __CHR(x) ((CHAR)__R(x, 256))
#define __CHRF(x) ((CHAR)__RF(x, 256))
#define __DIV(x, y) ((x)>=0?(x)/(y):-(((y)-1-(x))/(y)))
#define __DIVF(x, y) SYSTEM_DIV((LONGINT)(x),(LONGINT)(y))
#define __MOD(x, y) ((x)>=0?(x)%(y):__MODF(x,y))
#define __MODF(x, y) SYSTEM_MOD((LONGINT)(x),(LONGINT)(y))
extern int64 SYSTEM_DIV(int64 x, int64 y);
#define __DIVF(x, y) SYSTEM_DIV(x, y)
#define __DIV(x, y) (((x)>0 && (y)>0) ? (x)/(y) : __DIVF(x, y))
extern int64 SYSTEM_MOD(int64 x, int64 y);
#define __MODF(x, y) SYSTEM_MOD(x, y)
#define __MOD(x, y) (((x)>0 && (y)>0) ? (x)%(y) : __MODF(x, y))
#define __ENTIER(x) SYSTEM_ENTIER(x)
#define __ABS(x) (((x)<0)?-(x):(x))
#define __ABSF(x) SYSTEM_ABS((LONGINT)(x))
@ -244,15 +281,6 @@ extern void Heap_FINALL();
#define __FINI Heap_FINALL(); return 0
// Assertions and Halts
extern void Platform_Halt(LONGINT x);
extern void Platform_AssertFail(LONGINT x);
#define __HALT(x) Platform_Halt(x)
#define __ASSERT(cond, x) if (!(cond)) Platform_AssertFail((LONGINT)(x))
// Memory allocation
extern SYSTEM_PTR Heap_NEWBLK (address size);

2
bootstrap/unix-48/Strings.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/Strings.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Strings__h
#define Strings__h

2
bootstrap/unix-48/Texts.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/Texts.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Texts__h
#define Texts__h

2
bootstrap/unix-48/Vishap.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkamSf */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkamSf */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/errors.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/errors.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef errors__h
#define errors__h

6
bootstrap/unix-48/extTools.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32
@ -64,7 +64,7 @@ void extTools_Assemble (CHAR *moduleName, LONGINT moduleName__len)
{
CHAR cmd[1023];
__DUP(moduleName, moduleName__len, CHAR);
__MOVE("gcc -g", cmd, 7);
__MOVE("gcc -g -O1", cmd, 11);
Strings_Append(extTools_compilationOptions, 1023, (void*)cmd, 1023);
Strings_Append((CHAR*)"-c ", 4, (void*)cmd, 1023);
Strings_Append(moduleName, moduleName__len, (void*)cmd, 1023);
@ -77,7 +77,7 @@ void extTools_LinkMain (CHAR *moduleName, LONGINT moduleName__len, BOOLEAN stati
{
CHAR cmd[1023];
__DUP(additionalopts, additionalopts__len, CHAR);
__MOVE("gcc -g", cmd, 7);
__MOVE("gcc -g -O1", cmd, 11);
Strings_Append((CHAR*)" ", 2, (void*)cmd, 1023);
Strings_Append(extTools_compilationOptions, 1023, (void*)cmd, 1023);
Strings_Append(moduleName, moduleName__len, (void*)cmd, 1023);

2
bootstrap/unix-48/extTools.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef extTools__h
#define extTools__h

2
bootstrap/unix-48/vt100.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int16
#define LONGINT int32

2
bootstrap/unix-48/vt100.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef vt100__h
#define vt100__h

4
bootstrap/unix-88/Configuration.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int32
#define LONGINT int64
@ -18,6 +18,6 @@ export void *Configuration__init(void)
__DEFMOD;
__REGMOD("Configuration", 0);
/* BEGIN */
__MOVE("1.95 [2016/09/06] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__MOVE("1.95 [2016/09/11] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__ENDMOD;
}

2
bootstrap/unix-88/Configuration.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Configuration__h
#define Configuration__h

2
bootstrap/unix-88/Console.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int32
#define LONGINT int64

2
bootstrap/unix-88/Console.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Console__h
#define Console__h

2
bootstrap/unix-88/Files.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tspkaSfF */
#define INTEGER int32
#define LONGINT int64

2
bootstrap/unix-88/Files.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tspkaSfF */
#ifndef Files__h
#define Files__h

4
bootstrap/unix-88/Heap.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tskSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tskSfF */
#define INTEGER int32
#define LONGINT int64
@ -353,7 +353,7 @@ static void Heap_Mark (address q)
tag = tagbits + 8;
for (;;) {
__GET(tag, offset, address);
if (__BIT((address)&offset, 63)) {
if (offset < 0) {
__PUT(q - 8, (tag + offset) + 1, address);
if (p == 0) {
break;

2
bootstrap/unix-88/Heap.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin tskSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin tskSfF */
#ifndef Heap__h
#define Heap__h

2
bootstrap/unix-88/Modules.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int32
#define LONGINT int64

2
bootstrap/unix-88/Modules.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Modules__h
#define Modules__h

2
bootstrap/unix-88/OPB.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int32
#define LONGINT int64

2
bootstrap/unix-88/OPB.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPB__h
#define OPB__h

2
bootstrap/unix-88/OPC.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int32
#define LONGINT int64

2
bootstrap/unix-88/OPC.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPC__h
#define OPC__h

2
bootstrap/unix-88/OPM.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int32
#define LONGINT int64

2
bootstrap/unix-88/OPM.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPM__h
#define OPM__h

2
bootstrap/unix-88/OPP.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int32
#define LONGINT int64

2
bootstrap/unix-88/OPP.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/06] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/11] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPP__h
#define OPP__h

Some files were not shown because too many files have changed in this diff Show more