Use new conditional CPUSMALL and define it for m68k and 8086 cpu to use small array size

git-svn-id: trunk@24964 -

tests/test/cg/tcalcla1.pp

@@ -24,9 +24,16 @@ program tcalcla1;
 {$mode objfpc}
 {$R+}
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  const
  { should be defined depending on CPU target }
- {$ifdef cpu68k}
+ {$ifdef cpusmall}
    BIG_INDEX = 8000;
    SMALL_INDEX  = 13;
  {$else}

tests/test/cg/tcalcst1.pp

@@ -28,6 +28,13 @@ program tcalcst1;
   {$define tp}
 {$endif}
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -37,7 +44,7 @@ program tcalcst1;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalcst2.pp

@@ -28,6 +28,13 @@ program tcalcst2;
   {$define tp}
 {$endif}
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -37,7 +44,7 @@ program tcalcst2;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalcst3.pp

@@ -29,6 +29,13 @@ program tcalcst3;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -38,7 +45,7 @@ program tcalcst3;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalcst4.pp

@@ -29,6 +29,13 @@ program tcalcst4;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -38,7 +45,7 @@ program tcalcst4;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalcst5.pp

@@ -30,6 +30,13 @@ program tcalcst5;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -39,7 +46,7 @@ program tcalcst5;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalcst6.pp

@@ -35,6 +35,13 @@ program tcalcst6;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -44,7 +51,7 @@ program tcalcst6;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalcst7.pp

@@ -29,6 +29,13 @@ program tcalcst7;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -38,7 +45,7 @@ program tcalcst7;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalcst8.pp

@@ -29,6 +29,13 @@ program tcalcst8;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -38,7 +45,7 @@ program tcalcst8;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalfun1.pp

@@ -32,6 +32,13 @@
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { double nodes are checked.           }
@@ -41,7 +48,7 @@
   const
  { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalfun2.pp

@@ -32,6 +32,13 @@
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { double nodes are checked.           }
@@ -41,7 +48,7 @@
   const
  { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalfun3.pp

@@ -32,6 +32,13 @@
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { double nodes are checked.           }
@@ -41,7 +48,7 @@
   const
  { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalfun4.pp

@@ -34,6 +34,13 @@
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { double nodes are checked.           }
@@ -43,7 +50,7 @@
   const
  { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalfun6.pp

@@ -32,6 +32,13 @@
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { double nodes are checked.           }
@@ -41,7 +48,7 @@
   const
  { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalfun7.pp

@@ -32,6 +32,13 @@
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { double nodes are checked.           }
@@ -41,7 +48,7 @@
   const
  { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalfun8.pp

@@ -32,6 +32,13 @@
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
   { REAL should map to single or double }
   { so it is not checked, since single  }
   { double nodes are checked.           }
@@ -41,7 +48,7 @@
   const
  { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalobj1.pp

@@ -20,9 +20,16 @@
 program tcalobj1;
 {$R+}
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  const
  { should be defined depending on CPU target }
- {$ifdef cpu68k}
+ {$ifdef cpusmall}
    BIG_INDEX = 8000;
    SMALL_INDEX  = 13;
  {$else}

tests/test/cg/tcalobj2.pp

@@ -20,9 +20,16 @@
 program tcalobj2;
 {$R+}
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  const
  { should be defined depending on CPU target }
- {$ifdef cpu68k}
+ {$ifdef cpusmall}
    BIG_INDEX = 8000;
    SMALL_INDEX  = 13;
  {$else}

tests/test/cg/tcalobj3.pp

@@ -20,9 +20,16 @@
 program tcalobj3;
 {$R+}
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  const
  { should be defined depending on CPU target }
- {$ifdef cpu68k}
+ {$ifdef cpusmall}
    BIG_INDEX = 8000;
    SMALL_INDEX  = 13;
  {$else}

tests/test/cg/tcalobj4.pp

@@ -22,9 +22,16 @@
 program tcalobj4;
 {$R+}
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  const
  { should be defined depending on CPU target }
- {$ifdef cpu68k}
+ {$ifdef cpusmall}
    BIG_INDEX = 8000;
    SMALL_INDEX  = 13;
  {$else}

tests/test/cg/tcalobj6.pp

@@ -20,9 +20,16 @@
 program tcalobj6;
 {$R+}
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  const
  { should be defined depending on CPU target }
- {$ifdef cpu68k}
+ {$ifdef cpusmall}
    BIG_INDEX = 8000;
    SMALL_INDEX  = 13;
  {$else}

tests/test/cg/tcalobj7.pp

@@ -20,9 +20,16 @@
 program tcalobj7;
 {$R+}
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  const
  { should be defined depending on CPU target }
- {$ifdef cpu68k}
+ {$ifdef cpusmall}
    BIG_INDEX = 8000;
    SMALL_INDEX  = 13;
  {$else}

tests/test/cg/tcalval1.pp

@@ -31,6 +31,13 @@ program tcalval1;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -40,7 +47,7 @@ program tcalval1;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalval2.pp

@@ -29,6 +29,13 @@ program tcalval2;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -38,7 +45,7 @@ program tcalval2;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalval3.pp

@@ -31,6 +31,13 @@ program tcalval3;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -40,7 +47,7 @@ program tcalval3;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalval4.pp

@@ -31,6 +31,13 @@ program tcalval4;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -40,7 +47,7 @@ program tcalval4;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalval5.pp

@@ -33,6 +33,13 @@ program tcalval5;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -42,7 +49,7 @@ program tcalval5;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalval7.pp

@@ -31,6 +31,13 @@ program tcalval7;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -40,7 +47,7 @@ program tcalval7;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalval8.pp

@@ -31,6 +31,13 @@ program tcalval8;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -40,7 +47,7 @@ program tcalval8;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalvar1.pp

@@ -29,6 +29,13 @@ program tcalvar1;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -38,7 +45,7 @@ program tcalvar1;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalvar2.pp

@@ -29,6 +29,13 @@ program tcalvar2;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -38,7 +45,7 @@ program tcalvar2;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalvar3.pp

@@ -29,6 +29,13 @@ program tcalvar3;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -38,7 +45,7 @@ program tcalvar3;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalvar4.pp

@@ -31,6 +31,13 @@ program tcalvar4;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -40,7 +47,7 @@ program tcalvar4;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalvar5.pp

@@ -33,6 +33,13 @@ program tcalvar5;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -42,7 +49,7 @@ program tcalvar5;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalvar6.pp

@@ -36,6 +36,13 @@ program tcalvar6;
   {$define safecall_is_cdecl}
 {$endif}
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -45,7 +52,7 @@ program tcalvar6;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalvar7.pp

@@ -31,6 +31,13 @@ program tcalvar7;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -40,7 +47,7 @@ program tcalvar7;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}

tests/test/cg/tcalvar8.pp

@@ -31,6 +31,13 @@ program tcalvar8;
 {$endif}
 
 
+{$ifdef cpu68k}
+  {$define cpusmall}
+{$endif}
+{$ifdef cpu8086}
+  {$define cpusmall}
+{$endif}
+
  { REAL should map to single or double }
  { so it is not checked, since single  }
  { double nodes are checked.           }
@@ -40,7 +47,7 @@ program tcalvar8;
  const
 { should be defined depending on CPU target }
 {$ifdef fpc}
-  {$ifdef cpu68k}
+  {$ifdef cpusmall}
     BIG_INDEX = 8000;
     SMALL_INDEX  = 13;
   {$else}