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

Update bootstrap and fix source change tests. Typo in command ine help.

Browse source
This commit is contained in:
David Brown 2016-10-28 20:06:30 +01:00
parent 126ef6d479
commit 6a4748e2af
78 changed files with 1026 additions and 2564 deletions
Download patch file Download diff file Expand all files Collapse all files

22
bootstrap/unix-48/Heap.c
View file

@ -127,7 +127,6 @@ void Heap_Unlock (void)
SYSTEM_PTR Heap_REGMOD (Heap_ModuleName name, Heap_EnumProc enumPtrs)
{
SYSTEM_PTR _o_result;
Heap_Module m;
if (__STRCMP(name, "Heap") == 0) {
__SYSNEW(m, 48);
@ -141,8 +140,7 @@ SYSTEM_PTR Heap_REGMOD (Heap_ModuleName name, Heap_EnumProc enumPtrs)
m->enumPtrs = enumPtrs;
m->next = (Heap_Module)(address)Heap_modules;
Heap_modules = (SYSTEM_PTR)m;
_o_result = (void*)m;
return _o_result;
return (void*)m;
}
void Heap_REGCMD (Heap_Module m, Heap_CmdName name, Heap_Command cmd)
@ -172,7 +170,6 @@ void Heap_INCREF (Heap_Module m)
static int32 Heap_NewChunk (int32 blksz)
{
int32 _o_result;
int32 chnk;
chnk = Heap_OSAllocate(blksz + 12);
if (chnk != 0) {
@ -184,8 +181,7 @@ static int32 Heap_NewChunk (int32 blksz)
Heap_bigBlocks = chnk + 12;
Heap_heapsize += blksz;
}
_o_result = chnk;
return _o_result;
return chnk;
}
static void Heap_ExtendHeap (int32 blksz)
@ -219,7 +215,6 @@ static void Heap_ExtendHeap (int32 blksz)
SYSTEM_PTR Heap_NEWREC (int32 tag)
{
SYSTEM_PTR _o_result;
int32 i, i0, di, blksz, restsize, t, adr, end, next, prev;
SYSTEM_PTR new;
Heap_Lock();
@ -267,12 +262,10 @@ SYSTEM_PTR Heap_NEWREC (int32 tag)
new = Heap_NEWREC(tag);
}
Heap_Unlock();
_o_result = new;
return _o_result;
return new;
} else {
Heap_Unlock();
_o_result = NIL;
return _o_result;
return NIL;
}
}
__GET(adr + 4, t, int32);
@ -320,13 +313,11 @@ SYSTEM_PTR Heap_NEWREC (int32 tag)
__PUT(adr + 8, 0, int32);
Heap_allocated += blksz;
Heap_Unlock();
_o_result = (SYSTEM_PTR)(address)(adr + 4);
return _o_result;
return (SYSTEM_PTR)(address)(adr + 4);
}
SYSTEM_PTR Heap_NEWBLK (int32 size)
{
SYSTEM_PTR _o_result;
int32 blksz, tag;
SYSTEM_PTR new;
Heap_Lock();
@ -338,8 +329,7 @@ SYSTEM_PTR Heap_NEWBLK (int32 size)
__PUT(tag + 4, -4, int32);
__PUT((int32)(address)new - 4, tag, int32);
Heap_Unlock();
_o_result = new;
return _o_result;
return new;
}
static void Heap_Mark (int32 q)