remove unused consts

maxfpuregs set to 31


git-svn-id: http://svn.freepascal.org/svn/fpc/branches/foxsen@21575 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 22 deletions

diff --git a/mips/compiler/mips/cpubase.pas b/mips/compiler/mips/cpubase.pas
index 76ef839b19..f1dabbe0e9 100644
--- a/mips/compiler/mips/cpubase.pas
+++ b/mips/compiler/mips/cpubase.pas
@@ -98,9 +98,6 @@ unit cpubase;
       regdwarf_table : array[tregisterindex] of shortint = (
         {$i rmipsdwf.inc}
       );
-      { registers which may be destroyed by calls }
-      VOLATILE_INTREGISTERS = [RS_R0..RS_R3,RS_R12..RS_R15];
-      VOLATILE_FPUREGISTERS = [RS_F0..RS_F3];
 
     type
       totherregisterset = set of tregisterindex;
@@ -133,35 +130,17 @@ unit cpubase;
 
     const
       max_operands = 4;
-
       maxintregs = 31;
-      maxfpuregs = 8;
-      maxaddrregs = 0;
+      maxfpuregs = 31;
 
 {*****************************************************************************
                                 Operand Sizes
 *****************************************************************************}
 
-    type
-      topsize = (S_NO,
-        S_B,S_W,S_L,S_BW,S_BL,S_WL,
-        S_IS,S_IL,S_IQ,
-        S_FS,S_FL,S_FX,S_D,S_Q,S_FV,S_FXX
-      );
-
 {*****************************************************************************
                                  Constants
 *****************************************************************************}
 
-    const
-      maxvarregs = 7;
-      varregs : Array [1..maxvarregs] of tsuperregister =
-                (RS_R4,RS_R5,RS_R6,RS_R7,RS_R8,RS_R9,RS_R10);
-
-      maxfpuvarregs = 4;
-      fpuvarregs : Array [1..maxfpuvarregs] of tsuperregister =
-                (RS_F4,RS_F5,RS_F6,RS_F7);
-
 {*****************************************************************************
                           Default generic sizes
 *****************************************************************************}