paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 05:10:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added vm / sparc targets

Browse Source
This commit is contained in:
carl 2002-04-07 10:23:36 +00:00
parent d5e772d8a4
commit f504aab788
1 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/utils/ppudump.pp
View File

@ -67,8 +67,8 @@ type
{ taken from systems.pas }
ttarget =
(
target_none, { 0 }
obsolete_target_i386_GO32V1,{ 1 }
target_none, { 0 }
target_i386_GO32V1, { 1 }
target_i386_GO32V2, { 2 }
target_i386_linux, { 3 }
target_i386_OS2, { 4 }
@ -88,12 +88,14 @@ type
target_m68k_netbsd, { 18 }
target_i386_Netware, { 19 }
target_i386_qnx, { 20 }
target_i386_wdosx { 21 }
target_i386_wdosx, { 21 }
target_sparc_sunos, { 22 }
target_sparc_linux { 23 }
);
const
Targets : array[ttarget] of string[12]=(
Targets : array[ttarget] of string[16]=(
{ 0 } 'none',
{ 1 } '<obsolete>',
{ 1 } 'GO32V1',
{ 2 } 'GO32V2',
{ 3 } 'Linux-i386',
{ 4 } 'OS/2',
@ -113,7 +115,9 @@ const
{ 18 } 'NetBSD-m68k',
{ 19 } 'Netware',
{ 20 } 'Qnx-i386',
{ 21 } 'WDOSX-i386'
{ 21 } 'WDOSX-i386',
{ 22 } 'Solaris-sparc',
{ 23 } 'Linux-sparc'
);
begin
if w<=ord(high(ttarget)) then
@ -132,11 +136,13 @@ type
i386, { 1 }
m68k, { 2 }
alpha, { 3 }
powerpc { 4 }
powerpc, { 4 }
sparc, { 5 }
vm { 6 }
);
const
CpuTxt : array[ttargetcpu] of string[7]=
('none','i386','m68k','alpha','powerpc');
('none','i386','m68k','alpha','powerpc','sparc','vis');
begin
if w<=ord(high(ttargetcpu)) then
Cpu2Str:=CpuTxt[ttargetcpu(w)]
@ -1694,7 +1700,10 @@ begin
end.
{
$Log$
Revision 1.17 2002-04-04 19:06:14 peter
Revision 1.18 2002-04-07 10:23:36 carl
+ added vm / sparc targets
Revision 1.17 2002/04/04 19:06:14 peter
* removed unused units
* use tlocation.size in cg.a_*loc*() routines