* popstack to oldfpccall

tests/test/cg/tcalfun4.pp

@@ -1,3 +1,5 @@
+{ %version=1.1 }
+
  {****************************************************************}
  {  CODE GENERATOR TEST PROGRAM                                   }
  {  By Carl Eric Codere                                           }
@@ -15,7 +17,7 @@
  {            FPC     = Target is FreePascal compiler             }
  {****************************************************************}
  { REMARKS: This tests a subset of the secondcalln() node         }
- {          (function return values with popstack calling cnvs)   }
+ {          (function return values with oldfpcall calling cnvs)   }
  {          (also tests nested routines up to 2 level deep)       }
  {****************************************************************}
  program tcalfun4;
@@ -189,7 +191,7 @@
  {********************************* FUNCTION RESULTS *************************}
 
 { LOC_MEM return values }
-function func_array: tsmallarray;popstack;
+function func_array: tsmallarray;oldfpcall;
  var
   smallarray: tsmallarray;
  begin
@@ -199,7 +201,7 @@ function func_array: tsmallarray;popstack;
   func_array := smallarray;
  end;
 
-function func_largerecord: tlargerecord;popstack;
+function func_largerecord: tlargerecord;oldfpcall;
  var
    largerecord : tlargerecord;
  begin
@@ -209,12 +211,12 @@ function func_largerecord: tlargerecord;popstack;
    func_largerecord := largerecord;
  end;
 
-function func_shortstring: shortstring;popstack;
+function func_shortstring: shortstring;oldfpcall;
  begin
    func_shortstring := RESULT_BIGSTRING;
  end;
 
-function func_largeset : tlargeset;popstack;
+function func_largeset : tlargeset;oldfpcall;
  var
   largeset : tlargeset;
  begin
@@ -222,49 +224,49 @@ function func_largeset : tlargeset;popstack;
   func_largeset := largeset;
  end;
 
-function func_u8bit : byte;popstack;
+function func_u8bit : byte;oldfpcall;
  begin
    func_u8bit := RESULT_U8BIT;
  end;
 
-function func_u16bit : word;popstack;
+function func_u16bit : word;oldfpcall;
  begin
    func_u16bit := RESULT_U16BIT;
  end;
 
-function func_s32bit : longint;popstack;
+function func_s32bit : longint;oldfpcall;
  begin
    func_s32bit := RESULT_S32BIT;
  end;
 
-function func_s64bit : int64;popstack;
+function func_s64bit : int64;oldfpcall;
  begin
    func_s64bit := RESULT_S64BIT;
  end;
 
-function func_s32real : single;popstack;
+function func_s32real : single;oldfpcall;
  begin
    func_s32real := RESULT_S32REAL;
  end;
 
-function func_s64real : double;popstack;
+function func_s64real : double;oldfpcall;
  begin
    func_s64real := RESULT_S64REAl;
  end;
 
-function func_ansistring : ansistring;popstack;
+function func_ansistring : ansistring;oldfpcall;
  begin
    func_ansistring := RESULT_BIGSTRING;
  end;
 
-function func_pchar : pchar;popstack;
+function func_pchar : pchar;oldfpcall;
  begin
    func_pchar := RESULT_PCHAR;
  end;
 
  {************************** FUNCTION RESULT WITH PARAMS ******************}
 { LOC_MEM return values }
-function func_array_mixed(b: byte): tsmallarray;popstack;
+function func_array_mixed(b: byte): tsmallarray;oldfpcall;
  var
   local_b: byte;
   smallarray: tsmallarray;
@@ -277,7 +279,7 @@ function func_array_mixed(b: byte): tsmallarray;popstack;
   global_u8bit := b;
  end;
 
-function func_largerecord_mixed(b: byte): tlargerecord;popstack;
+function func_largerecord_mixed(b: byte): tlargerecord;oldfpcall;
  var
    local_b: byte;
    largerecord : tlargerecord;
@@ -290,7 +292,7 @@ function func_largerecord_mixed(b: byte): tlargerecord;popstack;
    global_u8bit := b;
  end;
 
-function func_shortstring_mixed(b: byte): shortstring;popstack;
+function func_shortstring_mixed(b: byte): shortstring;oldfpcall;
  var
   local_b: byte;
  begin
@@ -299,7 +301,7 @@ function func_shortstring_mixed(b: byte): shortstring;popstack;
    global_u8bit := b;
  end;
 
