* linux updates

tests/Makefile

@@ -20,9 +20,9 @@ else
 
 EXEEXT=
 getreturncode : 
-	getret $(COMMAND) !> $(FILE).log !2>$(FILE).log
+	getret $(COMMAND) > $(FILE).log 2>$(FILE).log
 	cp retcode $(FILE).$(RESEXT)
-	@echo Return code of $(FILE) is $(cat retcode)
+	@echo "Return code of $(FILE) is $(cat retcode)"
 endif
 	
 
@@ -43,12 +43,12 @@ endif
 
 ifeq ($(RETVAL),0)
 testsuccess:
-	@echo Test for $(FILE) success (compiles)
+	@echo "Test for $(FILE) success (compiles)"
-	@echo Test for $(FILE) success (compiles) >>log
+	@echo "Test for $(FILE) success (compiles)" >>log
 else
 testsuccess:
-	@echo Test for $(FILE) fails (does not compile) error $(RETVAL)
+	@echo "Test for $(FILE) fails (does not compile) error $(RETVAL)"
-	@echo Test for $(FILE) fails (does not compile) error $(RETVAL)>>log
+	@echo "Test for $(FILE) fails (does not compile) error $(RETVAL)" >>log
 	@echo $(FILE) >> ts_fail
 	@echo $(FILE) >> faillist
 endif
@@ -65,17 +65,17 @@ endif
 
 ifeq ($(EXERETVAL),0)
 testexecsuccess:
-	@echo Test for exec $(FILE) success (runs without error)
+	@echo "Test for exec $(FILE) success (runs without error)"
-	@echo Test for $(FILE) success (runs without error) >>log
+	@echo "Test for $(FILE) success (runs without error)" >>log
 else
 testexecsuccess:
-	@echo Test for exec $(FILE) fails exec error $(EXERETVAL)
+	@echo "Test for exec $(FILE) fails exec error $(EXERETVAL)"
-	@echo Test for exec $(FILE) fails exec error $(EXERETVAL)>>log
+	@echo "Test for exec $(FILE) fails exec error $(EXERETVAL)" >>log
 endif
 	
 ifeq ($(wildcard $(FILE)$(EXEEXT)*),$(FILE)$(EXEEXT))
 testexec:
-	@echo Testing $(FILE)$(EXEEXT)
+	@echo "Testing $(FILE)$(EXEEXT)"
 ifdef NOREDIR
 	getret $(FILE)$(EXEEXT)
 else
@@ -85,7 +85,7 @@ endif
 	$(MAKE) testexecsuccess 'FILE=$(FILE)' 'EXCFILE=$(FILE).exc'
 else
 testexec:
-	@echo No exefile $(FILE)$(EXEEXT)
+	@echo "No exefile $(FILE)$(EXEEXT)"
 	@echo $(FILE) >> faillist
 endif
 
@@ -96,12 +96,12 @@ test_exc :
 	
 ifneq ($(RETVAL),0)
 testfail:
-	@echo Test for $(FILE) success (does not compile) error $(RETVAL)
+	@echo "Test for $(FILE) success (does not compile) error $(RETVAL)"
-	@echo Test for $(FILE) success (does not compile) error $(RETVAL)>> log
+	@echo "Test for $(FILE) success (does not compile) error $(RETVAL)" >> log
 else
 testfail:
-	@echo Test for $(FILE) fails (does compile and should not)
+	@echo "Test for $(FILE) fails (does compile and should not)"
-	@echo Test for $(FILE) fails (does compile and should not) >> log
+	@echo "Test for $(FILE) fails (does compile and should not)" >> log
 	@echo $(FILE) >> tf_fail
 	@echo $(FILE) >> faillist
 endif
@@ -219,8 +219,13 @@ info :
 	@echo created behave like the should
 	@echo run \'make tesiexec\' to test executables 
 	@echo that require interactive mode
+
+#
 # $Log$
-# Revision 1.12  1999-01-19 18:01:43  pierre
+# Revision 1.1  1999-01-25 20:23:04  peter
+#   * linux updates
+#
+# Revision 1.12  1999/01/19 18:01:43  pierre
 #  local change removed
 #
 # Revision 1.11  1999/01/19 17:34:01  pierre
