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

Force git rename of VT100 in bootstrap, make SYSTEM.* mdel independent.

Browse source
This commit is contained in:
David Brown 2016-10-15 19:05:08 +01:00
parent 80de6dc216
commit 1507d9cb0a
34 changed files with 152 additions and 131 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -26,7 +26,7 @@ static CHAR Compiler_mname[256];
export void Compiler_Module (BOOLEAN *done);
static void Compiler_PropagateElementaryTypeSizes (void);
export void Compiler_Translate (void);
static void Compiler_Trap (int16 sig);
static void Compiler_Trap (int32 sig);
void Compiler_Module (BOOLEAN *done)
@ -147,7 +147,7 @@ void Compiler_Translate (void)
}
}
static void Compiler_Trap (int16 sig)
static void Compiler_Trap (int32 sig)
{
Heap_FINALL();
if (sig == 3) {

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

@ -28,7 +28,7 @@ typedef
void (*Platform_HaltProcedure)(int32);
typedef
void (*Platform_SignalHandler)(int16);
void (*Platform_SignalHandler)(int32);
export BOOLEAN Platform_LittleEndian;
@ -65,7 +65,7 @@ export void Platform_Halt (int32 code);
export int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, address *identity__typ);
export int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ);
export BOOLEAN Platform_Inaccessible (int16 e);
export void Platform_Init (int16 argc, int32 argvadr);
export void Platform_Init (int32 argc, int32 argvadr);
export BOOLEAN Platform_Interrupted (int16 e);
export void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d);
export int16 Platform_New (CHAR *n, LONGINT n__len, int32 *h);
@ -240,11 +240,11 @@ void Platform_OSFree (int32 address)
Platform_free(address);
}
void Platform_Init (int16 argc, int32 argvadr)
void Platform_Init (int32 argc, int32 argvadr)
{
Platform_ArgVecPtr av = NIL;
Platform_MainStackFrame = argvadr;
Platform_ArgCount = argc;
Platform_ArgCount = __VAL(int16, argc);
av = (Platform_ArgVecPtr)(address)argvadr;
Platform_ArgVector = (*av)[0];
Platform_HaltCode = -128;

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

@ -15,7 +15,7 @@ typedef
void (*Platform_HaltProcedure)(int32);
typedef
void (*Platform_SignalHandler)(int16);
void (*Platform_SignalHandler)(int32);
import BOOLEAN Platform_LittleEndian;
@ -49,7 +49,7 @@ import void Platform_Halt (int32 code);
import int16 Platform_Identify (int32 h, Platform_FileIdentity *identity, address *identity__typ);
import int16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, address *identity__typ);
import BOOLEAN Platform_Inaccessible (int16 e);
import void Platform_Init (int16 argc, int32 argvadr);
import void Platform_Init (int32 argc, int32 argvadr);
import BOOLEAN Platform_Interrupted (int16 e);
import void Platform_MTimeAsClock (Platform_FileIdentity i, int32 *t, int32 *d);
import int16 Platform_New (CHAR *n, LONGINT n__len, int32 *h);

0
bootstrap/unix-44/vt100.c → bootstrap/unix-44/VT100.c
View file

0
bootstrap/unix-44/vt100.h → bootstrap/unix-44/VT100.h
View file