paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 03:26:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* add to missing CPUs

Browse Source 
git-svn-id: trunk@14090 -
This commit is contained in:
pierre 2009-11-07 00:23:04 +00:00
parent f9eb89eb98
commit d12c36ee32
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/utils/ppudump.pp
View File

@ -97,7 +97,9 @@ type
cpu_iA64, { 7 } cpu_iA64, { 7 }
cpu_x86_64, { 8 } cpu_x86_64, { 8 }
cpu_mips, { 9 } cpu_mips, { 9 }
cpu_arm { 10 } cpu_arm, { 10 }
cpu_powerpc64, { 11 }
cpu_avr { 12 }
); );
var var
@ -273,8 +275,9 @@ end;
Function Cpu2Str(w:longint):string; Function Cpu2Str(w:longint):string;
const const
CpuTxt : array[tsystemcpu] of string[8]= CpuTxt : array[tsystemcpu] of string[9]=
('none','i386','m68k','alpha','powerpc','sparc','vis','ia64','x86_64','mips','arm'); ('none','i386','m68k','alpha','powerpc','sparc','vis','ia64',
'x86_64','mips','arm','powerpc64','avr');
begin begin
if w<=ord(high(tsystemcpu)) then if w<=ord(high(tsystemcpu)) then
Cpu2Str:=CpuTxt[tsystemcpu(w)] Cpu2Str:=CpuTxt[tsystemcpu(w)]