Remove unused variable and export. Thanks Oleg.

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

View file

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

View file

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