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

* fixed tabs

Browse Source
This commit is contained in:
peter 1998-09-11 17:35:33 +00:00
parent c4a71b4fd9
commit ca51e0365a
1 changed files with 342 additions and 339 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

681
compiler/systems.pas
View File

@ -1,23 +1,23 @@
{
$Id$
Copyright (C) 1995,97 by Florian Klaempfl
$Id$
Copyright (C) 1995,97 by Florian Klaempfl
This unit contains information about the target systems supported
(these are not processor specific)
This unit contains information about the target systems supported
(these are not processor specific)
This progsam is free software; you can redistribute it and/or modify
iu under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This progsam is free software; you can redistribute it and/or modify
iu under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge- MA 02139, USA.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge- MA 02139, USA.
****************************************************************************
}
@ -26,145 +26,145 @@ unit systems;
interface
type
tendian = (endian_little,en_big_endian);
tendian = (endian_little,en_big_endian);
ttargetcpu=(i386,m68k,alpha);
ttargetcpu=(i386,m68k,alpha);
tprocessors = (
{$ifdef i386}
Class386,ClassP5,ClassP6
{$endif}
{$ifdef m68k}
MC68000,MC68100,MC68020
{$endif}
);
tprocessors = (
{$ifdef i386}
Class386,ClassP5,ClassP6
{$endif}
{$ifdef m68k}
MC68000,MC68100,MC68020
{$endif}
);
tasmmode= (
{$ifdef i386}
I386_ATT,I386_INTEL,I386_DIRECT
{$endif}
{$ifdef m68k}
M68K_MOT
{$endif}
);
tasmmode= (
{$ifdef i386}
I386_ATT,I386_INTEL,I386_DIRECT
{$endif}
{$ifdef m68k}
M68K_MOT
{$endif}
);
ttarget = (
{$ifdef i386}
target_GO32V1,target_GO32V2,target_LINUX,target_OS2,target_WIN32
{$endif i386}
{$ifdef m68k}
target_Amiga,target_Atari,target_Mac68k,target_Linux,target_PalmOS
{$endif}
);
ttarget = (
{$ifdef i386}
target_GO32V1,target_GO32V2,target_LINUX,target_OS2,target_WIN32
{$endif i386}
{$ifdef m68k}
target_Amiga,target_Atari,target_Mac68k,target_Linux,target_PalmOS
{$endif}
);
tasm = (
{$ifdef i386}
as_o,as_o_aout,as_asw,as_nasmcoff, as_nasmelf, as_nasmobj,
as_tasm, as_masm
{$endif}
{$ifdef m68k}
as_o,as_gas,as_mit,as_mot
{$endif}
);
tasm = (
{$ifdef i386}
as_o,as_o_aout,as_asw,as_nasmcoff, as_nasmelf, as_nasmobj,
as_tasm, as_masm
{$endif}
{$ifdef m68k}
as_o,as_gas,as_mit,as_mot
{$endif}
);
tlink = (
{$ifdef i386}
link_ld,link_ldgo32v1, link_ldgo32v2, link_ldw, link_ldos2
{$endif i386}
{$ifdef m68k}
link_ld
{$endif}
);
tlink = (
{$ifdef i386}
link_ld,link_ldgo32v1, link_ldgo32v2, link_ldw, link_ldos2
{$endif i386}
{$ifdef m68k}
link_ld
{$endif}
);
tar = (
{$ifdef i386}
ar_ar,ar_arw
{$endif}
{$ifdef m68k}
ar_ar
{$endif}
);
tar = (
{$ifdef i386}
ar_ar,ar_arw
{$endif}
{$ifdef m68k}
ar_ar
{$endif}
);
tos = (
{$ifdef i386}
os_GO32V1,os_GO32V2, os_Linux, os_OS2, os_WIN32
{$endif i387}
{$ifdef m68k}
os_Amiga, os_Atari, os_Mac68k, os_Linux, os_PalmOS
{$endif}
);
tos = (
{$ifdef i386}
os_GO32V1,os_GO32V2, os_Linux, os_OS2, os_WIN32
{$endif i387}
{$ifdef m68k}
os_Amiga, os_Atari, os_Mac68k, os_Linux, os_PalmOS
{$endif}
);
tosinfo = packed record
name : string[30];
sharedlibext,
staticlibext,
sourceext,
pasext,
exeext,
scriptext : string[4];
libprefix : string[3];
Cprefix : string[2];
newline : string[2];
endian : tendian;
use_function_relative_addresses : boolean;
end;
tosinfo = packed record
name : string[30];
sharedlibext,
staticlibext,
sourceext,
pasext,
exeext,
scriptext : string[4];
libprefix : string[3];
Cprefix : string[2];
newline : string[2];
endian : tendian;
use_function_relative_addresses : boolean;
end;
tasminfo = record
id : tasm;
idtxt : string[8];
asmbin : string[8];
asmcmd : string[50];
externals : boolean;
labelprefix : string[2];
comment : string[2];
end;
tasminfo = record
id : tasm;
idtxt : string[8];
asmbin : string[8];
asmcmd : string[50];
externals : boolean;
labelprefix : string[2];
comment : string[2];
end;
tlinkinfo = record
linkbin : string[8];
linkcmd : string[50];
bindbin : string[8];
bindcmd : string[50];
stripopt : string[2];
libpathprefix : string[13];
libpathsuffix : string[2];
groupstart : string[8];
groupend : string[2];
inputstart : string[8];
inputend : string[2];
libprefix : string[2];
end;
tlinkinfo = record
linkbin : string[8];
linkcmd : string[50];
bindbin : string[8];
bindcmd : string[50];
stripopt : string[2];
libpathprefix : string[13];
libpathsuffix : string[2];
groupstart : string[8];
groupend : string[2];
inputstart : string[8];
inputend : string[2];
libprefix : string[2];
end;
tarinfo = record
arbin : string[8];
arcmd : string[50];
end;
tarinfo = record
arbin : string[8];
arcmd : string[50];
end;
ttargetinfo = record
target : ttarget;
short_name : string[8];
unit_env : string[12];
system_unit : string[8];
smartext,
unitext,
unitlibext,
asmext,
objext,
exeext : string[4];
os : tos;
link : tlink;
assem : tasm;
ar : tar;
heapsize,
maxheapsize,
stacksize : longint;
end;
ttargetinfo = record
target : ttarget;
short_name : string[8];
unit_env : string[12];
system_unit : string[8];
smartext,
unitext,
unitlibext,
asmext,
objext,
exeext : string[4];
os : tos;
link : tlink;
assem : tasm;
ar : tar;
heapsize,
maxheapsize,
stacksize : longint;
end;
tasmmodeinfo=record
tasmmodeinfo=record
id : tasmmode;
idtxt : string[8];
end;
@ -178,7 +178,7 @@ unit systems;
{$endif m68k}
var
target_info : ttargetinfo;
target_info : ttargetinfo;
target_os : tosinfo;
target_asm : tasminfo;
target_link : tlinkinfo;
@ -209,11 +209,11 @@ implementation
libprefix : '';
Cprefix : '_';
newline : #13#10;
endian : endian_little;
endian : endian_little;
use_function_relative_addresses : true
),
(
name : 'GO32 V2 DOS extender';
name : 'GO32 V2 DOS extender';
sharedlibext : '.dll';
staticlibext : '.a';
sourceext : '.pp';
@ -238,7 +238,7 @@ implementation
Cprefix : '';
newline : #10;
endian : endian_little;
use_function_relative_addresses : true
use_function_relative_addresses : true
),
(
name : 'OS/2 via EMX';
@ -283,7 +283,7 @@ implementation
newline : #10;
endian : en_big_endian;
use_function_relative_addresses : false
),
),
(
name : 'Atari ST/STE';
sharedlibext : '.dll';
@ -328,7 +328,7 @@ implementation
),
(
name : 'PalmOS';
sharedlibext : '.so';
sharedlibext : '.so';
staticlibext : '.a';
sourceext : '.pp';
pasext : '.pas';
@ -356,7 +356,7 @@ implementation
asmbin : 'as';
asmcmd : '-D -o $OBJ $ASM';
externals : false;
labelprefix : '.L';
labelprefix : '.L';
comment : '# '
)
,(
@ -373,7 +373,7 @@ implementation
idtxt : 'ASW';
asmbin : 'asw';
asmcmd : '-D -o $OBJ $ASM';
externals : false;
externals : false;
labelprefix : '.L';
comment : '# '
)
@ -387,7 +387,7 @@ implementation
comment : '; '
)
,(
id : as_nasmelf;
id : as_nasmelf;
idtxt : 'NASMELF';
asmbin : 'nasm';
asmcmd : '-f elf -o $OBJ $ASM';
@ -418,7 +418,7 @@ implementation
idtxt : 'MASM';
asmbin : 'masm';
asmcmd : '$ASM $OBJ';
externals : true;
externals : true;
labelprefix : '.L';
comment : '; '
)
@ -494,7 +494,7 @@ implementation
groupend : '-)';
inputstart : '';
inputend : '';
libprefix : '-l'
libprefix : '-l'
)
,(
linkbin : 'ld';
@ -508,7 +508,7 @@ implementation
groupend : '-)';
inputstart : '';
inputend : '';
libprefix : '-l'
libprefix : '-l'
)
,(
linkbin : 'ldw';
@ -528,15 +528,15 @@ implementation
linkbin : 'ld'; { Os/2 }
linkcmd : '-o $EXE @$RES';
bindbin : 'emxbind';
bindcmd : '-b -k$STACKKB -h$HEAPMB -o $EXE.exe $EXE -aim -s$DOSHEAPKB';
stripopt : '-s';
libpathprefix : '-L';
libpathsuffix : '';
groupstart : ''; {Linker is too primitive...}
groupend : '';
inputstart : '';
inputend : '';
libprefix : '-l'
bindcmd : '-b -k$STACKKB -h$HEAPMB -o $EXE.exe $EXE -aim -s$DOSHEAPKB';
stripopt : '-s';
libpathprefix : '-L';
libpathsuffix : '';
groupstart : ''; {Linker is too primitive...}
groupend : '';
inputstart : '';
inputend : '';
libprefix : '-l'
)
{$endif i386}
{$ifdef m68k}
@ -549,11 +549,11 @@ implementation
libpathprefix : 'SEARCH_DIR(';
libpathsuffix : ')';
groupstart : 'GROUP(';
groupend : ')';
groupend : ')';
inputstart : 'INPUT(';
inputend : ')';
libprefix : '-l'
)
)
{$endif m68k}
);
@ -584,42 +584,42 @@ implementation
****************************************************************************}
target_infos : array[ttarget] of ttargetinfo = (
{$ifdef i386}
(
(
target : target_GO32V1;
short_name : 'GO32V1';
unit_env : 'GO32V1UNITS';
system_unit : 'SYSTEM';
smartext : '.sl';
unitext : '.pp1';
unitlibext : '.ppl';
unitlibext : '.ppl';
asmext : '.s1';
objext : '.o1';
exeext : ''; { The linker produces a.out }
os : os_GO32V1;
link : link_ldgo32v1;
os : os_GO32V1;
link : link_ldgo32v1;
assem : as_o;
ar : ar_ar;
heapsize : 2048*1024;
maxheapsize : 32768*1024;
stacksize : 16384
),
(
target : target_GO32V2;
short_name : 'GO32V2';
unit_env : 'GO32V2UNITS';
system_unit : 'SYSTEM';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '.exe';
os : os_GO32V2;
link : link_ldgo32v2;
assem : as_o;
ar : ar_ar;
heapsize : 2048*1024;
maxheapsize : 32768*1024;
ar : ar_ar;
heapsize : 2048*1024;
maxheapsize : 32768*1024;
stacksize : 16384
),
(
target : target_GO32V2;
short_name : 'GO32V2';
unit_env : 'GO32V2UNITS';
system_unit : 'SYSTEM';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '.exe';
os : os_GO32V2;
link : link_ldgo32v2;
assem : as_o;
ar : ar_ar;
heapsize : 2048*1024;
maxheapsize : 32768*1024;
stacksize : 16384
),
(
@ -629,43 +629,43 @@ implementation
system_unit : 'syslinux';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '';
os : os_Linux;
link : link_ld;
assem : as_o;
ar : ar_ar;
heapsize : 2048*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_OS2;
short_name : 'OS2';
unit_env : 'OS2UNITS';
system_unit : 'SYSOS2';
smartext : '.sl';
unitext : '.ppo';
unitlibext : '.ppl';
asmext : '.so2';
objext : '.oo2';
exeext : ''; { The linker produces a.out }
os : os_OS2;
link : link_ldos2;
assem : as_o_aout;
ar : ar_ar;
heapsize : 256*1024;
maxheapsize : 32768*1024;
stacksize : 32768
),
(
target : target_WIN32;
short_name : 'WIN32';
unit_env : 'WIN32UNITS';
system_unit : 'SYSWIN32';
smartext : '.sl';
assem : as_o;
ar : ar_ar;
heapsize : 2048*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_OS2;
short_name : 'OS2';
unit_env : 'OS2UNITS';
system_unit : 'SYSOS2';
smartext : '.sl';
unitext : '.ppo';
unitlibext : '.ppl';
asmext : '.so2';
objext : '.oo2';
exeext : ''; { The linker produces a.out }
os : os_OS2;
link : link_ldos2;
assem : as_o_aout;
ar : ar_ar;
heapsize : 256*1024;
maxheapsize : 32768*1024;
stacksize : 32768
),
(
target : target_WIN32;
short_name : 'WIN32';
unit_env : 'WIN32UNITS';
system_unit : 'SYSWIN32';
smartext : '.sl';
unitext : '.ppw';
unitlibext : '.ppl';
asmext : '.s';
@ -674,139 +674,139 @@ implementation
os : os_Win32;
link : link_ldw;
assem : as_asw;
ar : ar_arw;
ar : ar_arw;
heapsize : 8192*1024; { Until growing heap works !! (PFV) }
maxheapsize : 32768*1024;
stacksize : 32768
)
maxheapsize : 32768*1024;
stacksize : 32768
)
{$endif i386}
{$ifdef m68k}
(
target : target_Amiga;
short_name : 'AMIGA';
unit_env : '';
system_unit : 'sysamiga';
smartext : '.sl';
unitext : '.ppa';
unitlibext : '.ppl';
asmext : '.asm';
objext : '.o';
exeext : '';
os : os_Amiga;
link : link_ld;
assem : as_o;
ar : ar_ar;
heapsize : 128*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_Atari;
short_name : 'ATARI';
unit_env : '';
system_unit : 'SYSATARI';
smartext : '.sl';
unitext : '.ppt';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '';
os : os_Atari;
link : link_ld;
assem : as_o;
ar : ar_ar;
heapsize : 16*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_Mac68k;
short_name : 'MACOS';
unit_env : '';
system_unit : 'sysmac';
smartext : '.sl';
unitext : '.ppt';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '';
os : os_Mac68k;
link : link_ld;
assem : as_o;
ar : ar_ar;
heapsize : 128*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_Linux;
short_name : 'LINUX';
unit_env : 'LINUXUNITS';
system_unit : 'syslinux';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '';
os : os_Linux;
link : link_ld;
assem : as_o;
ar : ar_ar;
heapsize : 128*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_PalmOS;
short_name : 'PALMOS';
unit_env : 'PALMUNITS';
system_unit : 'syspalm';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '';
os : os_PalmOS;
link : link_ld;
assem : as_o;
ar : ar_ar;
heapsize : 128*1024;
maxheapsize : 32768*1024;
stacksize : 8192
)
(
target : target_Amiga;
short_name : 'AMIGA';
unit_env : '';
system_unit : 'sysamiga';
smartext : '.sl';
unitext : '.ppa';
unitlibext : '.ppl';
asmext : '.asm';
objext : '.o';
exeext : '';
os : os_Amiga;
link : link_ld;
assem : as_o;
ar : ar_ar;
heapsize : 128*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_Atari;
short_name : 'ATARI';
unit_env : '';
system_unit : 'SYSATARI';
smartext : '.sl';
unitext : '.ppt';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '';
os : os_Atari;
link : link_ld;
assem : as_o;
ar : ar_ar;
heapsize : 16*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_Mac68k;
short_name : 'MACOS';
unit_env : '';
system_unit : 'sysmac';
smartext : '.sl';
unitext : '.ppt';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '';
os : os_Mac68k;
link : link_ld;
assem : as_o;
ar : ar_ar;
heapsize : 128*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_Linux;
short_name : 'LINUX';
unit_env : 'LINUXUNITS';
system_unit : 'syslinux';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '';
os : os_Linux;
link : link_ld;
assem : as_o;
ar : ar_ar;
heapsize : 128*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_PalmOS;
short_name : 'PALMOS';
unit_env : 'PALMUNITS';
system_unit : 'syspalm';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '';
os : os_PalmOS;
link : link_ld;
assem : as_o;
ar : ar_ar;
heapsize : 128*1024;
maxheapsize : 32768*1024;
stacksize : 8192
)
{$endif m68k}
);
);
{****************************************************************************
AsmModeInfo
AsmModeInfo
****************************************************************************}
asmmodeinfos : array[tasmmode] of tasmmodeinfo = (
asmmodeinfos : array[tasmmode] of tasmmodeinfo = (
{$ifdef i386}
(
id : I386_DIRECT;
idtxt : 'DIRECT'
),
(
id : I386_INTEL;
idtxt : 'INTEL'
),
(
id : I386_ATT;
idtxt : 'ATT'
)
(
id : I386_DIRECT;
idtxt : 'DIRECT'
),
(
id : I386_INTEL;
idtxt : 'INTEL'
),
(
id : I386_ATT;
idtxt : 'ATT'
)
{$endif i386}
{$ifdef m68k}
(
id : M68K_MOT;
idtxt : 'MOT'
)
(
id : M68K_MOT;
idtxt : 'MOT'
)
{$endif m68k}
);
);
{****************************************************************************
Helpers
Helpers
****************************************************************************}
procedure set_target(t : ttarget);
@ -907,7 +907,7 @@ begin
{$ifdef ATARI}
default_os(target_Atari);
{$else}
{$ifdef MACOS}
{$ifdef MACOS}
default_os(target_MAC68k);
{$else}
default_os(target_Amiga);
@ -918,7 +918,10 @@ begin
end.
{
$Log$
Revision 1.34 1998-09-11 12:27:55 pierre
Revision 1.35 1998-09-11 17:35:33 peter
* fixed tabs
Revision 1.34 1998/09/11 12:27:55 pierre
* restored m68k part
Revision 1.33.2.1 1998/09/11 12:06:00 pierre
@ -961,7 +964,7 @@ end.
* first version of rtti support
Revision 1.22 1998/06/17 14:10:21 peter
* small os2 fixes
* small os2 fixes
* fixed interdependent units with newppu (remake3 under linux works now)
Revision 1.20 1998/06/15 15:38:14 pierre