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

Update bootstrap.

Browse source
This commit is contained in:
David Brown 2016-11-19 15:17:51 +00:00
parent 3798b9c537
commit 036b8eef41
185 changed files with 196 additions and 194 deletions
Download patch file Download diff file Expand all files Collapse all files

2
bootstrap/windows-88/Compiler.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspamS */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#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/18]. Bootstrapping compiler for address size 8, alignment 8.", Configuration_versionLong, 75);
__MOVE("1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8.", Configuration_versionLong, 75);
__ENDMOD;
}

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Configuration__h
#define Configuration__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#ifndef Files__h
#define Files__h

2
bootstrap/windows-88/Heap.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. tsSF */
#ifndef Heap__h
#define Heap__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Modules__h
#define Modules__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPB__h
#define OPB__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPC__h
#define OPC__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPM__h
#define OPM__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPP__h
#define OPP__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. tspaSF */
#ifndef OPS__h
#define OPS__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPT__h
#define OPT__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef OPV__h
#define OPV__h

2
bootstrap/windows-88/Out.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16

2
bootstrap/windows-88/Out.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Out__h
#define Out__h

7
bootstrap/windows-88/Platform.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16
@ -176,7 +176,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)fd, (void*)(p), (DWORD)l, 0,0)
#define Platform_writefile(fd, p, l, n) (INTEGER)WriteFile((HANDLE)fd, (void*)(p), (DWORD)l, (DWORD*)n, 0)
BOOLEAN Platform_TooManyFiles (INT16 e)
{
@ -525,7 +525,8 @@ INT16 Platform_ReadBuf (INT64 h, SYSTEM_BYTE *b, LONGINT b__len, INT32 *n)
INT16 Platform_Write (INT64 h, INT64 p, INT32 l)
{
if (Platform_writefile(h, p, l) == 0) {
INT32 n;
if (Platform_writefile(h, p, l, &n) == 0) {
return Platform_err();
} else {
return 0;

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Platform__h
#define Platform__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Reals__h
#define Reals__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Strings__h
#define Strings__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef Texts__h
#define Texts__h

2
bootstrap/windows-88/VT100.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16

2
bootstrap/windows-88/VT100.h
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef VT100__h
#define VT100__h

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#define SHORTINT INT8
#define INTEGER INT16

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/11/18]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
/* voc 1.95 [2016/11/19]. Bootstrapping compiler for address size 8, alignment 8. xtspaSF */
#ifndef extTools__h
#define extTools__h