* updates to compile with kylix

* fixed some tests

tests/test/cg/tcalval2.pp

@@ -407,8 +407,18 @@ begin
   else
     WriteLn('Passed!');
 
+  { LOC_REFERENCE }
   write('(Inline) Value parameter test (src : LOC_REFERENCE (orddef/enumdef))...');
   clear_globals;
+  clear_values;
+  value_u8bit := RESULT_U8BIT;
+  value_u16bit := RESULT_U16BIT;
+  value_s32bit := RESULT_S32BIT;
+{$ifndef tp}
+  value_s64bit := RESULT_S64BIT;
+{$endif}
+  value_s32real := RESULT_S32REAL;
+  value_s64real  := RESULT_S64REAL;
   failed:=false;
   proc_value_u8bit_inline(value_u8bit);
   if global_u8bit <> RESULT_U8BIT then

tests/test/cg/texit.pp

@@ -315,6 +315,10 @@ Begin
  write('Testing secondexitn() simple case...');
  failed := false;
  simple_exit;
+ if failed then
+   fail
+ else
+   writeln('Passed!');
 
  write('Testing secondexitn() with reference (simple case)...');
  failed := false;
@@ -474,7 +478,11 @@ end.
 
 {
  $Log$
- Revision 1.2  2002-07-07 11:16:06  carl
+ Revision 1.3  2002-09-01 14:45:54  peter
+   * updates to compile with kylix
+   * fixed some tests
+
+ Revision 1.2  2002/07/07 11:16:06  carl
    + ansistring testing (from mailing list)
 
  Revision 1.1  2002/03/25 20:18:46  carl

tests/test/cg/tmoddiv.pp

@@ -26,13 +26,16 @@
 {  LOC_REGISTER / LOC_CREGISTER                                 }
 {  LOC_REFERENCE / LOC_MEM                                      }
 
+{$ifdef VER70}
+  {$define TP}
+{$endif}
 
 function getlongcnt: longint;
  begin
    getlongcnt := -10;
  end;
 
- {$IFDEF FPC}
+ {$IFNDEF TP}
 function getcardinalcnt: cardinal;
  begin
    getcardinalcnt := 10;
@@ -59,7 +62,7 @@ end;
 var
  longres : longint;
  longcnt : longint;
-{$IFDEF FPC}
+{$IFNDEF TP}
   cardinalres : cardinal;
   cardinalcnt : cardinal;
   int64res : int64;
@@ -152,7 +155,7 @@ begin
   Write('Value should be 7...');
   test(cardinalres, 7);
 
-{$IFDEF FPC}
+{$IFNDEF TP}
   WriteLn('------------------- CARDINAL -----------------------');
   { special tests for results }
   Writeln('special numeric values tests...');

tests/test/cg/ttryexc1.pp

@@ -1,4 +1,3 @@
-{ %RESULT=217 }
 {****************************************************************}
 {  CODE GENERATOR TEST PROGRAM                                   }
 {  By Carl Eric Codere                                           }
@@ -821,7 +820,11 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-08-03 11:05:14  carl
+  Revision 1.2  2002-09-01 14:45:54  peter
+    * updates to compile with kylix
+    * fixed some tests
+
+  Revision 1.1  2002/08/03 11:05:14  carl
     + exception handling testing
        (still missing raise / on node testing)
 

tests/test/tfpu2.pp

@@ -1,10 +1,10 @@
 { %version=1.1 }
 
-{$mode objfpc}
+{$ifdef fpc}{$mode objfpc}{$endif}
 program test_fpu_excpetions;
 
 uses
-  sysutils;
+  SysUtils;
 
   function mysqrt(x : real) : real;