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 confidence tests for arg handling move. Remove unused vars in Platform.

Browse source
This commit is contained in:
David Brown 2016-12-01 18:39:02 +00:00
parent 299b0636ad
commit c65b89daf3
4 changed files with 4 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/runtime/Platformunix.Mod
View file

@ -22,9 +22,6 @@ VAR
LittleEndian-: BOOLEAN; LittleEndian-: BOOLEAN;
PID-: INTEGER; (* Note: Must be updated by Fork implementation *) PID-: INTEGER; (* Note: Must be updated by Fork implementation *)
CWD-: ARRAY 256 OF CHAR; CWD-: ARRAY 256 OF CHAR;
ArgCount-: INTEGER;
ArgVector-: SYSTEM.ADDRESS;
TimeStart: LONGINT; TimeStart: LONGINT;
SeekSet-: INTEGER; SeekSet-: INTEGER;
@ -426,7 +423,6 @@ PROCEDURE -getpid(): INTEGER "(INTEGER)getpid()";
BEGIN BEGIN
TestLittleEndian; TestLittleEndian;
HaltHandler := NIL;
TimeStart := 0; TimeStart := Time(); TimeStart := 0; TimeStart := Time();
PID := getpid(); PID := getpid();
IF getcwd(CWD) = NIL THEN CWD := "" END; IF getcwd(CWD) = NIL THEN CWD := "" END;

2
src/runtime/Platformwindows.Mod
View file

@ -35,8 +35,6 @@ VAR
StdOut-: FileHandle; StdOut-: FileHandle;
StdErr-: FileHandle; StdErr-: FileHandle;
InterruptHandler: SignalHandler;
NL-: ARRAY 3 OF CHAR; (* Platform specific newline representation *) NL-: ARRAY 3 OF CHAR; (* Platform specific newline representation *)

4
src/test/confidence/lola/lola.Mod
View file

@ -1,7 +1,7 @@
MODULE Lola; (* Command line runner for Lola to verilog compilation *) MODULE Lola; (* Command line runner for Lola to verilog compilation *)
IMPORT LSB, LSC, LSV, Platform, Console; IMPORT LSB, LSC, LSV, Modules, Console;
BEGIN BEGIN
IF Platform.ArgCount < 3 THEN IF Modules.ArgCount < 3 THEN
Console.String("Lola - compile lola source to verilog source."); Console.Ln; Console.Ln; Console.String("Lola - compile lola source to verilog source."); Console.Ln; Console.Ln;
Console.String("usage:"); Console.Ln; Console.Ln; Console.String("usage:"); Console.Ln; Console.Ln;
Console.String(" lola lola-source-file verilog-source-file"); Console.Ln; Console.Ln; Console.String(" lola lola-source-file verilog-source-file"); Console.Ln; Console.Ln;

4
src/test/confidence/signal/signal.mod
View file

@ -1,6 +1,6 @@
(* Test that interrupt and quit are handled correctly. *) (* Test that interrupt and quit are handled correctly. *)
MODULE SignalTest; MODULE SignalTest;
IMPORT Console, Platform, Files, SYSTEM; IMPORT Console, Platform, Modules, Files, SYSTEM;
VAR result: Files.File; rider: Files.Rider; VAR result: Files.File; rider: Files.Rider;
@ -42,7 +42,7 @@ END Take5;
BEGIN BEGIN
result := Files.New("result"); result := Files.New("result");
Files.Set(rider, result, 0); Files.Set(rider, result, 0);
IF Platform.ArgCount > 1 THEN IF Modules.ArgCount > 1 THEN
Platform.SetInterruptHandler(handle); Platform.SetInterruptHandler(handle);
Platform.SetQuitHandler(handle) Platform.SetQuitHandler(handle)
END; END;