-function func_largeset_mixed(b: byte) : tlargeset;popstack;
+function func_largeset_mixed(b: byte) : tlargeset;oldfpcall;
  var
   local_b: byte;
   largeset : tlargeset;
@@ -310,7 +312,7 @@ function func_largeset_mixed(b: byte) : tlargeset;popstack;
    global_u8bit := b;
  end;
 
-function func_u8bit_mixed(b: byte) : byte;popstack;
+function func_u8bit_mixed(b: byte) : byte;oldfpcall;
  var
   local_b: byte;
  begin
@@ -319,7 +321,7 @@ function func_u8bit_mixed(b: byte) : byte;popstack;
    global_u8bit := b;
  end;
 
-function func_u16bit_mixed(b: byte) : word;popstack;
+function func_u16bit_mixed(b: byte) : word;oldfpcall;
  var
   local_b: byte;
  begin
@@ -328,7 +330,7 @@ function func_u16bit_mixed(b: byte) : word;popstack;
    global_u8bit := b;
  end;
 
-function func_s32bit_mixed(b: byte) : longint;popstack;
+function func_s32bit_mixed(b: byte) : longint;oldfpcall;
  var
   local_b: byte;
  begin
@@ -337,7 +339,7 @@ function func_s32bit_mixed(b: byte) : longint;popstack;
    global_u8bit := b;
  end;
 
-function func_s64bit_mixed(b: byte) : int64;popstack;
+function func_s64bit_mixed(b: byte) : int64;oldfpcall;
  var
   local_b: byte;
  begin
@@ -346,7 +348,7 @@ function func_s64bit_mixed(b: byte) : int64;popstack;
    global_u8bit := b;
  end;
 
-function func_s32real_mixed(b: byte) : single;popstack;
+function func_s32real_mixed(b: byte) : single;oldfpcall;
  var
   local_b: byte;
  begin
@@ -355,7 +357,7 @@ function func_s32real_mixed(b: byte) : single;popstack;
    global_u8bit := b;
  end;
 
-function func_s64real_mixed(b: byte) : double;popstack;
+function func_s64real_mixed(b: byte) : double;oldfpcall;
  var
   local_b: byte;
  begin
@@ -364,7 +366,7 @@ function func_s64real_mixed(b: byte) : double;popstack;
    global_u8bit := b;
  end;
 
-function func_ansistring_mixed(b: byte) : ansistring;popstack;
+function func_ansistring_mixed(b: byte) : ansistring;oldfpcall;
  var
   local_b: byte;
  begin
@@ -373,7 +375,7 @@ function func_ansistring_mixed(b: byte) : ansistring;popstack;
    global_u8bit := b;
  end;
 
-function func_pchar_mixed(b: byte) : pchar;popstack;
+function func_pchar_mixed(b: byte) : pchar;oldfpcall;
  var
   local_b: byte;
  begin
@@ -384,7 +386,7 @@ function func_pchar_mixed(b: byte) : pchar;popstack;
 
  {********************* FUNCTION RESULT WITH PARAMS (NESTED) ******************}
 { LOC_MEM return values }
-function func_array_mixed_nested(b: byte): tsmallarray;popstack;
+function func_array_mixed_nested(b: byte): tsmallarray;oldfpcall;
 
     procedure nested_one_proc(l: longint);
      begin
@@ -430,7 +432,7 @@ function func_array_mixed_nested(b: byte): tsmallarray;popstack;
 {  nested_one_proc(RESULT_S32BIT);}
  end;
 
-function func_largerecord_mixed_nested(b: byte): tlargerecord;popstack;
+function func_largerecord_mixed_nested(b: byte): tlargerecord;oldfpcall;
 
     procedure nested_one_proc(l: longint);
      begin
@@ -475,7 +477,7 @@ function func_largerecord_mixed_nested(b: byte): tlargerecord;popstack;
    global_u8bit := nested_one_func(local_b, RESULT_BIGSTRING);
  end;
 
-function func_shortstring_mixed_nested(b: byte): shortstring;popstack;
+function func_shortstring_mixed_nested(b: byte): shortstring;oldfpcall;
 
     procedure nested_one_proc(l: longint);
      begin
@@ -515,7 +517,7 @@ function func_shortstring_mixed_nested(b: byte): shortstring;popstack;
    global_u8bit := nested_one_func(local_b, RESULT_BIGSTRING);
  end;
 
