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

Remove unused variable and export. Thanks Oleg.

Browse source
This commit is contained in:
David Brown 2016-07-22 18:56:14 +01:00
parent d9c319ef3a
commit 6d957bf0bb
2 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/system/Heap.Mod
View file

@ -497,7 +497,7 @@ MODULE Heap;
VAR VAR
frame: SYSTEM.PTR; frame: SYSTEM.PTR;
inc, nofcand: LONGINT; inc, nofcand: LONGINT;
sp, p, stack0, ptr: LONGINT; sp, p, stack0: LONGINT;
align: RECORD ch: CHAR; p: SYSTEM.PTR END ; align: RECORD ch: CHAR; p: SYSTEM.PTR END ;
BEGIN BEGIN
IF n > 0 THEN MarkStack(n-1, cand); (* flush register windows by means of recursive calls *) IF n > 0 THEN MarkStack(n-1, cand); (* flush register windows by means of recursive calls *)

1
src/system/SYSTEM.h
View file

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