Browse Source

* add to missing CPUs

git-svn-id: trunk@14090 -
pierre 15 years ago
parent
commit
d12c36ee32
1 changed files with 6 additions and 3 deletions
  1. 6 3
      compiler/utils/ppudump.pp

+ 6 - 3
compiler/utils/ppudump.pp

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