Browse Source

+ common include file for tcal*.pp tests to define cpusmall

git-svn-id: trunk@46730 -
florian 5 years ago
parent
commit
55e6ffb428

+ 1 - 0
.gitattributes

@@ -13781,6 +13781,7 @@ tests/test/cg/tcalcst5.pp svneol=native#text/plain
 tests/test/cg/tcalcst6.pp svneol=native#text/plain
 tests/test/cg/tcalcst6.pp svneol=native#text/plain
 tests/test/cg/tcalcst7.pp svneol=native#text/plain
 tests/test/cg/tcalcst7.pp svneol=native#text/plain
 tests/test/cg/tcalcst8.pp svneol=native#text/plain
 tests/test/cg/tcalcst8.pp svneol=native#text/plain
+tests/test/cg/tcaldefs.inc svneol=native#text/plain
 tests/test/cg/tcalext.pp svneol=native#text/plain
 tests/test/cg/tcalext.pp svneol=native#text/plain
 tests/test/cg/tcalext3.pp svneol=native#text/plain
 tests/test/cg/tcalext3.pp svneol=native#text/plain
 tests/test/cg/tcalext4.pp svneol=native#text/plain
 tests/test/cg/tcalext4.pp svneol=native#text/plain

+ 1 - 9
tests/test/cg/tcalcla1.pp

@@ -24,15 +24,7 @@ program tcalcla1;
 {$mode objfpc}
 {$mode objfpc}
 {$R+}
 {$R+}
 
 
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-  {$if defined(FPC_MM_LARGE) or defined(FPC_MM_HUGE)}
-    {$hugecode on}
-  {$endif}
-{$endif}
+{$i tcaldefs.inc}
 
 
  const
  const
  { should be defined depending on CPU target }
  { should be defined depending on CPU target }

+ 1 - 6
tests/test/cg/tcalcst1.pp

@@ -28,12 +28,7 @@ program tcalcst1;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 6
tests/test/cg/tcalcst2.pp

@@ -28,12 +28,7 @@ program tcalcst2;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalcst3.pp

@@ -28,13 +28,7 @@ program tcalcst3;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalcst4.pp

@@ -28,13 +28,7 @@ program tcalcst4;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalcst5.pp

@@ -29,13 +29,7 @@ program tcalcst5;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalcst6.pp

@@ -34,13 +34,7 @@ program tcalcst6;
   {$define safecall_is_cdecl}
   {$define safecall_is_cdecl}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalcst7.pp

@@ -28,13 +28,7 @@ program tcalcst7;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalcst8.pp

@@ -28,13 +28,7 @@ program tcalcst8;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 15 - 0
tests/test/cg/tcaldefs.inc

@@ -0,0 +1,15 @@
+{$ifdef freertos}
+  {$define cpusmall}
+{$endif freertos}
+{$ifdef embedded}
+  {$define cpusmall}
+{$endif embedded}
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpui8086}
+  {$define cpusmall}
+  {$if defined(FPC_MM_LARGE) or defined(FPC_MM_HUGE)}
+    {$hugecode on}
+  {$endif}
+{$endif}

+ 1 - 7
tests/test/cg/tcalfun1.pp

@@ -31,13 +31,7 @@
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
   { REAL should map to single or double }
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalfun2.pp

@@ -31,13 +31,7 @@
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
   { REAL should map to single or double }
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalfun3.pp

@@ -31,13 +31,7 @@
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
   { REAL should map to single or double }
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalfun4.pp

@@ -33,13 +33,7 @@
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
   { REAL should map to single or double }
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalfun6.pp

@@ -31,13 +31,7 @@
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
   { REAL should map to single or double }
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalfun7.pp

@@ -31,13 +31,7 @@
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
   { REAL should map to single or double }
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { so it is not checked, since single  }

+ 1 - 6
tests/test/cg/tcalfun8.pp

@@ -31,13 +31,8 @@
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
+{$i tcaldefs.inc}
 
 
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
 
 
   { REAL should map to single or double }
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { so it is not checked, since single  }

+ 1 - 6
tests/test/cg/tcalobj1.pp

@@ -20,12 +20,7 @@
 program tcalobj1;
 program tcalobj1;
 {$R+}
 {$R+}
 
 
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  const
  const
  { should be defined depending on CPU target }
  { should be defined depending on CPU target }

+ 1 - 6
tests/test/cg/tcalobj2.pp

@@ -20,12 +20,7 @@
 program tcalobj2;
 program tcalobj2;
 {$R+}
 {$R+}
 
 
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  const
  const
  { should be defined depending on CPU target }
  { should be defined depending on CPU target }

+ 1 - 6
tests/test/cg/tcalobj3.pp

@@ -20,12 +20,7 @@
 program tcalobj3;
 program tcalobj3;
 {$R+}
 {$R+}
 
 
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  const
  const
  { should be defined depending on CPU target }
  { should be defined depending on CPU target }

+ 1 - 6
tests/test/cg/tcalobj4.pp

@@ -22,12 +22,7 @@
 program tcalobj4;
 program tcalobj4;
 {$R+}
 {$R+}
 
 
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  const
  const
  { should be defined depending on CPU target }
  { should be defined depending on CPU target }

+ 1 - 6
tests/test/cg/tcalobj6.pp

@@ -20,12 +20,7 @@
 program tcalobj6;
 program tcalobj6;
 {$R+}
 {$R+}
 
 
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  const
  const
  { should be defined depending on CPU target }
  { should be defined depending on CPU target }

+ 1 - 6
tests/test/cg/tcalobj7.pp

@@ -20,12 +20,7 @@
 program tcalobj7;
 program tcalobj7;
 {$R+}
 {$R+}
 
 
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  const
  const
  { should be defined depending on CPU target }
  { should be defined depending on CPU target }

+ 1 - 7
tests/test/cg/tcalval1.pp

@@ -30,13 +30,7 @@ program tcalval1;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalval2.pp

@@ -28,13 +28,7 @@ program tcalval2;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalval3.pp

@@ -30,13 +30,7 @@ program tcalval3;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalval4.pp

@@ -30,13 +30,7 @@ program tcalval4;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalval5.pp

@@ -32,13 +32,7 @@ program tcalval5;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalval7.pp

@@ -30,13 +30,7 @@ program tcalval7;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalval8.pp

@@ -30,13 +30,7 @@ program tcalval8;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalvar1.pp

@@ -28,13 +28,7 @@ program tcalvar1;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalvar2.pp

@@ -28,13 +28,7 @@ program tcalvar2;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalvar3.pp

@@ -28,13 +28,7 @@ program tcalvar3;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalvar4.pp

@@ -30,13 +30,7 @@ program tcalvar4;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalvar5.pp

@@ -32,13 +32,7 @@ program tcalvar5;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 6
tests/test/cg/tcalvar6.pp

@@ -36,12 +36,7 @@ program tcalvar6;
   {$define safecall_is_cdecl}
   {$define safecall_is_cdecl}
 {$endif}
 {$endif}
 
 
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalvar7.pp

@@ -30,13 +30,7 @@ program tcalvar7;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }

+ 1 - 7
tests/test/cg/tcalvar8.pp

@@ -30,13 +30,7 @@ program tcalvar8;
   {$define tp}
   {$define tp}
 {$endif}
 {$endif}
 
 
-
-{$ifdef cpu68k}
-  {$define cpusmall}
-{$endif}
-{$ifdef cpui8086}
-  {$define cpusmall}
-{$endif}
+{$i tcaldefs.inc}
 
 
  { REAL should map to single or double }
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { so it is not checked, since single  }