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

Update boostrap source

Browse source
This commit is contained in:
David Brown 2016-07-22 20:20:57 +01:00
parent 6d957bf0bb
commit b1dc7d77e8
201 changed files with 242 additions and 225 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
@ -13,6 +13,6 @@ export void *Configuration__init(void)
__DEFMOD;
__REGMOD("Configuration", 0);
/* BEGIN */
__MOVE("1.95 [2016/07/21] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__MOVE("1.95 [2016/07/22] for gcc LP64 on cygwin", Configuration_versionLong, 41);
__ENDMOD;
}

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Configuration__h
#define Configuration__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
#include "Platform.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Console__h
#define Console__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin tspkaSfF */
#include "SYSTEM.h"
#include "Configuration.h"
#include "Console.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin tspkaSfF */
#ifndef Files__h
#define Files__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin tskSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin tskSfF */
#include "SYSTEM.h"
struct Heap__1 {
@ -579,7 +579,7 @@ void Heap_FINALL (void)
static void Heap_MarkStack (LONGINT n, LONGINT *cand, LONGINT cand__len)
{
SYSTEM_PTR frame;
LONGINT inc, nofcand, sp, p, stack0, ptr;
LONGINT inc, nofcand, sp, p, stack0;
struct Heap__1 align;
if (n > 0) {
Heap_MarkStack(n - 1, cand, cand__len);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin tskSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin tskSfF */
#ifndef Heap__h
#define Heap__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
#include "Console.h"
#include "Heap.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Modules__h
#define Modules__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
#include "OPM.h"
#include "OPS.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPB__h
#define OPB__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
#include "Configuration.h"
#include "OPM.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPC__h
#define OPC__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
#include "Configuration.h"
#include "Console.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPM__h
#define OPM__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
#include "OPB.h"
#include "OPM.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPP__h
#define OPP__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin tspkaSfF */
#include "SYSTEM.h"
#include "OPM.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin tspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin tspkaSfF */
#ifndef OPS__h
#define OPS__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
#include "OPM.h"
#include "OPS.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPT__h
#define OPT__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
#include "OPC.h"
#include "OPM.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef OPV__h
#define OPV__h

25
bootstrap/windows-48/Platform.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
typedef
@ -131,6 +131,7 @@ extern void Heap_InitHeap();
#define Platform_fileTimeToSysTime() SYSTEMTIME st; FileTimeToSystemTime(&ft, &st)
#define Platform_flushFileBuffers(h) (INTEGER)FlushFileBuffers((HANDLE)(uintptr_t)h)
#define Platform_free(address) HeapFree(GetProcessHeap(), 0, (void*)(uintptr_t)address)
#define Platform_ftToUli() ULARGE_INTEGER ul; ul.LowPart=ft.dwLowDateTime; ul.HighPart=ft.dwHighDateTime
#define Platform_getCurrentDirectory(n, n__len) GetCurrentDirectory(n__len, (char*)n)
#define Platform_getExitCodeProcess(exitcode) GetExitCodeProcess(pi.hProcess, (DWORD*)exitcode);
#define Platform_getFileInformationByHandle(h) (INTEGER)GetFileInformationByHandle((HANDLE)(uintptr_t)h, &bhfi)
@ -159,6 +160,7 @@ extern void Heap_InitHeap();
#define Platform_setEndOfFile(h) (INTEGER)SetEndOfFile((HANDLE)(uintptr_t)h)
#define Platform_setFilePointerEx(h, o, r, rc) li.QuadPart=o; *rc = (INTEGER)SetFilePointerEx((HANDLE)(uintptr_t)h, li, 0, (DWORD)r)
#define Platform_sleep(ms) Sleep((DWORD)ms)
#define Platform_stToFt() FILETIME ft; SystemTimeToFileTime(&st, &ft)
#define Platform_startupInfo() STARTUPINFO si = {0}; si.cb = sizeof(si);
#define Platform_sthour() (INTEGER)st.wHour
#define Platform_stmday() (INTEGER)st.wDay
@ -167,6 +169,9 @@ extern void Heap_InitHeap();
#define Platform_stmsec() (INTEGER)st.wMilliseconds
#define Platform_stsec() (INTEGER)st.wSecond
#define Platform_styear() (INTEGER)st.wYear
#define Platform_tous1970() ul.QuadPart = (ul.QuadPart - 116444736000000000ULL)/10LL
#define Platform_ulSec() (LONGINT)(ul.QuadPart / 1000000LL)
#define Platform_uluSec() (LONGINT)(ul.QuadPart % 1000000LL)
#define Platform_waitForProcess() (INTEGER)WaitForSingleObject(pi.hProcess, INFINITE)
#define Platform_writefile(fd, p, l) (INTEGER)WriteFile((HANDLE)(uintptr_t)fd, (void*)(uintptr_t)(p), (DWORD)l, 0,0)
@ -339,13 +344,6 @@ void Platform_GetClock (LONGINT *t, LONGINT *d)
Platform_YMDHMStoClock(Platform_styear(), Platform_stmon(), Platform_stmday(), Platform_sthour(), Platform_stmin(), Platform_stsec(), &*t, &*d);
}
void Platform_GetTimeOfDay (LONGINT *sec, LONGINT *usec)
{
Platform_getLocalTime();
*sec = Platform_stsec();
*usec = (LONGINT)Platform_stmsec() * 1000;
}
LONGINT Platform_Time (void)
{
LONGINT _o_result;
@ -366,6 +364,16 @@ void Platform_Delay (LONGINT ms)
}
}
void Platform_GetTimeOfDay (LONGINT *sec, LONGINT *usec)
{
Platform_getLocalTime();
Platform_stToFt();
Platform_ftToUli();
Platform_tous1970();
*sec = Platform_ulSec();
*usec = Platform_uluSec();
}
INTEGER Platform_System (CHAR *cmd, LONGINT cmd__len)
{
INTEGER _o_result;
@ -801,6 +809,7 @@ export void *Platform__init(void)
Platform_TestLittleEndian();
Platform_HaltCode = -128;
Platform_HaltHandler = NIL;
Platform_TimeStart = 0;
Platform_TimeStart = Platform_Time();
Platform_CWD[0] = 0x00;
Platform_getCurrentDirectory((void*)Platform_CWD, ((LONGINT)(4096)));

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Platform__h
#define Platform__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Reals__h
#define Reals__h

1
bootstrap/windows-48/SYSTEM.h
View file

@ -209,7 +209,6 @@ extern void Heap_INCREF();
// Main module initialisation, registration and finalisation
extern void Platform_Init(INTEGER argc, LONGINT argv);
extern void *Platform_MainModule;
extern void Heap_FINALL();
#define __INIT(argc, argv) static void *m; Platform_Init((INTEGER)argc, (LONGINT)(uintptr_t)&argv);

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Strings__h
#define Strings__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
#include "Files.h"
#include "Modules.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef Texts__h
#define Texts__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkamSf */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkamSf */
#include "SYSTEM.h"
#include "Configuration.h"
#include "Heap.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
typedef

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef errors__h
#define errors__h

2
bootstrap/windows-48/extTools.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
#include "Configuration.h"
#include "Console.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef extTools__h
#define extTools__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#include "SYSTEM.h"
#include "Console.h"
#include "Strings.h"

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/07/21] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/07/22] for gcc LP64 on cygwin xtspkaSfF */
#ifndef vt100__h
#define vt100__h