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

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;