* splitted in 2 files, one fpc mode and other tp mode

tests/test/cg/taddr1.pp

@@ -0,0 +1,84 @@
+{****************************************************************}
+{  CODE GENERATOR TEST PROGRAM                                   }
+{****************************************************************}
+{ NODE TESTED : secondaddr()                                     }
+{****************************************************************}
+{ PRE-REQUISITES: secondload()                                   }
+{                 secondassign()                                 }
+{                 secondcalln()                                  }
+{****************************************************************}
+{ DEFINES:                                                       }
+{****************************************************************}
+{ REMARKS:                                                       }
+{****************************************************************}
+program taddr;
+
+{$ifdef fpc}
+  {$mode fpc}
+{$endif}
+
+   procedure testprocvar;
+     begin
+       WriteLn('Hello world!');
+     end;
+
+type
+  tmyobj = object
+    procedure writeit;
+  end;
+
+
+  procedure tmyobj.writeit;
+   begin
+       WriteLn('Salutations!');
+   end;
+
+
+const
+ chararray : array[0..7] of char =
+ ('A',
+  'B',
+  'C',
+  'D',
+  'E',
+  'F',
+  'G',
+  #0
+ );
+
+var
+ procptr: procedure;
+ pcharptr : pchar;
+ plongint : ^longint;
+ long: longint;
+ ptr: pointer;
+begin
+ { Test procedure variable }
+ procptr:=@testprocvar;
+ Write('Value should be ''Hello world!''...');
+ procptr;
+ { Test normal variable }
+ pcharptr := @chararray;
+ Inc(pcharptr,2);
+ Write('Value should be ''CDEFG''...');
+ WriteLn(pcharptr);
+ long := $F0F0;
+ plongint := @long;
+ Write('Value should be 61680...');
+ WriteLn(plongint^);
+ { Test method pointers }
+ { PROCVARLOAD = TRUE testing }
+ { Write('Value should be ''Salutations!''...');}
+ ptr:[email protected];
+{ ptr;}
+end.
+
+{
+   $Log$
+   Revision 1.1  2002-04-22 16:33:40  peter
+     * splitted in 2 files, one fpc mode and other tp mode
+
+   Revision 1.1  2001/06/30 02:00:30  carl
+   + secondaddr() testing
+
+}

tests/test/cg/taddr.pp → tests/test/cg/taddr2.pp

@@ -13,6 +13,9 @@
 {****************************************************************}
 program taddr;
 
+{$ifdef fpc}
+  {$mode tp}
+{$endif}
 
    procedure testprocvar;
      begin
@@ -51,7 +54,7 @@ var
  ptr: pointer;
 begin
  { Test procedure variable }
- procptr:={$ifdef FPC}@{$endif}testprocvar;
+ procptr:=testprocvar;
  Write('Value should be ''Hello world!''...');
  procptr;
  { Test normal variable }
@@ -72,7 +75,10 @@ end.
 
 {
    $Log$
-   Revision 1.1  2001-06-30 02:00:30  carl
+   Revision 1.1  2002-04-22 16:33:40  peter
+     * splitted in 2 files, one fpc mode and other tp mode
+
+   Revision 1.1  2001/06/30 02:00:30  carl
    + secondaddr() testing
 
 }