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

* updated targets

Browse Source
This commit is contained in:
carl 2001-09-22 04:52:27 +00:00
parent 8393b73e58
commit 32b77e2f83
1 changed files with 62 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
compiler/utils/ppudump.pp
View File

@ -32,7 +32,7 @@ uses
const const
Version = 'Version 1.10'; Version = 'Version 1.10';
Title = 'PPU-Analyser'; Title = 'PPU-Analyser';
Copyright = 'Copyright (c) 1998-2000 by the Free Pascal Development Team'; Copyright = 'Copyright (c) 1998-2001 by the Free Pascal Development Team';
{ verbosity } { verbosity }
v_none = $0; v_none = $0;
@ -64,16 +64,53 @@ End;
Function Target2Str(w:longint):string; Function Target2Str(w:longint):string;
type type
ttarget = (target_none { taken from systems.pas }
,target_i386_GO32V1,target_i386_GO32V2,target_i386_linux, ttarget =
target_i386_OS2,target_i386_Win32 (
,target_m68k_Amiga,target_m68k_Atari,target_m68k_Mac, target_none, { 0 }
target_m68k_linux,target_m68k_PalmOS target_i386_GO32V1, { 1 }
); target_i386_GO32V2, { 2 }
target_i386_linux, { 3 }
target_i386_OS2, { 4 }
target_i386_Win32, { 5 }
target_i386_freebsd, { 6 }
target_m68k_Amiga, { 7 }
target_m68k_Atari, { 8 }
target_m68k_Mac, { 9 }
target_m68k_linux, { 10 }
target_m68k_PalmOS, { 11 }
target_alpha_linux, { 12 }
target_powerpc_linux, { 13 }
target_powerpc_macos, { 14 }
target_i386_sunos, { 15 }
target_i386_beos, { 16 }
target_i386_netbsd, { 17 }
target_m68k_netbsd, { 18 }
target_i386_Netware { 19 }
);
const const
Targets : array[ttarget] of string[10]=('none', Targets : array[ttarget] of string[12]=(
'GO32V1','GO32V2','Linux-i386','OS/2','Win32', { 0 } 'none',
'Amiga','Mac68k','Atari','Linux-m68k','PalmOs'); { 1 } 'GO32V1',
{ 2 } 'GO32V2',
{ 3 } 'Linux-i386',
{ 4 } 'OS/2',
{ 5 } 'Win32',
{ 6 } 'FreeBSD-i386',
{ 7 } 'Amiga',
{ 8 } 'Atari',
{ 9 } 'MacOS-m68k',
{ 10 } 'Linux-m68k',
{ 11 } 'PalmOS-m68k',
{ 12 } 'Linux-alpha',
{ 13 } 'Linux-ppc',
{ 14 } 'MacOS-ppc',
{ 15 } 'Solaris-i386',
{ 16 } 'BeOS-i386',
{ 17 } 'NetBSD-i386',
{ 18 } 'NetBSD-m68k',
{ 19 } 'Netware'
);
begin begin
if w<=ord(high(ttarget)) then if w<=ord(high(ttarget)) then
Target2Str:=Targets[ttarget(w)] Target2Str:=Targets[ttarget(w)]
@ -84,12 +121,18 @@ end;
Function Cpu2Str(w:longint):string; Function Cpu2Str(w:longint):string;
type type
ttargetcpu=(no_cpu { Copied from systems.pas }
,i386,m68k,alpha ttargetcpu=
); (
no_cpu, { 0 }
i386, { 1 }
m68k, { 2 }
alpha, { 3 }
powerpc { 4 }
);
const const
CpuTxt : array[ttargetcpu] of string[5]= CpuTxt : array[ttargetcpu] of string[7]=
('none','i386','m68k','alpha'); ('none','i386','m68k','alpha','powerpc');
begin begin
if w<=ord(high(ttargetcpu)) then if w<=ord(high(ttargetcpu)) then
Cpu2Str:=CpuTxt[ttargetcpu(w)] Cpu2Str:=CpuTxt[ttargetcpu(w)]
@ -1584,7 +1627,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.7 2001-08-30 20:55:02 peter Revision 1.8 2001-09-22 04:52:27 carl
* updated targets
Revision 1.7 2001/08/30 20:55:02 peter
* rttisym support * rttisym support
Revision 1.6 2001/08/19 09:39:29 peter Revision 1.6 2001/08/19 09:39:29 peter