-function func_largeset_mixed_nested(b: byte) : tlargeset;popstack;
+function func_largeset_mixed_nested(b: byte) : tlargeset;oldfpcall;
 
     procedure nested_one_proc(l: longint);
      begin
@@ -558,7 +560,7 @@ function func_largeset_mixed_nested(b: byte) : tlargeset;popstack;
   global_u8bit := nested_one_func(local_b, RESULT_BIGSTRING);
  end;
 
-function func_u8bit_mixed_nested(b: byte) : byte;popstack;
+function func_u8bit_mixed_nested(b: byte) : byte;oldfpcall;
 
     procedure nested_one_proc(l: longint);
      begin
@@ -599,7 +601,7 @@ function func_u8bit_mixed_nested(b: byte) : byte;popstack;
    global_u8bit := nested_one_func(local_b, RESULT_BIGSTRING);
  end;
 
-function func_u16bit_mixed_nested(b: byte) : word;popstack;
+function func_u16bit_mixed_nested(b: byte) : word;oldfpcall;
 
     procedure nested_one_proc(l: longint);
      begin
@@ -640,7 +642,7 @@ function func_u16bit_mixed_nested(b: byte) : word;popstack;
    global_u8bit := nested_one_func(local_b, RESULT_BIGSTRING);
  end;
 
-function func_s32bit_mixed_nested(b: byte) : longint;popstack;
+function func_s32bit_mixed_nested(b: byte) : longint;oldfpcall;
 
     procedure nested_one_proc(l: longint);
      begin
@@ -681,7 +683,7 @@ function func_s32bit_mixed_nested(b: byte) : longint;popstack;
    global_u8bit := nested_one_func(local_b, RESULT_BIGSTRING);
  end;
 
-function func_s64bit_mixed_nested(b: byte) : int64;popstack;
+function func_s64bit_mixed_nested(b: byte) : int64;oldfpcall;
 
     procedure nested_one_proc(l: longint);
      begin
@@ -722,7 +724,7 @@ function func_s64bit_mixed_nested(b: byte) : int64;popstack;
    global_u8bit := nested_one_func(local_b, RESULT_BIGSTRING);
  end;
 
-function func_s32real_mixed_nested(b: byte) : single;popstack;
+function func_s32real_mixed_nested(b: byte) : single;oldfpcall;
 
     procedure nested_one_proc(l: longint);
      begin
@@ -763,7 +765,7 @@ function func_s32real_mixed_nested(b: byte) : single;popstack;
    global_u8bit := nested_one_func(local_b, RESULT_BIGSTRING);
  end;
 
-function func_s64real_mixed_nested(b: byte) : double;popstack;
+function func_s64real_mixed_nested(b: byte) : double;oldfpcall;
 
     procedure nested_one_proc(l: longint);
      begin
@@ -804,7 +806,7 @@ function func_s64real_mixed_nested(b: byte) : double;popstack;
    global_u8bit := nested_one_func(local_b, RESULT_BIGSTRING);
  end;
 
-function func_ansistring_mixed_nested(b: byte) : ansistring;popstack;
+function func_ansistring_mixed_nested(b: byte) : ansistring;oldfpcall;
 
     procedure nested_one_proc(l: longint);
      begin
@@ -845,7 +847,7 @@ function func_ansistring_mixed_nested(b: byte) : ansistring;popstack;
    global_u8bit := nested_one_func(local_b, RESULT_BIGSTRING);
  end;
 
-function func_pchar_mixed_nested(b: byte) : pchar;popstack;
+function func_pchar_mixed_nested(b: byte) : pchar;oldfpcall;
 
     procedure nested_one_proc(l: longint);
      begin
@@ -1402,7 +1404,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2003-04-22 10:24:29  florian
+  Revision 1.5  2003-10-03 14:46:37  peter
+    * popstack to oldfpccall
+
+  Revision 1.4  2003/04/22 10:24:29  florian
     * fixed defines for powerpc
 
   Revision 1.3  2002/09/07 15:40:51  peter

tests/test/cg/tcall1.pp

@@ -61,7 +61,7 @@ modifiers:
   pascal directive
   safecall directive
   stdcall directive
-  popstack directive
+  oldfpcall directive
   register directive
 }
 
