From c7f7ce2cddf07d53dce178ac138fceeae842e626 Mon Sep 17 00:00:00 2001 From: florian Date: Thu, 26 Nov 2009 19:39:23 +0000 Subject: [PATCH] + mips* + armel - unused variables removed git-svn-id: trunk@14276 - --- utils/fpcm/fpcmmain.pp | 71 +++++++++++++++++++++--------------------- 1 file changed, 36 insertions(+), 35 deletions(-) diff --git a/utils/fpcm/fpcmmain.pp b/utils/fpcm/fpcmmain.pp index 3b59c9ec68..f6d6c7f8f5 100644 --- a/utils/fpcm/fpcmmain.pp +++ b/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']);