@@ -254,4 +259,3 @@ info :
 # Revision 1.3  1998/10/21 12:12:09  pierre
 # Log inserted
 #
-

tests/tbs0102.pp

@@ -1,4 +1,4 @@
-{$OPT= -Tamiga}
+{ $OPT= -Tamiga }
 
 unit tbs0102;
   interface

tests/tbs0104.pp

@@ -1,5 +1,8 @@
+{$ifdef go32v2}
 uses
    dpmiexcp;
+{$endif}
+
 { Two cardinal type bugs }
 var
   c : cardinal;

tests/tbs0105.pp

@@ -10,10 +10,11 @@
  uses linux;
 {$endif linux}
 
-  function our_sig(l : longint) : longint;
+  function our_sig(l : longint) : longint;{$ifdef linux}cdecl;{$endif}
     begin
        { If we land here the program works correctly !! }
        Writeln('Bound check error signal recieved');
+       our_sig:=0;
        Halt(0);
     end;
 
@@ -21,7 +22,7 @@ Var
  Sel: Word;
  v: longint;
 Begin
- Signal(SIGSEGV,our_sig);
+ Signal(SIGSEGV,signalhandler(our_sig));
  v:=$00ffffff;
  Sel:=word(v);
  writeln(sel);

tests/tbs0107.pp

@@ -3,8 +3,11 @@
 
 Program Test1;
 
+{$ifdef go32v2}
 uses
    dpmiexcp;
+{$endif}
+
 type
  myObject = object
    constructor init;

tests/tbs0123.pp

@@ -1,5 +1,5 @@
-{$I386_INTEL}
 begin
+{$asmmode intel}
    asm
       SHRD [ESI-8], EAX, CL
    end;

tests/tbs0124.pp

@@ -1,8 +1,7 @@
-{$I386_INTEL}
-{ Compile with -Rintel switch }
 var
  l : longint;
 begin
+{$asmmode intel}
  { problem here is that l is replaced by BP-offset     }
  { relative to stack, and the parser thinks all wrong  }
  { because of this.                                    }

tests/tbs0187.pp

@@ -1,4 +1,4 @@
-{ $OPT=-Cr }
+{ $OPT=-St -Cr }
 program test;
 
 {$ifdef go32v2}

tests/tbs0198.pp

@@ -1,3 +1,4 @@
+{$mode objfpc}
 type
    to1 = class
        function GetCaps1 : Longint;virtual;abstract;

tests/tesirand.pp

@@ -36,7 +36,7 @@ var x : array[0..max-1] of longint;
 
 begin
 
-{$ifdef FPC}
+{$ifdef go32v2}
    gm:=G640x400x256;
    gd:=$ff;
 {$else }
@@ -130,7 +130,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  1998-11-23 23:44:52  pierre
+  Revision 1.3  1999-01-25 20:23:13  peter
+    * linux updates
+
+  Revision 1.2  1998/11/23 23:44:52  pierre
    + several bugs converted
 
 }

tests/teststr.pp

@@ -4,7 +4,44 @@
   Program to test string functions and speed of the functions
 }
 program TestStr;
+{$ifdef timer}
 uses Timer;
+{$else}
+type
+  TTimer = Object
+    TotalMSec,
+    StartMSec : longint;
+    constructor init;
+    procedure reset;
+    procedure start;
+    procedure stop;
+    Function MSec:longint;
+  end;
+
+procedure TTimer.Reset;
+begin
+end;
+
+procedure TTimer.Start;
+begin
+end;
+
+
+procedure TTimer.Stop;
+begin
+end;
+
+
+Function TTimer.MSec:longint;
+begin
+  MSec:=0;
+end;
+
+Constructor TTimer.Init;
+begin
+end;
+
+{$endif}
 
 const
   TestSize=10; {Use at least 10 for reasonable results}
@@ -22,7 +59,6 @@ var
   MixBen     : BenType;
   t          : TTimer;
 
-
 function TestOK:boolean;
 Const
   TestStr: string[22]='HELLO, THIS IS A TEST ';
@@ -87,7 +123,7 @@ procedure TestSpeed(Row,Len:byte);
 var
   l      : longint;
   hstr,
-  OrgStr : string;
+  OrgStr : string[10];
 begin
   HeadBen[Row]:=Len;
   OrgStr:='';