@@ -236,7 +236,10 @@ end.
 
 {
  $Log$
- Revision 1.4  2002-09-07 15:40:52  peter
+ Revision 1.5  2003-10-03 14:46:37  peter
+   * popstack to oldfpccall
+
+ Revision 1.4  2002/09/07 15:40:52  peter
    * old logs removed and tabs fixed
 
  Revision 1.3  2002/08/25 19:27:40  peter

tests/test/cg/tcalpvr4.pp

@@ -1,3 +1,5 @@
+{ %version=1.1 }
+
 {****************************************************************}
 {  CODE GENERATOR TEST PROGRAM                                   }
 {****************************************************************}
@@ -12,7 +14,7 @@
 { DEFINES:                                                       }
 {****************************************************************}
 { REMARKS: This tests a subset of the secondcalln() , it         }
-{          verifies procedural variables for popstack              }
+{          verifies procedural variables for oldfpcall              }
 {          calling conventions.                                  }
 {****************************************************************}
 program tcalpvr3;
@@ -28,25 +30,25 @@ const
 
 type
 
-  troutine = procedure (x: longint;  y: byte);popstack;
-  troutineresult = function (x: longint; y: byte): int64;popstack;
+  troutine = procedure (x: longint;  y: byte);oldfpcall;
+  troutineresult = function (x: longint; y: byte): int64;oldfpcall;
 
   tsimpleobject = object
     constructor init;
-    procedure test_normal(x: byte);popstack;
-    procedure test_static(x: byte);static;popstack;
-    procedure test_virtual(x: byte);virtual;popstack;
+    procedure test_normal(x: byte);oldfpcall;
+    procedure test_static(x: byte);static;oldfpcall;
+    procedure test_virtual(x: byte);virtual;oldfpcall;
   end;
 
   tsimpleclass = class
     constructor create;
-    procedure test_normal(x: byte);popstack;
-    class procedure test_static(x: byte);popstack;
-    procedure test_virtual(x: byte);virtual;popstack;
+    procedure test_normal(x: byte);oldfpcall;
+    class procedure test_static(x: byte);oldfpcall;
+    procedure test_virtual(x: byte);virtual;oldfpcall;
   end;
 
-  tobjectmethod = procedure (x: byte) of object ;popstack;
-  tclassmethod = procedure (x: byte) of object;popstack;
+  tobjectmethod = procedure (x: byte) of object ;oldfpcall;
+  tclassmethod = procedure (x: byte) of object;oldfpcall;
 
 var
   proc : troutine;
@@ -84,13 +86,13 @@ var
     end;
 
 
-  procedure testroutine(x: longint; y: byte);popstack;
+  procedure testroutine(x: longint; y: byte);oldfpcall;
    begin
      global_s32bit := x;
      global_u8bit := y;
    end;
 
-  function testroutineresult(x: longint; y: byte): int64;popstack;
+  function testroutineresult(x: longint; y: byte): int64;oldfpcall;
    begin
      global_s32bit := x;
      global_u8bit := y;
@@ -160,17 +162,17 @@ var
    begin
    end;
 
-  procedure tsimpleobject.test_normal(x: byte);popstack;
+  procedure tsimpleobject.test_normal(x: byte);oldfpcall;
    begin
      global_u8bit := x;
    end;
 
-  procedure tsimpleobject.test_static(x: byte);popstack;
+  procedure tsimpleobject.test_static(x: byte);oldfpcall;
    begin
      global_u8bit := x;
    end;
 
-  procedure tsimpleobject.test_virtual(x: byte);popstack;
+  procedure tsimpleobject.test_virtual(x: byte);oldfpcall;
    begin
      global_u8bit := x;
    end;
@@ -181,17 +183,17 @@ var
     inherited create;
    end;
 
-  procedure tsimpleclass. test_normal(x: byte);popstack;
+  procedure tsimpleclass. test_normal(x: byte);oldfpcall;
    begin
      global_u8bit := x;
    end;
 
-  class procedure tsimpleclass.test_static(x: byte);popstack;
+  class procedure tsimpleclass.test_static(x: byte);oldfpcall;
    begin
      global_u8bit := x;
    end;
 
-  procedure tsimpleclass.test_virtual(x: byte);popstack;
+  procedure tsimpleclass.test_virtual(x: byte);oldfpcall;
    begin
      global_u8bit := x;
    end;
@@ -527,7 +529,10 @@ end.
 
 {
    $Log$
-   Revision 1.5  2003-05-15 20:34:29  peter
+   Revision 1.6  2003-10-03 14:46:37  peter
+     * popstack to oldfpccall
+
+   Revision 1.5  2003/05/15 20:34:29  peter
      * removed po_containsself tests
 
    Revision 1.4  2003/01/16 22:14:49  peter