Browse Source

+ mips*
+ armel
- unused variables removed

git-svn-id: trunk@14276 -

florian 15 years ago
parent
commit
c7f7ce2cdd
1 changed files with 36 additions and 35 deletions
  1. 36 35
      utils/fpcm/fpcmmain.pp

+ 36 - 35
utils/fpcm/fpcmmain.pp

@@ -63,7 +63,7 @@ interface
 
     type
       TCpu=(
-        c_i386,c_m68k,c_powerpc,c_sparc,c_x86_64,c_arm,c_powerpc64,c_avr,c_armeb
+        c_i386,c_m68k,c_powerpc,c_sparc,c_x86_64,c_arm,c_powerpc64,c_avr,c_armeb,c_armel,c_mips,c_mipsel,c_mips64,c_mips64el
       );
 
       TOS=(
@@ -77,15 +77,15 @@ interface
 
     const
       CpuStr : array[TCpu] of string=(
-        'i386','m68k','powerpc','sparc','x86_64','arm','powerpc64','avr','armeb'
+        'i386','m68k','powerpc','sparc','x86_64','arm','powerpc64','avr','armeb', 'armel', 'mips', 'mipsel', 'mips64', 'mips64el'
       );
 
       CpuSuffix : array[TCpu] of string=(
-        '_i386','_m68k','_powerpc','_sparc','_x86_64','_arm','_powerpc64','avr','_armeb'
+        '_i386','_m68k','_powerpc','_sparc','_x86_64','_arm','_powerpc64','avr','_armeb', '_armel', '_mips', '_mipsel', '_mips64', '_mips64el'
       );
 
       ppcSuffix : array[TCpu] of string=(
-        '386','m68k','ppc','sparc','x86_64','arm','ppc64','avr','armeb'
+        '386','m68k','ppc','sparc','x86_64','arm','ppc64','avr','armeb', 'armel', 'mips', 'mipsel', 'mips64', 'mips64el'
       );
 
       OSStr : array[TOS] of string=(
@@ -104,35 +104,35 @@ interface
 
       { This table is kept OS,Cpu because it is easier to maintain (PFV) }
       OSCpuPossible : array[TOS,TCpu] of boolean = (
-        { os          i386    m68k  ppc    sparc  x86_64 arm    ppc64  avr    armeb}
-        { linux }   ( true,  true,  true,  true,  true,  true,  true,  false, true ),
-        { go32v2 }  ( true,  false, false, false, false, false, false, false, false),
-        { win32 }   ( true,  false, false, false, false, false, false, false, false),
-        { os2 }     ( true,  false, false, false, false, false, false, false, false),
-        { freebsd } ( true,  true,  false, false, true,  false, false, false, false),
-        { beos }    ( true,  false, false, false, false, false, false, false, false),
-        { haiku }   ( true,  false, false, false, false, false, false, false, false),
-        { netbsd }  ( true,  true,  true,  true,  false, false, false, false, false),
-        { amiga }   ( false, true,  true,  false, false, false, false, false, false),
-        { atari }   ( false, true,  false, false, false, false, false, false, false),
-        { solaris } ( true,  false, false, true,  true,  false, false, false, false),
-        { qnx }     ( true,  false, false, false, false, false, false, false, false),
-        { netware } ( true,  false, false, false, false, false, false, false, false),
-        { openbsd } ( true,  true,  false, false, false, false, false, false, false),
-        { wdosx }   ( true,  false, false, false, false, false, false, false, false),
-        { palmos }  ( false, true,  false, false, false, true,  false, false, false),
-        { macos }   ( false, false, true,  false, false, false, false, false, false),
-        { darwin }  ( true,  false, true,  false, true,  true,  true,  false, false),
-        { emx }     ( true,  false, false, false, false, false, false, false, false),
-        { watcom }  ( true,  false, false, false ,false, false, false, false, false),
-        { morphos } ( false, false, true,  false ,false, false, false, false, false),
-        { netwlibc }( true,  false, false, false, false, false, false, false, false),
-        { win64   } ( false, false, false, false, true,  false, false, false, false),
-        { wince    }( true,  false, false, false, false, true,  false, false, false),
-        { gba    }  ( false, false, false, false, false, true,  false, false, false),
-        { nds    }  ( false, false, false, false, false, true,  false, false, false),
-        { embedded }( true,  true,  true,  true,  true,  true,  true,  true,  true ),
-        { symbian } ( true,  false, false, false, false, true,  false, false, false)
+        { os          i386    m68k  ppc    sparc  x86_64 arm    ppc64  avr    armeb  armel  mips   mipsel mips64 misp64el}
+        { linux }   ( true,  true,  true,  true,  true,  true,  true,  false, true,  false, false, true,  false, false),
+        { go32v2 }  ( true,  false, false, false, false, false, false, false, false, false, false, false, false, false),
+        { win32 }   ( true,  false, false, false, false, false, false, false, false, false, false, false, false, false),
+        { os2 }     ( true,  false, false, false, false, false, false, false, false, false, false, false, false, false),
+        { freebsd } ( true,  true,  false, false, true,  false, false, false, false, false, false, false, false, false),
+        { beos }    ( true,  false, false, false, false, false, false, false, false, false, false, false, false, false),
+        { haiku }   ( true,  false, false, false, false, false, false, false, false, false, false, false, false, false),
+        { netbsd }  ( true,  true,  true,  true,  false, false, false, false, false, false, false, false, false, false),
+        { amiga }   ( false, true,  true,  false, false, false, false, false, false, false, false, false, false, false),
+        { atari }   ( false, true,  false, false, false, false, false, false, false, false, false, false, false, false),
+        { solaris } ( true,  false, false, true,  true,  false, false, false, false, false, false, false, false, false),
+        { qnx }     ( true,  false, false, false, false, false, false, false, false, false, false, false, false, false),
+        { netware } ( true,  false, false, false, false, false, false, false, false, false, false, false, false, false),
+        { openbsd } ( true,  true,  false, false, false, false, false, false, false, false, false, false, false, false),
+        { wdosx }   ( true,  false, false, false, false, false, false, false, false, false, false, false, false, false),
+        { palmos }  ( false, true,  false, false, false, true,  false, false, false, false, false, false, false, false),
+        { macos }   ( false, false, true,  false, false, false, false, false, false, false, false, false, false, false),
+        { darwin }  ( true,  false, true,  false, true,  true,  true,  false, false, false, false, false, false, false),
+        { emx }     ( true,  false, false, false, false, false, false, false, false, false, false, false, false, false),
+        { watcom }  ( true,  false, false, false ,false, false, false, false, false, false, false, false, false, false),
+        { morphos } ( false, false, true,  false ,false, false, false, false, false, false, false, false, false, false),
+        { netwlibc }( true,  false, false, false, false, false, false, false, false, false, false, false, false, false),
+        { win64   } ( false, false, false, false, true,  false, false, false, false, false, false, false, false, false),
+        { wince    }( true,  false, false, false, false, true,  false, false, false, false, false, false, false, false),
+        { gba    }  ( false, false, false, false, false, true,  false, false, false, false, false, false, false, false),
+        { nds    }  ( false, false, false, false, false, true,  false, false, false, false, false, false, false, false),
+        { embedded }( true,  true,  true,  true,  true,  true,  true,  true,  true , false, false, false, false, false),
+        { symbian } ( true,  false, false, false, false, true,  false, false, false, false, false, false, false, false)
       );
 
     type
@@ -714,8 +714,10 @@ implementation
 
 
     procedure TFPCMake.LoadMakefileFPC;
+{$ifdef SupportLCL}
       var
         s : string;
+{$endif SupportLCL}
       begin
         LoadSections;
         { Parse all sections }
@@ -835,8 +837,7 @@ implementation
 
     procedure TFPCMake.LoadPackageSection;
       var
-        hs,s : string;
-        t : TOS;
+        s : string;
       begin
         { Get package info from package section }
         FPackageSec:=TFPCMakeSection(FSections['package']);