mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 01:42:24 +00:00
Update bootstrap
This commit is contained in:
David Brown
parent
45d3daa11e
commit
2cd28725ea
195 changed files with 312 additions and 305 deletions
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspamSf */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspamSf */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
@ -19,6 +19,6 @@ export void *Configuration__init(void)
|
|||
__DEFMOD;
|
||||
__REGMOD("Configuration", 0);
|
||||
/* BEGIN */
|
||||
__MOVE("1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8.", Configuration_versionLong, 75);
|
||||
__MOVE("1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8.", Configuration_versionLong, 75);
|
||||
__ENDMOD;
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef Configuration__h
|
||||
#define Configuration__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. tspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
@ -33,7 +33,8 @@ typedef
|
|||
Files_FileName workName, registerName;
|
||||
BOOLEAN tempFile;
|
||||
Platform_FileIdentity identity;
|
||||
INT32 fd, len, pos;
|
||||
INT64 fd;
|
||||
INT32 len, pos;
|
||||
Files_Buffer bufs[4];
|
||||
INT16 swapper, state;
|
||||
Files_File next;
|
||||
|
|
@ -307,10 +308,6 @@ void Files_Close (Files_File f)
|
|||
Files_Flush(f->bufs[i]);
|
||||
i += 1;
|
||||
}
|
||||
error = Platform_Sync(f->fd);
|
||||
if (error != 0) {
|
||||
Files_Err((CHAR*)"error writing file", 19, f, error);
|
||||
}
|
||||
Files_CloseOSFile(f);
|
||||
}
|
||||
}
|
||||
|
|
@ -422,7 +419,7 @@ static Files_File Files_CacheEntry (Platform_FileIdentity identity)
|
|||
Files_File Files_Old (CHAR *name, LONGINT name__len)
|
||||
{
|
||||
Files_File f = NIL;
|
||||
INT32 fd;
|
||||
INT64 fd;
|
||||
INT16 pos;
|
||||
BOOLEAN done;
|
||||
CHAR dir[256], path[256];
|
||||
|
|
@ -726,7 +723,8 @@ void Files_Delete (CHAR *name, LONGINT name__len, INT16 *res)
|
|||
|
||||
void Files_Rename (CHAR *old, LONGINT old__len, CHAR *new, LONGINT new__len, INT16 *res)
|
||||
{
|
||||
INT32 fdold, fdnew, n;
|
||||
INT64 fdold, fdnew;
|
||||
INT32 n;
|
||||
INT16 error, ignore;
|
||||
Platform_FileIdentity oldidentity, newidentity;
|
||||
CHAR buf[4096];
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. tspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSfF */
|
||||
|
||||
#ifndef Files__h
|
||||
#define Files__h
|
||||
|
|
@ -10,10 +10,9 @@ typedef
|
|||
|
||||
typedef
|
||||
struct Files_FileDesc {
|
||||
INT64 _prvt0;
|
||||
char _prvt1[216];
|
||||
INT32 fd;
|
||||
char _prvt2[60];
|
||||
char _prvt0[224];
|
||||
INT64 fd;
|
||||
char _prvt1[56];
|
||||
} Files_FileDesc;
|
||||
|
||||
typedef
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. tsSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. tsSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. tsSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. tsSfF */
|
||||
|
||||
#ifndef Heap__h
|
||||
#define Heap__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef Modules__h
|
||||
#define Modules__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef OPB__h
|
||||
#define OPB__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef OPC__h
|
||||
#define OPC__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef OPM__h
|
||||
#define OPM__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef OPP__h
|
||||
#define OPP__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. tspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. tspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. tspaSfF */
|
||||
|
||||
#ifndef OPS__h
|
||||
#define OPS__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef OPT__h
|
||||
#define OPT__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef OPV__h
|
||||
#define OPV__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef Out__h
|
||||
#define Out__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
@ -41,7 +41,7 @@ export INT64 Platform_ArgVector;
|
|||
static Platform_HaltProcedure Platform_HaltHandler;
|
||||
static INT32 Platform_TimeStart;
|
||||
export INT16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd;
|
||||
export INT32 Platform_StdIn, Platform_StdOut, Platform_StdErr;
|
||||
export INT64 Platform_StdIn, Platform_StdOut, Platform_StdErr;
|
||||
static Platform_SignalHandler Platform_InterruptHandler;
|
||||
export CHAR Platform_NL[3];
|
||||
|
||||
|
|
@ -51,11 +51,12 @@ export BOOLEAN Platform_Absent (INT16 e);
|
|||
export INT16 Platform_ArgPos (CHAR *s, LONGINT s__len);
|
||||
export void Platform_AssertFail (INT32 code);
|
||||
export INT16 Platform_Chdir (CHAR *n, LONGINT n__len);
|
||||
export INT16 Platform_Close (INT32 h);
|
||||
export INT16 Platform_Close (INT64 h);
|
||||
export BOOLEAN Platform_ConnectionFailed (INT16 e);
|
||||
export void Platform_Delay (INT32 ms);
|
||||
export BOOLEAN Platform_DifferentFilesystems (INT16 e);
|
||||
static void Platform_DisplayHaltCode (INT32 code);
|
||||
static void Platform_EnableVT100 (void);
|
||||
export INT16 Platform_Error (void);
|
||||
export void Platform_Exit (INT16 code);
|
||||
export void Platform_GetArg (INT16 n, CHAR *val, LONGINT val__len);
|
||||
|
|
@ -64,37 +65,37 @@ export void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val
|
|||
export void Platform_GetIntArg (INT16 n, INT32 *val);
|
||||
export void Platform_GetTimeOfDay (INT32 *sec, INT32 *usec);
|
||||
export void Platform_Halt (INT32 code);
|
||||
export INT16 Platform_Identify (INT32 h, Platform_FileIdentity *identity, ADDRESS *identity__typ);
|
||||
export INT16 Platform_Identify (INT64 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 (INT32 argc, INT64 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);
|
||||
export INT16 Platform_New (CHAR *n, LONGINT n__len, INT64 *h);
|
||||
export BOOLEAN Platform_NoSuchDirectory (INT16 e);
|
||||
export INT64 Platform_OSAllocate (INT64 size);
|
||||
export void Platform_OSFree (INT64 address);
|
||||
export INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h);
|
||||
export INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h);
|
||||
export INT16 Platform_Read (INT32 h, INT64 p, INT32 l, INT32 *n);
|
||||
export INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n);
|
||||
export INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT64 *h);
|
||||
export INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT64 *h);
|
||||
export INT16 Platform_Read (INT64 h, INT64 p, INT32 l, INT32 *n);
|
||||
export INT16 Platform_ReadBuf (INT64 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n);
|
||||
export INT16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len);
|
||||
export BOOLEAN Platform_SameFile (Platform_FileIdentity i1, Platform_FileIdentity i2);
|
||||
export BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i2);
|
||||
export INT16 Platform_Seek (INT32 h, INT32 o, INT16 r);
|
||||
export INT16 Platform_Seek (INT64 h, INT32 o, INT16 r);
|
||||
export void Platform_SetBadInstructionHandler (Platform_SignalHandler handler);
|
||||
export void Platform_SetHalt (Platform_HaltProcedure p);
|
||||
export void Platform_SetMTime (Platform_FileIdentity *target, ADDRESS *target__typ, Platform_FileIdentity source);
|
||||
export INT16 Platform_Size (INT32 h, INT32 *l);
|
||||
export INT16 Platform_Sync (INT32 h);
|
||||
export INT16 Platform_Size (INT64 h, INT32 *l);
|
||||
export INT16 Platform_Sync (INT64 h);
|
||||
export INT16 Platform_System (CHAR *cmd, LONGINT cmd__len);
|
||||
static void Platform_TestLittleEndian (void);
|
||||
export INT32 Platform_Time (void);
|
||||
export BOOLEAN Platform_TimedOut (INT16 e);
|
||||
export BOOLEAN Platform_TooManyFiles (INT16 e);
|
||||
export INT16 Platform_Truncate (INT32 h, INT32 limit);
|
||||
export INT16 Platform_Truncate (INT64 h, INT32 limit);
|
||||
export INT16 Platform_Unlink (CHAR *n, LONGINT n__len);
|
||||
export INT16 Platform_Write (INT32 h, INT64 p, INT32 l);
|
||||
export INT16 Platform_Write (INT64 h, INT64 p, INT32 l);
|
||||
static void Platform_YMDHMStoClock (INT16 ye, INT16 mo, INT16 da, INT16 ho, INT16 mi, INT16 se, INT32 *t, INT32 *d);
|
||||
static void Platform_errch (CHAR c);
|
||||
static void Platform_errint (INT32 l);
|
||||
|
|
@ -118,10 +119,13 @@ export BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT
|
|||
#define Platform_ERRORWRITEPROTECT() ERROR_WRITE_PROTECT
|
||||
#define Platform_ETIMEDOUT() WSAETIMEDOUT
|
||||
extern void Heap_InitHeap();
|
||||
#define Platform_GetConsoleMode(h, m) GetConsoleMode((HANDLE)h, m)
|
||||
#define Platform_GetTickCount() (LONGINT)(UINT32)GetTickCount()
|
||||
#define Platform_HeapInitHeap() Heap_InitHeap()
|
||||
#define Platform_SetConsoleMode(h, m) SetConsoleMode((HANDLE)h, m)
|
||||
#define Platform_SetInterruptHandler(h) SystemSetInterruptHandler((ADDRESS)h)
|
||||
#define Platform_SetQuitHandler(h) SystemSetQuitHandler((ADDRESS)h)
|
||||
#define Platform_VTprocessing() ENABLE_VIRTUAL_TERMINAL_PROCESSING
|
||||
#define Platform_allocate(size) (ADDRESS)((void*)HeapAlloc(GetProcessHeap(), 0, (size_t)size))
|
||||
#define Platform_bhfiIndexHigh() (LONGINT)bhfi.nFileIndexHigh
|
||||
#define Platform_bhfiIndexLow() (LONGINT)bhfi.nFileIndexLow
|
||||
|
|
@ -130,44 +134,44 @@ extern void Heap_InitHeap();
|
|||
#define Platform_bhfiVsn() (LONGINT)bhfi.dwVolumeSerialNumber
|
||||
#define Platform_byHandleFileInformation() BY_HANDLE_FILE_INFORMATION bhfi
|
||||
#define Platform_cleanupProcess() CloseHandle(pi.hProcess); CloseHandle(pi.hThread);
|
||||
#define Platform_closeHandle(h) (INTEGER)CloseHandle((HANDLE)(ADDRESS)h)
|
||||
#define Platform_closeHandle(h) (INTEGER)CloseHandle((HANDLE)h)
|
||||
#define Platform_createProcess(str, str__len) (INTEGER)CreateProcess(0, (char*)str, 0,0,0,0,0,0,&si,&pi)
|
||||
#define Platform_deleteFile(n, n__len) (INTEGER)DeleteFile((char*)n)
|
||||
#define Platform_err() (INTEGER)GetLastError()
|
||||
#define Platform_errc(c) WriteFile((HANDLE)(ADDRESS)Platform_StdOut, &c, 1, 0,0)
|
||||
#define Platform_errstring(s, s__len) WriteFile((HANDLE)(ADDRESS)Platform_StdOut, s, s__len-1, 0,0)
|
||||
#define Platform_errc(c) WriteFile((HANDLE)Platform_StdOut, &c, 1, 0,0)
|
||||
#define Platform_errstring(s, s__len) WriteFile((HANDLE)Platform_StdOut, s, s__len-1, 0,0)
|
||||
#define Platform_exit(code) ExitProcess((UINT)code)
|
||||
#define Platform_fileTimeToSysTime() SYSTEMTIME st; FileTimeToSystemTime(&ft, &st)
|
||||
#define Platform_flushFileBuffers(h) (INTEGER)FlushFileBuffers((HANDLE)(ADDRESS)h)
|
||||
#define Platform_flushFileBuffers(h) (INTEGER)FlushFileBuffers((HANDLE)h)
|
||||
#define Platform_free(address) HeapFree(GetProcessHeap(), 0, (void*)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)(ADDRESS)h, &bhfi)
|
||||
#define Platform_getFilePos(h, r, rc) LARGE_INTEGER liz = {0}; *rc = (INTEGER)SetFilePointerEx((HANDLE)(ADDRESS)h, liz, &li, FILE_CURRENT); *r = (LONGINT)li.QuadPart
|
||||
#define Platform_getFileSize(h) (INTEGER)GetFileSizeEx((HANDLE)(ADDRESS)h, &li)
|
||||
#define Platform_getFileInformationByHandle(h) (INTEGER)GetFileInformationByHandle((HANDLE)h, &bhfi)
|
||||
#define Platform_getFilePos(h, r, rc) LARGE_INTEGER liz = {0}; *rc = (INTEGER)SetFilePointerEx((HANDLE)h, liz, &li, FILE_CURRENT); *r = (LONGINT)li.QuadPart
|
||||
#define Platform_getFileSize(h) (INTEGER)GetFileSizeEx((HANDLE)h, &li)
|
||||
#define Platform_getLocalTime() SYSTEMTIME st; GetLocalTime(&st)
|
||||
#define Platform_getenv(name, name__len, buf, buf__len) (INTEGER)GetEnvironmentVariable((char*)name, (char*)buf, buf__len)
|
||||
#define Platform_getpid() (INTEGER)GetCurrentProcessId()
|
||||
#define Platform_getstderrhandle() (LONGINT)(ADDRESS)GetStdHandle(STD_ERROR_HANDLE)
|
||||
#define Platform_getstdinhandle() (LONGINT)(ADDRESS)GetStdHandle(STD_INPUT_HANDLE)
|
||||
#define Platform_getstdouthandle() (LONGINT)(ADDRESS)GetStdHandle(STD_OUTPUT_HANDLE)
|
||||
#define Platform_getstderrhandle() (ADDRESS)GetStdHandle(STD_ERROR_HANDLE)
|
||||
#define Platform_getstdinhandle() (ADDRESS)GetStdHandle(STD_INPUT_HANDLE)
|
||||
#define Platform_getstdouthandle() (ADDRESS)GetStdHandle(STD_OUTPUT_HANDLE)
|
||||
#define Platform_identityToFileTime(i) FILETIME ft; ft.dwHighDateTime = i.mtimehigh; ft.dwLowDateTime = i.mtimelow
|
||||
#define Platform_invalidHandleValue() ((LONGINT)(ADDRESS)INVALID_HANDLE_VALUE)
|
||||
#define Platform_invalidHandleValue() ((ADDRESS)INVALID_HANDLE_VALUE)
|
||||
#define Platform_largeInteger() LARGE_INTEGER li
|
||||
#define Platform_liLongint() (LONGINT)li.QuadPart
|
||||
#define Platform_moveFile(o, o__len, n, n__len) (INTEGER)MoveFileEx((char*)o, (char*)n, MOVEFILE_REPLACE_EXISTING)
|
||||
#define Platform_opennew(n, n__len) (LONGINT)(ADDRESS)CreateFile((char*)n, GENERIC_READ|GENERIC_WRITE, FILE_SHARE_READ|FILE_SHARE_WRITE, 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
|
||||
#define Platform_openro(n, n__len) (LONGINT)(ADDRESS)CreateFile((char*)n, GENERIC_READ , FILE_SHARE_READ|FILE_SHARE_WRITE, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
|
||||
#define Platform_openrw(n, n__len) (LONGINT)(ADDRESS)CreateFile((char*)n, GENERIC_READ|GENERIC_WRITE, FILE_SHARE_READ|FILE_SHARE_WRITE, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
|
||||
#define Platform_opennew(n, n__len) (ADDRESS)CreateFile((char*)n, GENERIC_READ|GENERIC_WRITE, FILE_SHARE_READ|FILE_SHARE_WRITE, 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
|
||||
#define Platform_openro(n, n__len) (ADDRESS)CreateFile((char*)n, GENERIC_READ , FILE_SHARE_READ|FILE_SHARE_WRITE, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
|
||||
#define Platform_openrw(n, n__len) (ADDRESS)CreateFile((char*)n, GENERIC_READ|GENERIC_WRITE, FILE_SHARE_READ|FILE_SHARE_WRITE, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
|
||||
#define Platform_processInfo() PROCESS_INFORMATION pi = {0};
|
||||
#define Platform_readfile(fd, p, l, n) (INTEGER)ReadFile((HANDLE)(ADDRESS)fd, (void*)p, (DWORD)l, (DWORD*)n, 0)
|
||||
#define Platform_readfile(fd, p, l, n) (INTEGER)ReadFile((HANDLE)fd, (void*)p, (DWORD)l, (DWORD*)n, 0)
|
||||
#define Platform_seekcur() FILE_CURRENT
|
||||
#define Platform_seekend() FILE_END
|
||||
#define Platform_seekset() FILE_BEGIN
|
||||
#define Platform_setCurrentDirectory(n, n__len) (INTEGER)SetCurrentDirectory((char*)n)
|
||||
#define Platform_setEndOfFile(h) (INTEGER)SetEndOfFile((HANDLE)(ADDRESS)h)
|
||||
#define Platform_setFilePointerEx(h, o, r, rc) li.QuadPart=o; *rc = (INTEGER)SetFilePointerEx((HANDLE)(ADDRESS)h, li, 0, (DWORD)r)
|
||||
#define Platform_setEndOfFile(h) (INTEGER)SetEndOfFile((HANDLE)h)
|
||||
#define Platform_setFilePointerEx(h, o, r, rc) li.QuadPart=o; *rc = (INTEGER)SetFilePointerEx((HANDLE)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);
|
||||
|
|
@ -182,7 +186,7 @@ extern void Heap_InitHeap();
|
|||
#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)(ADDRESS)fd, (void*)(p), (DWORD)l, 0,0)
|
||||
#define Platform_writefile(fd, p, l) (INTEGER)WriteFile((HANDLE)fd, (void*)(p), (DWORD)l, 0,0)
|
||||
|
||||
BOOLEAN Platform_TooManyFiles (INT16 e)
|
||||
{
|
||||
|
|
@ -387,9 +391,9 @@ INT16 Platform_Error (void)
|
|||
return Platform_err();
|
||||
}
|
||||
|
||||
INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h)
|
||||
INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT64 *h)
|
||||
{
|
||||
INT32 fd;
|
||||
INT64 fd;
|
||||
fd = Platform_openro(n, n__len);
|
||||
if (fd == Platform_invalidHandleValue()) {
|
||||
return Platform_err();
|
||||
|
|
@ -400,9 +404,9 @@ INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h)
|
||||
INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT64 *h)
|
||||
{
|
||||
INT32 fd;
|
||||
INT64 fd;
|
||||
fd = Platform_openrw(n, n__len);
|
||||
if (fd == Platform_invalidHandleValue()) {
|
||||
return Platform_err();
|
||||
|
|
@ -413,9 +417,9 @@ INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INT16 Platform_New (CHAR *n, LONGINT n__len, INT32 *h)
|
||||
INT16 Platform_New (CHAR *n, LONGINT n__len, INT64 *h)
|
||||
{
|
||||
INT32 fd;
|
||||
INT64 fd;
|
||||
fd = Platform_opennew(n, n__len);
|
||||
if (fd == Platform_invalidHandleValue()) {
|
||||
return Platform_err();
|
||||
|
|
@ -426,7 +430,7 @@ INT16 Platform_New (CHAR *n, LONGINT n__len, INT32 *h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INT16 Platform_Close (INT32 h)
|
||||
INT16 Platform_Close (INT64 h)
|
||||
{
|
||||
if (Platform_closeHandle(h) == 0) {
|
||||
return Platform_err();
|
||||
|
|
@ -436,7 +440,7 @@ INT16 Platform_Close (INT32 h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INT16 Platform_Identify (INT32 h, Platform_FileIdentity *identity, ADDRESS *identity__typ)
|
||||
INT16 Platform_Identify (INT64 h, Platform_FileIdentity *identity, ADDRESS *identity__typ)
|
||||
{
|
||||
Platform_byHandleFileInformation();
|
||||
if (Platform_getFileInformationByHandle(h) == 0) {
|
||||
|
|
@ -452,7 +456,7 @@ INT16 Platform_Identify (INT32 h, Platform_FileIdentity *identity, ADDRESS *iden
|
|||
|
||||
INT16 Platform_IdentifyByName (CHAR *n, LONGINT n__len, Platform_FileIdentity *identity, ADDRESS *identity__typ)
|
||||
{
|
||||
INT32 h;
|
||||
INT64 h;
|
||||
INT16 e, i;
|
||||
__DUP(n, n__len, CHAR);
|
||||
e = Platform_OldRO((void*)n, n__len, &h);
|
||||
|
|
@ -489,7 +493,7 @@ void Platform_MTimeAsClock (Platform_FileIdentity i, INT32 *t, INT32 *d)
|
|||
Platform_YMDHMStoClock(Platform_styear(), Platform_stmon(), Platform_stmday(), Platform_sthour(), Platform_stmin(), Platform_stsec(), &*t, &*d);
|
||||
}
|
||||
|
||||
INT16 Platform_Size (INT32 h, INT32 *l)
|
||||
INT16 Platform_Size (INT64 h, INT32 *l)
|
||||
{
|
||||
Platform_largeInteger();
|
||||
if (Platform_getFileSize(h) == 0) {
|
||||
|
|
@ -499,7 +503,7 @@ INT16 Platform_Size (INT32 h, INT32 *l)
|
|||
return 0;
|
||||
}
|
||||
|
||||
INT16 Platform_Read (INT32 h, INT64 p, INT32 l, INT32 *n)
|
||||
INT16 Platform_Read (INT64 h, INT64 p, INT32 l, INT32 *n)
|
||||
{
|
||||
INT16 result;
|
||||
INT32 lengthread;
|
||||
|
|
@ -514,7 +518,7 @@ INT16 Platform_Read (INT32 h, INT64 p, INT32 l, INT32 *n)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n)
|
||||
INT16 Platform_ReadBuf (INT64 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n)
|
||||
{
|
||||
INT16 result;
|
||||
INT32 lengthread;
|
||||
|
|
@ -529,7 +533,7 @@ INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INT16 Platform_Write (INT32 h, INT64 p, INT32 l)
|
||||
INT16 Platform_Write (INT64 h, INT64 p, INT32 l)
|
||||
{
|
||||
if (Platform_writefile(h, p, l) == 0) {
|
||||
return Platform_err();
|
||||
|
|
@ -539,7 +543,7 @@ INT16 Platform_Write (INT32 h, INT64 p, INT32 l)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INT16 Platform_Sync (INT32 h)
|
||||
INT16 Platform_Sync (INT64 h)
|
||||
{
|
||||
if (Platform_flushFileBuffers(h) == 0) {
|
||||
return Platform_err();
|
||||
|
|
@ -549,7 +553,7 @@ INT16 Platform_Sync (INT32 h)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INT16 Platform_Seek (INT32 h, INT32 o, INT16 r)
|
||||
INT16 Platform_Seek (INT64 h, INT32 o, INT16 r)
|
||||
{
|
||||
INT16 rc;
|
||||
Platform_largeInteger();
|
||||
|
|
@ -562,7 +566,7 @@ INT16 Platform_Seek (INT32 h, INT32 o, INT16 r)
|
|||
__RETCHK;
|
||||
}
|
||||
|
||||
INT16 Platform_Truncate (INT32 h, INT32 limit)
|
||||
INT16 Platform_Truncate (INT64 h, INT32 limit)
|
||||
{
|
||||
INT16 rc;
|
||||
INT32 oldpos;
|
||||
|
|
@ -738,6 +742,14 @@ void Platform_SetHalt (Platform_HaltProcedure p)
|
|||
Platform_HaltHandler = p;
|
||||
}
|
||||
|
||||
static void Platform_EnableVT100 (void)
|
||||
{
|
||||
INT32 mode;
|
||||
if (Platform_GetConsoleMode(Platform_StdOut, &mode)) {
|
||||
Platform_SetConsoleMode(Platform_StdOut, mode + Platform_VTprocessing());
|
||||
}
|
||||
}
|
||||
|
||||
static void Platform_TestLittleEndian (void)
|
||||
{
|
||||
INT16 i;
|
||||
|
|
@ -767,6 +779,7 @@ export void *Platform__init(void)
|
|||
Platform_StdIn = Platform_getstdinhandle();
|
||||
Platform_StdOut = Platform_getstdouthandle();
|
||||
Platform_StdErr = Platform_getstderrhandle();
|
||||
Platform_EnableVT100();
|
||||
Platform_NL[0] = 0x0d;
|
||||
Platform_NL[1] = 0x0a;
|
||||
Platform_NL[2] = 0x00;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef Platform__h
|
||||
#define Platform__h
|
||||
|
|
@ -26,7 +26,7 @@ import CHAR Platform_CWD[4096];
|
|||
import INT16 Platform_ArgCount;
|
||||
import INT64 Platform_ArgVector;
|
||||
import INT16 Platform_SeekSet, Platform_SeekCur, Platform_SeekEnd;
|
||||
import INT32 Platform_StdIn, Platform_StdOut, Platform_StdErr;
|
||||
import INT64 Platform_StdIn, Platform_StdOut, Platform_StdErr;
|
||||
import CHAR Platform_NL[3];
|
||||
|
||||
import ADDRESS *Platform_FileIdentity__typ;
|
||||
|
|
@ -35,7 +35,7 @@ import BOOLEAN Platform_Absent (INT16 e);
|
|||
import INT16 Platform_ArgPos (CHAR *s, LONGINT s__len);
|
||||
import void Platform_AssertFail (INT32 code);
|
||||
import INT16 Platform_Chdir (CHAR *n, LONGINT n__len);
|
||||
import INT16 Platform_Close (INT32 h);
|
||||
import INT16 Platform_Close (INT64 h);
|
||||
import BOOLEAN Platform_ConnectionFailed (INT16 e);
|
||||
import void Platform_Delay (INT32 ms);
|
||||
import BOOLEAN Platform_DifferentFilesystems (INT16 e);
|
||||
|
|
@ -47,36 +47,36 @@ import void Platform_GetEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val
|
|||
import void Platform_GetIntArg (INT16 n, INT32 *val);
|
||||
import void Platform_GetTimeOfDay (INT32 *sec, INT32 *usec);
|
||||
import void Platform_Halt (INT32 code);
|
||||
import INT16 Platform_Identify (INT32 h, Platform_FileIdentity *identity, ADDRESS *identity__typ);
|
||||
import INT16 Platform_Identify (INT64 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 (INT32 argc, INT64 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);
|
||||
import INT16 Platform_New (CHAR *n, LONGINT n__len, INT64 *h);
|
||||
import BOOLEAN Platform_NoSuchDirectory (INT16 e);
|
||||
import INT64 Platform_OSAllocate (INT64 size);
|
||||
import void Platform_OSFree (INT64 address);
|
||||
import INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT32 *h);
|
||||
import INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT32 *h);
|
||||
import INT16 Platform_Read (INT32 h, INT64 p, INT32 l, INT32 *n);
|
||||
import INT16 Platform_ReadBuf (INT32 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n);
|
||||
import INT16 Platform_OldRO (CHAR *n, LONGINT n__len, INT64 *h);
|
||||
import INT16 Platform_OldRW (CHAR *n, LONGINT n__len, INT64 *h);
|
||||
import INT16 Platform_Read (INT64 h, INT64 p, INT32 l, INT32 *n);
|
||||
import INT16 Platform_ReadBuf (INT64 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n);
|
||||
import INT16 Platform_Rename (CHAR *o, LONGINT o__len, CHAR *n, LONGINT n__len);
|
||||
import BOOLEAN Platform_SameFile (Platform_FileIdentity i1, Platform_FileIdentity i2);
|
||||
import BOOLEAN Platform_SameFileTime (Platform_FileIdentity i1, Platform_FileIdentity i2);
|
||||
import INT16 Platform_Seek (INT32 h, INT32 o, INT16 r);
|
||||
import INT16 Platform_Seek (INT64 h, INT32 o, INT16 r);
|
||||
import void Platform_SetBadInstructionHandler (Platform_SignalHandler handler);
|
||||
import void Platform_SetHalt (Platform_HaltProcedure p);
|
||||
import void Platform_SetMTime (Platform_FileIdentity *target, ADDRESS *target__typ, Platform_FileIdentity source);
|
||||
import INT16 Platform_Size (INT32 h, INT32 *l);
|
||||
import INT16 Platform_Sync (INT32 h);
|
||||
import INT16 Platform_Size (INT64 h, INT32 *l);
|
||||
import INT16 Platform_Sync (INT64 h);
|
||||
import INT16 Platform_System (CHAR *cmd, LONGINT cmd__len);
|
||||
import INT32 Platform_Time (void);
|
||||
import BOOLEAN Platform_TimedOut (INT16 e);
|
||||
import BOOLEAN Platform_TooManyFiles (INT16 e);
|
||||
import INT16 Platform_Truncate (INT32 h, INT32 limit);
|
||||
import INT16 Platform_Truncate (INT64 h, INT32 limit);
|
||||
import INT16 Platform_Unlink (CHAR *n, LONGINT n__len);
|
||||
import INT16 Platform_Write (INT32 h, INT64 p, INT32 l);
|
||||
import INT16 Platform_Write (INT64 h, INT64 p, INT32 l);
|
||||
import BOOLEAN Platform_getEnv (CHAR *var, LONGINT var__len, CHAR *val, LONGINT val__len);
|
||||
import void *Platform__init(void);
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef Reals__h
|
||||
#define Reals__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef Strings__h
|
||||
#define Strings__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef Texts__h
|
||||
#define Texts__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef VT100__h
|
||||
#define VT100__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef errors__h
|
||||
#define errors__h
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#define SHORTINT INT8
|
||||
#define INTEGER INT16
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
/* voc 1.95 [2016/11/08]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
/* voc 1.95 [2016/11/10]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
|
||||
|
||||
#ifndef extTools__h
|
||||
#define extTools__h
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue