mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 23:39:36 +02:00
1589 lines
46 KiB
ObjectPascal
1589 lines
46 KiB
ObjectPascal
{
|
|
$Id$
|
|
Copyright (C) 1998-2000 by Florian Klaempfl
|
|
|
|
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 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.
|
|
|
|
****************************************************************************
|
|
}
|
|
unit systems;
|
|
|
|
interface
|
|
|
|
type
|
|
tendian = (endian_little,endian_big);
|
|
|
|
ttargetcpu=(no_cpu
|
|
,i386,m68k,alpha,powerpc
|
|
);
|
|
|
|
tprocessors = (no_processor
|
|
,Class386,ClassP5,ClassP6
|
|
,MC68000,MC68100,MC68020
|
|
);
|
|
|
|
tsection=(sec_none,
|
|
sec_code,sec_data,sec_bss,
|
|
sec_idata2,sec_idata4,sec_idata5,sec_idata6,sec_idata7,sec_edata,
|
|
sec_stab,sec_stabstr
|
|
);
|
|
|
|
type
|
|
tasmmode= (asmmode_none
|
|
,asmmode_i386_direct,asmmode_i386_att,asmmode_i386_intel
|
|
,asmmode_m68k_mot,asmmode_alpha_direct,asmmode_powerpc_direct
|
|
);
|
|
const
|
|
{$ifdef i386} i386asmmodecnt=3; {$else} i386asmmodecnt=0; {$endif}
|
|
{$ifdef m68k} m68kasmmodecnt=1; {$else} m68kasmmodecnt=0; {$endif}
|
|
{$ifdef alpha} alphaasmmodecnt=1; {$else} alphaasmmodecnt=0; {$endif}
|
|
{$ifdef powerpc} powerpcasmmodecnt=1; {$else} powerpcasmmodecnt=0; {$endif}
|
|
asmmodecnt=i386asmmodecnt+m68kasmmodecnt+Alphaasmmodecnt+powerpcasmmodecnt+1;
|
|
|
|
type
|
|
ttarget = (target_none
|
|
,target_i386_GO32V1,target_i386_GO32V2,target_i386_linux,
|
|
target_i386_OS2,target_i386_Win32
|
|
,target_m68k_Amiga,target_m68k_Atari,target_m68k_Mac,
|
|
target_m68k_linux,target_m68k_PalmOS,target_alpha_linux,
|
|
target_powerpc_linux
|
|
);
|
|
|
|
ttargetflags = (tf_none,
|
|
tf_supports_stack_checking,tf_need_export,tf_needs_isconsole
|
|
);
|
|
|
|
const
|
|
{$ifdef i386} i386targetcnt=5; {$else} i386targetcnt=0; {$endif}
|
|
{$ifdef m68k} m68ktargetcnt=5; {$else} m68ktargetcnt=0; {$endif}
|
|
{$ifdef alpha} alphatargetcnt=1; {$else} alphatargetcnt=0; {$endif}
|
|
{$ifdef powerpc} powerpctargetcnt=1; {$else} powerpctargetcnt=0; {$endif}
|
|
targetcnt=i386targetcnt+m68ktargetcnt+alphatargetcnt+powerpctargetcnt+1;
|
|
|
|
type
|
|
tasm = (as_none
|
|
,as_i386_as,as_i386_as_aout,as_i386_asw,
|
|
as_i386_nasmcoff,as_i386_nasmelf,as_i386_nasmobj,
|
|
as_i386_tasm,as_i386_masm,
|
|
as_i386_dbg,as_i386_coff,as_i386_pecoff
|
|
,as_m68k_as,as_m68k_gas,as_m68k_mit,as_m68k_mot,as_m68k_mpw,
|
|
as_alpha_as,as_powerpc_as
|
|
);
|
|
{ binary assembler writers, needed to test for -a }
|
|
const
|
|
{$ifdef i386} i386asmcnt=11; {$else} i386asmcnt=0; {$endif}
|
|
{$ifdef m68k} m68kasmcnt=5; {$else} m68kasmcnt=0; {$endif}
|
|
{$ifdef alpha} alphaasmcnt=1; {$else} alphaasmcnt=0; {$endif}
|
|
{$ifdef powerpc} powerpcasmcnt=1; {$else} powerpcasmcnt=0; {$endif}
|
|
asmcnt=i386asmcnt+m68kasmcnt+alphaasmcnt+powerpcasmcnt+1;
|
|
|
|
binassem : set of tasm = [
|
|
as_i386_dbg,as_i386_coff,as_i386_pecoff
|
|
];
|
|
|
|
type
|
|
tar = (ar_none
|
|
,ar_i386_ar,ar_i386_arw
|
|
,ar_m68k_ar,ar_alpha_ar,ar_powerpc_ar
|
|
);
|
|
const
|
|
{$ifdef i386} i386arcnt=2; {$else} i386arcnt=0; {$endif}
|
|
{$ifdef m68k} m68karcnt=1; {$else} m68karcnt=0; {$endif}
|
|
{$ifdef alpha} alphaarcnt=1; {$else} alphaarcnt=0; {$endif}
|
|
{$ifdef powerpc} powerpcarcnt=1; {$else} powerpcarcnt=0; {$endif}
|
|
arcnt=i386arcnt+m68karcnt+alphaarcnt+powerpcarcnt+1;
|
|
|
|
type
|
|
tres = (res_none
|
|
,res_i386_windres
|
|
);
|
|
const
|
|
{$ifdef i386} i386rescnt=1; {$else} i386rescnt=0; {$endif}
|
|
{$ifdef m68k} m68krescnt=0; {$else} m68krescnt=0; {$endif}
|
|
{$ifdef alpha} alpharescnt=0; {$else} alpharescnt=0; {$endif}
|
|
{$ifdef powerpc} powerpcrescnt=0; {$else} powerpcrescnt=0; {$endif}
|
|
rescnt=i386rescnt+m68krescnt+alpharescnt+powerpcrescnt+1;
|
|
|
|
type
|
|
tos = ( os_none,
|
|
os_i386_GO32V1,os_i386_GO32V2,os_i386_Linux,os_i386_OS2,
|
|
os_i386_Win32,
|
|
os_m68k_Amiga,os_m68k_Atari,os_m68k_Mac,os_m68k_Linux,
|
|
os_m68k_PalmOS,os_alpha_linux,os_powerpc_linux
|
|
);
|
|
const
|
|
i386oscnt=5;
|
|
m68koscnt=5;
|
|
alphaoscnt=1;
|
|
powerpcoscnt=1;
|
|
oscnt=i386oscnt+m68koscnt+alphaoscnt+powerpcoscnt+1;
|
|
|
|
type
|
|
tosinfo = packed record
|
|
id : tos;
|
|
name : string[30];
|
|
shortname : string[8];
|
|
sharedlibext : string[10];
|
|
staticlibext,
|
|
sourceext,
|
|
pasext,
|
|
exeext,
|
|
defext,
|
|
scriptext : string[4];
|
|
libprefix : string[3];
|
|
Cprefix : string[2];
|
|
newline : string[2];
|
|
endian : tendian;
|
|
stackalignment : {longint this is a little overkill no ?? }byte;
|
|
size_of_pointer : byte;
|
|
size_of_longint : byte;
|
|
use_bound_instruction : boolean;
|
|
use_function_relative_addresses : boolean;
|
|
end;
|
|
|
|
tasminfo = packed record
|
|
id : tasm;
|
|
idtxt : string[8];
|
|
asmbin : string[8];
|
|
asmcmd : string[50];
|
|
allowdirect,
|
|
externals,
|
|
needar : boolean;
|
|
labelprefix : string[2];
|
|
comment : string[2];
|
|
secnames : array[tsection] of string[20];
|
|
end;
|
|
|
|
tarinfo = packed record
|
|
id : tar;
|
|
arcmd : string[50];
|
|
end;
|
|
|
|
tresinfo = packed record
|
|
id : tres;
|
|
resbin : string[8];
|
|
rescmd : string[50];
|
|
end;
|
|
|
|
ttargetinfo = packed record
|
|
target : ttarget;
|
|
flags : set of ttargetflags;
|
|
cpu : ttargetcpu;
|
|
short_name : string[8];
|
|
unit_env : string[12];
|
|
system_unit : string[8];
|
|
smartext,
|
|
unitext,
|
|
unitlibext,
|
|
asmext,
|
|
objext,
|
|
resext,
|
|
resobjext,
|
|
exeext : string[4];
|
|
os : tos;
|
|
assem : tasm;
|
|
assemsrc : tasm; { default source writing assembler }
|
|
ar : tar;
|
|
res : tres;
|
|
heapsize,
|
|
maxheapsize,
|
|
stacksize : longint;
|
|
end;
|
|
|
|
tasmmodeinfo=packed record
|
|
id : tasmmode;
|
|
idtxt : string[8];
|
|
end;
|
|
|
|
var
|
|
target_cpu : ttargetcpu;
|
|
target_info : ttargetinfo;
|
|
target_os : tosinfo;
|
|
target_asm : tasminfo;
|
|
target_ar : tarinfo;
|
|
target_res : tresinfo;
|
|
target_path : string[12]; { for rtl/<X>/,fcl/<X>/, etc. }
|
|
source_os : tosinfo;
|
|
|
|
function set_target_os(t:tos):boolean;
|
|
function set_target_asm(t:tasm):boolean;
|
|
function set_target_ar(t:tar):boolean;
|
|
function set_target_res(t:tres):boolean;
|
|
function set_target_info(t:ttarget):boolean;
|
|
|
|
function set_string_target(s : string) : boolean;
|
|
function set_string_asm(s : string) : boolean;
|
|
function set_string_asmmode(s:string;var t:tasmmode):boolean;
|
|
|
|
procedure InitSystems;
|
|
|
|
|
|
implementation
|
|
|
|
const
|
|
|
|
{****************************************************************************
|
|
OS Info
|
|
****************************************************************************}
|
|
os_infos : array[1..oscnt] of tosinfo = (
|
|
(
|
|
id : os_none;
|
|
name : 'No operating system';
|
|
shortname : 'none'
|
|
),
|
|
(
|
|
id : os_i386_go32v1;
|
|
name : 'GO32 V1 DOS extender';
|
|
shortname : 'go32v1';
|
|
sharedlibext : '.dll';
|
|
staticlibext : '.a';
|
|
sourceext : '.pp';
|
|
pasext : '.pas';
|
|
exeext : ''; { No .exe, the linker only output a.out ! }
|
|
defext : '.def';
|
|
scriptext : '.bat';
|
|
libprefix : '';
|
|
Cprefix : '_';
|
|
newline : #13#10;
|
|
endian : endian_little;
|
|
stackalignment : 2;
|
|
size_of_pointer : 4;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : false;
|
|
use_function_relative_addresses : true
|
|
),
|
|
(
|
|
id : os_i386_go32v2;
|
|
name : 'GO32 V2 DOS extender';
|
|
shortname : 'go32v2';
|
|
sharedlibext : '.dll';
|
|
staticlibext : '.a';
|
|
sourceext : '.pp';
|
|
pasext : '.pas';
|
|
exeext : '.exe';
|
|
defext : '.def';
|
|
scriptext : '.bat';
|
|
libprefix : '';
|
|
Cprefix : '_';
|
|
newline : #13#10;
|
|
endian : endian_little;
|
|
stackalignment : 2;
|
|
size_of_pointer : 4;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : false;
|
|
use_function_relative_addresses : true
|
|
),
|
|
(
|
|
id : os_i386_linux;
|
|
name : 'Linux for i386';
|
|
shortname : 'linux';
|
|
sharedlibext : '.so';
|
|
staticlibext : '.a';
|
|
sourceext : '.pp';
|
|
pasext : '.pas';
|
|
exeext : '';
|
|
defext : '.def';
|
|
scriptext : '.sh';
|
|
libprefix : 'lib';
|
|
Cprefix : '';
|
|
newline : #10;
|
|
endian : endian_little;
|
|
stackalignment : 4;
|
|
size_of_pointer : 4;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : false;
|
|
use_function_relative_addresses : true
|
|
),
|
|
(
|
|
id : os_i386_os2;
|
|
name : 'OS/2 via EMX';
|
|
shortname : 'os2';
|
|
sharedlibext : '.ao2';
|
|
staticlibext : '.ao2';
|
|
sourceext : '.pas';
|
|
pasext : '.pp';
|
|
exeext : '.exe';
|
|
defext : '.def';
|
|
scriptext : '.cmd';
|
|
libprefix : '';
|
|
Cprefix : '_';
|
|
newline : #13#10;
|
|
endian : endian_little;
|
|
stackalignment : 2;
|
|
size_of_pointer : 4;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : false;
|
|
use_function_relative_addresses : false
|
|
),
|
|
(
|
|
id : os_i386_win32;
|
|
name : 'Win32 for i386';
|
|
shortname : 'win32';
|
|
sharedlibext : '.dll';
|
|
staticlibext : '.aw';
|
|
sourceext : '.pp';
|
|
pasext : '.pas';
|
|
exeext : '.exe';
|
|
defext : '.def';
|
|
scriptext : '.bat';
|
|
libprefix : 'lib';
|
|
Cprefix : '_';
|
|
newline : #13#10;
|
|
endian : endian_little;
|
|
stackalignment : 4;
|
|
size_of_pointer : 4;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : false;
|
|
use_function_relative_addresses : true
|
|
),
|
|
(
|
|
id : os_m68k_amiga;
|
|
name : 'Commodore Amiga';
|
|
shortname : 'amiga';
|
|
sharedlibext : '.library';
|
|
staticlibext : '.a';
|
|
sourceext : '.pp';
|
|
pasext : '.pas';
|
|
exeext : '';
|
|
defext : '';
|
|
scriptext : '';
|
|
libprefix : '';
|
|
Cprefix : '_';
|
|
newline : #10;
|
|
endian : endian_big;
|
|
stackalignment : 2;
|
|
size_of_pointer : 4;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : false;
|
|
use_function_relative_addresses : false
|
|
),
|
|
(
|
|
id : os_m68k_atari;
|
|
name : 'Atari ST/STE';
|
|
shortname : 'atari';
|
|
sharedlibext : '.dll';
|
|
staticlibext : '.a';
|
|
sourceext : '.pp';
|
|
pasext : '.pas';
|
|
exeext : '.tpp';
|
|
defext : '';
|
|
scriptext : '';
|
|
libprefix : '';
|
|
Cprefix : '_';
|
|
newline : #10;
|
|
endian : endian_big;
|
|
stackalignment : 2;
|
|
size_of_pointer : 4;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : false;
|
|
use_function_relative_addresses : false
|
|
),
|
|
(
|
|
id : os_m68k_mac;
|
|
name : 'Macintosh m68k';
|
|
shortname : 'mac';
|
|
sharedlibext : '.dll';
|
|
staticlibext : '.a';
|
|
sourceext : '.pp';
|
|
pasext : '.pas';
|
|
exeext : '.tpp';
|
|
defext : '';
|
|
scriptext : '';
|
|
libprefix : '';
|
|
Cprefix : '_';
|
|
newline : #13;
|
|
endian : endian_big;
|
|
stackalignment : 2;
|
|
size_of_pointer : 4;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : false;
|
|
use_function_relative_addresses : false
|
|
),
|
|
(
|
|
id : os_m68k_linux;
|
|
name : 'Linux for m68k';
|
|
shortname : 'linux';
|
|
sharedlibext : '.so';
|
|
staticlibext : '.a';
|
|
sourceext : '.pp';
|
|
pasext : '.pas';
|
|
exeext : '';
|
|
defext : '';
|
|
scriptext : '.sh';
|
|
libprefix : 'lib';
|
|
Cprefix : '';
|
|
newline : #10;
|
|
endian : endian_big;
|
|
stackalignment : 2;
|
|
size_of_pointer : 4;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : false;
|
|
use_function_relative_addresses : true
|
|
),
|
|
(
|
|
id : os_m68k_palmos;
|
|
name : 'PalmOS';
|
|
shortname : 'palmos';
|
|
sharedlibext : '.so';
|
|
staticlibext : '.a';
|
|
sourceext : '.pp';
|
|
pasext : '.pas';
|
|
exeext : '';
|
|
defext : '';
|
|
scriptext : '.sh';
|
|
libprefix : 'lib';
|
|
Cprefix : '_';
|
|
newline : #10;
|
|
endian : endian_big;
|
|
stackalignment : 2;
|
|
size_of_pointer : 4;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : false;
|
|
use_function_relative_addresses : false
|
|
),
|
|
(
|
|
id : os_alpha_linux;
|
|
name : 'Linux for Alpha';
|
|
shortname : 'axplinux';
|
|
sharedlibext : '.so';
|
|
staticlibext : '.a';
|
|
sourceext : '.pp';
|
|
pasext : '.pas';
|
|
exeext : '';
|
|
defext : '.def';
|
|
scriptext : '.sh';
|
|
libprefix : 'lib';
|
|
Cprefix : '';
|
|
newline : #10;
|
|
endian : endian_little;
|
|
stackalignment : 8;
|
|
size_of_pointer : 8;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : false;
|
|
use_function_relative_addresses : true
|
|
),
|
|
(
|
|
id : os_powerpc_linux;
|
|
name : 'Linux for PowerPC';
|
|
shortname : 'linuxppc';
|
|
sharedlibext : '.so';
|
|
staticlibext : '.a';
|
|
sourceext : '.pp';
|
|
pasext : '.pas';
|
|
exeext : '';
|
|
defext : '.def';
|
|
scriptext : '.sh';
|
|
libprefix : 'lib';
|
|
Cprefix : '';
|
|
newline : #10;
|
|
endian : endian_big;
|
|
stackalignment : 8;
|
|
size_of_pointer : 4;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : false;
|
|
use_function_relative_addresses : true
|
|
)
|
|
);
|
|
|
|
|
|
{****************************************************************************
|
|
Assembler Info
|
|
****************************************************************************}
|
|
|
|
as_infos : array[1..asmcnt] of tasminfo = (
|
|
(
|
|
id : as_none;
|
|
idtxt : 'no'
|
|
)
|
|
{$ifdef i386}
|
|
,(
|
|
id : as_i386_as;
|
|
idtxt : 'AS';
|
|
asmbin : 'as';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
allowdirect : true;
|
|
externals : false;
|
|
needar : true;
|
|
labelprefix : '.L';
|
|
comment : '# ';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'','','','','','',
|
|
'.stab','.stabstr')
|
|
)
|
|
,(
|
|
id : as_i386_as_aout;
|
|
idtxt : 'AS_AOUT';
|
|
asmbin : 'as';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
allowdirect : true;
|
|
externals : false;
|
|
needar : true;
|
|
labelprefix : 'L';
|
|
comment : '# ';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'','','','','','',
|
|
'.stab','.stabstr')
|
|
)
|
|
,(
|
|
id : as_i386_asw;
|
|
idtxt : 'ASW';
|
|
asmbin : 'asw';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
allowdirect : true;
|
|
externals : false;
|
|
needar : true;
|
|
labelprefix : '.L';
|
|
comment : '# ';
|
|
secnames : ('',
|
|
'.text','.data','.section .bss',
|
|
'.section .idata$2','.section .idata$4','.section .idata$5',
|
|
'.section .idata$6','.section .idata$7','.section .edata',
|
|
'.stab','.stabstr')
|
|
)
|
|
,(
|
|
id : as_i386_nasmcoff;
|
|
idtxt : 'NASMCOFF';
|
|
asmbin : 'nasm';
|
|
asmcmd : '-f coff -o $OBJ $ASM';
|
|
allowdirect : true;
|
|
externals : true;
|
|
needar : true;
|
|
labelprefix : 'L';
|
|
comment : '; ';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'.idata2','.idata4','.idata5','.idata6','.idata7','.edata',
|
|
'.stab','.stabstr')
|
|
)
|
|
,(
|
|
id : as_i386_nasmelf;
|
|
idtxt : 'NASMELF';
|
|
asmbin : 'nasm';
|
|
asmcmd : '-f elf -o $OBJ $ASM';
|
|
allowdirect : true;
|
|
externals : true;
|
|
needar : true;
|
|
labelprefix : 'L';
|
|
comment : '; ';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'.idata2','.idata4','.idata5','.idata6','.idata7','.edata',
|
|
'.stab','.stabstr')
|
|
)
|
|
,(
|
|
id : as_i386_nasmobj;
|
|
idtxt : 'NASMOBJ';
|
|
asmbin : 'nasm';
|
|
asmcmd : '-f obj -o $OBJ $ASM';
|
|
allowdirect : true;
|
|
externals : true;
|
|
needar : true;
|
|
labelprefix : 'L';
|
|
comment : '; ';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'.idata2','.idata4','.idata5','.idata6','.idata7','.edata',
|
|
'.stab','.stabstr')
|
|
)
|
|
,(
|
|
id : as_i386_tasm;
|
|
idtxt : 'TASM';
|
|
asmbin : 'tasm';
|
|
asmcmd : '/m2 $ASM $OBJ';
|
|
allowdirect : true;
|
|
externals : true;
|
|
needar : true;
|
|
labelprefix : '@@';
|
|
comment : '; ';
|
|
secnames : ('',
|
|
'CODE','DATA','BSS',
|
|
'','','','','','',
|
|
'','')
|
|
)
|
|
,(
|
|
id : as_i386_masm;
|
|
idtxt : 'MASM';
|
|
asmbin : 'masm';
|
|
asmcmd : '$ASM $OBJ';
|
|
allowdirect : true;
|
|
externals : true;
|
|
needar : true;
|
|
labelprefix : '.L';
|
|
comment : '; ';
|
|
secnames : ('',
|
|
'CODE','DATA','BSS',
|
|
'','','','','','',
|
|
'','')
|
|
)
|
|
,(
|
|
id : as_i386_dbg;
|
|
idtxt : 'DBG';
|
|
asmbin : '';
|
|
asmcmd : '';
|
|
allowdirect : false;
|
|
externals : true;
|
|
needar : false;
|
|
labelprefix : 'L';
|
|
comment : '';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.stab','.stabstr')
|
|
)
|
|
,(
|
|
id : as_i386_coff;
|
|
idtxt : 'COFF';
|
|
asmbin : '';
|
|
asmcmd : '';
|
|
allowdirect : false;
|
|
externals : true;
|
|
needar : false;
|
|
labelprefix : '.L';
|
|
comment : '';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.stab','.stabstr')
|
|
)
|
|
,(
|
|
id : as_i386_pecoff;
|
|
idtxt : 'PECOFF';
|
|
asmbin : '';
|
|
asmcmd : '';
|
|
allowdirect : false;
|
|
externals : true;
|
|
needar : false;
|
|
labelprefix : '.L';
|
|
comment : '';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.stab','.stabstr')
|
|
)
|
|
{$endif i386}
|
|
{$ifdef m68k}
|
|
,(
|
|
id : as_m68k_as;
|
|
idtxt : 'AS';
|
|
asmbin : 'as';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
allowdirect : true;
|
|
externals : false;
|
|
needar : true;
|
|
labelprefix : '.L';
|
|
comment : '# ';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.stab','.stabstr')
|
|
)
|
|
,(
|
|
id : as_m68k_gas;
|
|
idtxt : 'GAS';
|
|
asmbin : 'as68k'; { Gas for the Amiga}
|
|
asmcmd : '--register-prefix-optional -o $OBJ $ASM';
|
|
allowdirect : true;
|
|
externals : false;
|
|
needar : true;
|
|
labelprefix : '.L';
|
|
comment : '| ';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.stab','.stabstr')
|
|
)
|
|
,(
|
|
id : as_m68k_mit;
|
|
idtxt : 'MIT';
|
|
asmbin : '';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
allowdirect : true;
|
|
externals : false;
|
|
needar : true;
|
|
labelprefix : '.L';
|
|
comment : '| ';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.stab','.stabstr')
|
|
)
|
|
,(
|
|
id : as_m68k_mot;
|
|
idtxt : 'MOT';
|
|
asmbin : '';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
allowdirect : true;
|
|
externals : false;
|
|
needar : true;
|
|
labelprefix : '__L';
|
|
comment : '| ';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.stab','.stabstr')
|
|
)
|
|
,(
|
|
id : as_m68k_mpw;
|
|
idtxt : 'MPW';
|
|
asmbin : '';
|
|
asmcmd : '-model far -o $OBJ $ASM';
|
|
allowdirect : true;
|
|
externals : false;
|
|
needar : true;
|
|
labelprefix : '__L';
|
|
comment : '| ';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.stab','.stabstr')
|
|
)
|
|
{$endif m68k}
|
|
{$ifdef alpha}
|
|
,(
|
|
id : as_alpha_as;
|
|
idtxt : 'AS';
|
|
asmbin : 'as';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
allowdirect : true;
|
|
externals : false;
|
|
needar : true;
|
|
labelprefix : '.L';
|
|
comment : '# ';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'','','','','','',
|
|
'.stab','.stabstr')
|
|
)
|
|
{$endif}
|
|
{$ifdef powerpc}
|
|
,(
|
|
id : as_powerpc_as;
|
|
idtxt : 'AS';
|
|
asmbin : 'as';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
allowdirect : true;
|
|
externals : false;
|
|
needar : true;
|
|
labelprefix : '.L';
|
|
comment : '# ';
|
|
secnames : ('',
|
|
'.text','.data','.bss',
|
|
'','','','','','',
|
|
'.stab','.stabstr')
|
|
)
|
|
{$endif}
|
|
);
|
|
|
|
|
|
{****************************************************************************
|
|
Ar Info
|
|
****************************************************************************}
|
|
ar_infos : array[1..arcnt] of tarinfo = (
|
|
(
|
|
id : ar_none
|
|
)
|
|
{$ifdef i386}
|
|
,(
|
|
id : ar_i386_ar;
|
|
arcmd : 'ar rs $LIB $FILES'
|
|
),
|
|
(
|
|
id : ar_i386_arw;
|
|
arcmd : 'arw rs $LIB $FILES'
|
|
)
|
|
{$endif i386}
|
|
{$ifdef m68k}
|
|
,(
|
|
id : ar_m68k_ar;
|
|
arcmd : 'ar rs $LIB $FILES'
|
|
)
|
|
{$endif m68k}
|
|
{$ifdef alpha}
|
|
,(
|
|
id : ar_alpha_ar;
|
|
arcmd : 'ar rs $LIB $FILES'
|
|
)
|
|
{$endif}
|
|
{$ifdef powerpc}
|
|
,(
|
|
id : ar_powerpc_ar;
|
|
arcmd : 'ar rs $LIB $FILES'
|
|
)
|
|
{$endif}
|
|
);
|
|
|
|
|
|
{****************************************************************************
|
|
Res Info
|
|
****************************************************************************}
|
|
res_infos : array[1..rescnt] of tresinfo = (
|
|
(
|
|
id : res_none
|
|
)
|
|
{$ifdef i386}
|
|
,(
|
|
id : res_i386_windres;
|
|
resbin : 'windres';
|
|
rescmd : '--include $INC -O coff -o $OBJ $RES'
|
|
)
|
|
{$endif i386}
|
|
);
|
|
|
|
|
|
{****************************************************************************
|
|
Targets Info
|
|
****************************************************************************}
|
|
target_infos : array[1..targetcnt] of ttargetinfo = (
|
|
(
|
|
target : target_none;
|
|
flags : [];
|
|
cpu : no_cpu;
|
|
short_name : 'notarget'
|
|
)
|
|
{$ifdef i386}
|
|
,(
|
|
target : target_i386_GO32V1;
|
|
flags : [];
|
|
cpu : i386;
|
|
short_name : 'GO32V1';
|
|
unit_env : 'GO32V1UNITS';
|
|
system_unit : 'SYSTEM';
|
|
smartext : '.sl';
|
|
unitext : '.pp1';
|
|
unitlibext : '.ppl';
|
|
asmext : '.s1';
|
|
objext : '.o1';
|
|
resext : '.res';
|
|
resobjext : '.o1r';
|
|
exeext : ''; { The linker produces a.out }
|
|
os : os_i386_GO32V1;
|
|
assem : as_i386_as;
|
|
assemsrc : as_i386_as;
|
|
ar : ar_i386_ar;
|
|
res : res_none;
|
|
heapsize : 2048*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 16384
|
|
),
|
|
(
|
|
target : target_i386_GO32V2;
|
|
flags : [];
|
|
cpu : i386;
|
|
short_name : 'GO32V2';
|
|
unit_env : 'GO32V2UNITS';
|
|
system_unit : 'SYSTEM';
|
|
smartext : '.sl';
|
|
unitext : '.ppu';
|
|
unitlibext : '.ppl';
|
|
asmext : '.s';
|
|
objext : '.o';
|
|
resext : '.res';
|
|
resobjext : '.or';
|
|
exeext : '.exe';
|
|
os : os_i386_GO32V2;
|
|
assem : as_i386_coff;
|
|
assemsrc : as_i386_as;
|
|
ar : ar_i386_ar;
|
|
res : res_none;
|
|
heapsize : 2048*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 16384
|
|
),
|
|
(
|
|
target : target_i386_LINUX;
|
|
flags : [];
|
|
cpu : i386;
|
|
short_name : 'LINUX';
|
|
unit_env : 'LINUXUNITS';
|
|
system_unit : 'syslinux';
|
|
smartext : '.sl';
|
|
unitext : '.ppu';
|
|
unitlibext : '.ppl';
|
|
asmext : '.s';
|
|
objext : '.o';
|
|
resext : '.res';
|
|
resobjext : '.or';
|
|
exeext : '';
|
|
os : os_i386_Linux;
|
|
assem : as_i386_as;
|
|
assemsrc : as_i386_as;
|
|
ar : ar_i386_ar;
|
|
res : res_none;
|
|
heapsize : 256*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 8192
|
|
),
|
|
(
|
|
target : target_i386_OS2;
|
|
flags : [tf_need_export];
|
|
cpu : i386;
|
|
short_name : 'OS2';
|
|
unit_env : 'OS2UNITS';
|
|
system_unit : 'SYSOS2';
|
|
smartext : '.sl';
|
|
unitext : '.ppo';
|
|
unitlibext : '.ppl';
|
|
asmext : '.so2';
|
|
objext : '.oo2';
|
|
resext : '.res';
|
|
resobjext : '.oor';
|
|
exeext : ''; { The linker produces a.out }
|
|
os : os_i386_OS2;
|
|
assem : as_i386_as_aout;
|
|
assemsrc : as_i386_as_aout;
|
|
ar : ar_i386_ar;
|
|
res : res_none;
|
|
heapsize : 256*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 32768
|
|
),
|
|
(
|
|
target : target_i386_WIN32;
|
|
flags : [];
|
|
cpu : i386;
|
|
short_name : 'WIN32';
|
|
unit_env : 'WIN32UNITS';
|
|
system_unit : 'SYSWIN32';
|
|
smartext : '.slw';
|
|
unitext : '.ppw';
|
|
unitlibext : '.ppl';
|
|
asmext : '.sw';
|
|
objext : '.ow';
|
|
resext : '.rc';
|
|
resobjext : '.owr';
|
|
exeext : '.exe';
|
|
os : os_i386_Win32;
|
|
assem : as_i386_pecoff;
|
|
assemsrc : as_i386_asw;
|
|
ar : ar_i386_arw;
|
|
res : res_i386_windres;
|
|
heapsize : 256*1024;
|
|
maxheapsize : 32*1024*1024;
|
|
stacksize : 32*1024*1024
|
|
)
|
|
{$endif i386}
|
|
{$ifdef m68k}
|
|
,(
|
|
target : target_m68k_Amiga;
|
|
flags : [];
|
|
cpu : m68k;
|
|
short_name : 'AMIGA';
|
|
unit_env : '';
|
|
system_unit : 'sysamiga';
|
|
smartext : '.sl';
|
|
unitext : '.ppa';
|
|
unitlibext : '.ppl';
|
|
asmext : '.asm';
|
|
objext : '.o';
|
|
resext : '.res';
|
|
resobjext : '.or';
|
|
exeext : '';
|
|
os : os_m68k_Amiga;
|
|
assem : as_m68k_as;
|
|
assemsrc : as_m68k_as;
|
|
ar : ar_m68k_ar;
|
|
res : res_none;
|
|
heapsize : 128*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 8192
|
|
),
|
|
(
|
|
target : target_m68k_Atari;
|
|
flags : [];
|
|
cpu : m68k;
|
|
short_name : 'ATARI';
|
|
unit_env : '';
|
|
system_unit : 'SYSATARI';
|
|
smartext : '.sl';
|
|
unitext : '.ppt';
|
|
unitlibext : '.ppl';
|
|
asmext : '.s';
|
|
objext : '.o';
|
|
resext : '.res';
|
|
resobjext : '.or';
|
|
exeext : '.ttp';
|
|
os : os_m68k_Atari;
|
|
assem : as_m68k_as;
|
|
assemsrc : as_m68k_as;
|
|
ar : ar_m68k_ar;
|
|
res : res_none;
|
|
heapsize : 16*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 8192
|
|
),
|
|
(
|
|
target : target_m68k_Mac;
|
|
flags : [];
|
|
cpu : m68k;
|
|
short_name : 'MACOS';
|
|
unit_env : '';
|
|
system_unit : 'sysmac';
|
|
smartext : '.sl';
|
|
unitext : '.ppt';
|
|
unitlibext : '.ppl';
|
|
asmext : '.a';
|
|
objext : '.o';
|
|
resext : '.res';
|
|
resobjext : '.or';
|
|
exeext : '';
|
|
os : os_m68k_Mac;
|
|
assem : as_m68k_mpw;
|
|
assemsrc : as_m68k_mpw;
|
|
ar : ar_m68k_ar;
|
|
res : res_none;
|
|
heapsize : 128*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 8192
|
|
),
|
|
(
|
|
target : target_m68k_linux;
|
|
flags : [];
|
|
cpu : m68k;
|
|
short_name : 'LINUX';
|
|
unit_env : 'LINUXUNITS';
|
|
system_unit : 'syslinux';
|
|
smartext : '.sl';
|
|
unitext : '.ppu';
|
|
unitlibext : '.ppl';
|
|
asmext : '.s';
|
|
objext : '.o';
|
|
resext : '.res';
|
|
resobjext : '.or';
|
|
exeext : '';
|
|
os : os_m68k_Linux;
|
|
assem : as_m68k_as;
|
|
assemsrc : as_m68k_as;
|
|
ar : ar_m68k_ar;
|
|
res : res_none;
|
|
heapsize : 128*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 8192
|
|
),
|
|
(
|
|
target : target_m68k_PalmOS;
|
|
flags : [];
|
|
cpu : m68k;
|
|
short_name : 'PALMOS';
|
|
unit_env : 'PALMUNITS';
|
|
system_unit : 'syspalm';
|
|
smartext : '.sl';
|
|
unitext : '.ppu';
|
|
unitlibext : '.ppl';
|
|
asmext : '.s';
|
|
objext : '.o';
|
|
resext : '.res';
|
|
resobjext : '.or';
|
|
exeext : '';
|
|
os : os_m68k_PalmOS;
|
|
assem : as_m68k_as;
|
|
assemsrc : as_m68k_as;
|
|
ar : ar_m68k_ar;
|
|
res : res_none;
|
|
heapsize : 128*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 8192
|
|
)
|
|
{$endif m68k}
|
|
{$ifdef alpha}
|
|
,(
|
|
target : target_alpha_LINUX;
|
|
flags : [];
|
|
cpu : alpha;
|
|
short_name : 'LINUX';
|
|
unit_env : 'LINUXUNITS';
|
|
system_unit : 'syslinux';
|
|
smartext : '.sl';
|
|
unitext : '.ppu';
|
|
unitlibext : '.ppl';
|
|
asmext : '.s';
|
|
objext : '.o';
|
|
resext : '.res';
|
|
resobjext : '.or';
|
|
exeext : '';
|
|
os : os_alpha_Linux;
|
|
assem : as_alpha_as;
|
|
assemsrc : as_alpha_as;
|
|
ar : ar_alpha_ar;
|
|
res : res_none;
|
|
heapsize : 256*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 8192
|
|
)
|
|
{$endif}
|
|
{$ifdef powerpc}
|
|
,(
|
|
target : target_powerpc_LINUX;
|
|
flags : [];
|
|
cpu : alpha;
|
|
short_name : 'LINUX';
|
|
unit_env : 'LINUXUNITS';
|
|
system_unit : 'syslinux';
|
|
smartext : '.sl';
|
|
unitext : '.ppu';
|
|
unitlibext : '.ppl';
|
|
asmext : '.s';
|
|
objext : '.o';
|
|
resext : '.res';
|
|
resobjext : '.or';
|
|
exeext : '';
|
|
os : os_powerpc_Linux;
|
|
assem : as_powerpc_as;
|
|
assemsrc : as_powerpc_as;
|
|
ar : ar_powerpc_ar;
|
|
res : res_none;
|
|
heapsize : 256*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 8192
|
|
)
|
|
{$endif}
|
|
);
|
|
|
|
{****************************************************************************
|
|
AsmModeInfo
|
|
****************************************************************************}
|
|
asmmodeinfos : array[1..asmmodecnt] of tasmmodeinfo = (
|
|
(
|
|
id : asmmode_none;
|
|
idtxt : 'none'
|
|
)
|
|
{$ifdef i386}
|
|
,(
|
|
id : asmmode_i386_direct;
|
|
idtxt : 'DIRECT'
|
|
),
|
|
(
|
|
id : asmmode_i386_att;
|
|
idtxt : 'ATT'
|
|
),
|
|
(
|
|
id : asmmode_i386_intel;
|
|
idtxt : 'INTEL'
|
|
)
|
|
{$endif i386}
|
|
{$ifdef m68k}
|
|
,(
|
|
id : asmmode_m68k_mot;
|
|
idtxt : 'MOT'
|
|
)
|
|
{$endif m68k}
|
|
{$ifdef alpha}
|
|
,(
|
|
id : asmmode_alpha_direct;
|
|
idtxt : 'DIRECT'
|
|
)
|
|
{$endif}
|
|
{$ifdef powerpc}
|
|
,(
|
|
id : asmmode_powerpc_direct;
|
|
idtxt : 'DIRECT'
|
|
)
|
|
{$endif}
|
|
);
|
|
|
|
{****************************************************************************
|
|
Helpers
|
|
****************************************************************************}
|
|
|
|
function upper(const s : string) : string;
|
|
var
|
|
i : longint;
|
|
begin
|
|
for i:=1 to length(s) do
|
|
if s[i] in ['a'..'z'] then
|
|
upper[i]:=char(byte(s[i])-32)
|
|
else
|
|
upper[i]:=s[i];
|
|
{$ifndef TP}
|
|
{$ifopt H+}
|
|
SetLength(upper,length(s));
|
|
{$else}
|
|
upper[0]:=s[0];
|
|
{$endif}
|
|
{$else}
|
|
upper[0]:=s[0];
|
|
{$endif}
|
|
end;
|
|
|
|
function lower(const s : string) : string;
|
|
var
|
|
i : longint;
|
|
begin
|
|
for i:=1 to length(s) do
|
|
if s[i] in ['A'..'Z'] then
|
|
lower[i]:=char(byte(s[i])+32)
|
|
else
|
|
lower[i]:=s[i];
|
|
{$ifndef TP}
|
|
{$ifopt H+}
|
|
setlength(lower,length(s));
|
|
{$else}
|
|
lower[0]:=s[0];
|
|
{$endif}
|
|
{$else}
|
|
lower[0]:=s[0];
|
|
{$endif}
|
|
end;
|
|
|
|
|
|
function set_target_os(t:tos):boolean;
|
|
var
|
|
i : longint;
|
|
begin
|
|
set_target_os:=false;
|
|
{ target 1 is none }
|
|
for i:=2 to oscnt do
|
|
if os_infos[i].id=t then
|
|
begin
|
|
target_os:=os_infos[i];
|
|
set_target_os:=true;
|
|
exit;
|
|
end;
|
|
end;
|
|
|
|
|
|
function set_target_asm(t:tasm):boolean;
|
|
var
|
|
i : longint;
|
|
begin
|
|
set_target_asm:=false;
|
|
for i:=1 to asmcnt do
|
|
if as_infos[i].id=t then
|
|
begin
|
|
target_asm:=as_infos[i];
|
|
set_target_asm:=true;
|
|
exit;
|
|
end;
|
|
end;
|
|
|
|
|
|
function set_target_ar(t:tar):boolean;
|
|
var
|
|
i : longint;
|
|
begin
|
|
set_target_ar:=false;
|
|
for i:=1 to arcnt do
|
|
if ar_infos[i].id=t then
|
|
begin
|
|
target_ar:=ar_infos[i];
|
|
set_target_ar:=true;
|
|
exit;
|
|
end;
|
|
end;
|
|
|
|
|
|
function set_target_res(t:tres):boolean;
|
|
var
|
|
i : longint;
|
|
begin
|
|
set_target_res:=false;
|
|
for i:=1 to rescnt do
|
|
if res_infos[i].id=t then
|
|
begin
|
|
target_res:=res_infos[i];
|
|
set_target_res:=true;
|
|
exit;
|
|
end;
|
|
end;
|
|
|
|
|
|
function set_target_info(t:ttarget):boolean;
|
|
var
|
|
i : longint;
|
|
begin
|
|
set_target_info:=false;
|
|
for i:=1 to targetcnt do
|
|
if target_infos[i].target=t then
|
|
begin
|
|
target_info:=target_infos[i];
|
|
set_target_os(target_info.os);
|
|
set_target_asm(target_info.assem);
|
|
set_target_ar(target_info.ar);
|
|
set_target_res(target_info.res);
|
|
target_path:=lower(target_info.short_name);
|
|
target_cpu:=target_info.cpu;
|
|
set_target_info:=true;
|
|
exit;
|
|
end;
|
|
end;
|
|
|
|
|
|
{****************************************************************************
|
|
Load from string
|
|
****************************************************************************}
|
|
|
|
function set_string_target(s : string) : boolean;
|
|
var
|
|
i : longint;
|
|
begin
|
|
set_string_target:=false;
|
|
{ this should be case insensitive !! PM }
|
|
s:=upper(s);
|
|
for i:=1 to targetcnt do
|
|
if target_infos[i].short_name=s then
|
|
begin
|
|
set_target_info(target_infos[i].target);
|
|
set_string_target:=true;
|
|
exit;
|
|
end;
|
|
end;
|
|
|
|
|
|
function set_string_asm(s : string) : boolean;
|
|
var
|
|
i : longint;
|
|
begin
|
|
set_string_asm:=false;
|
|
{ this should be case insensitive !! PM }
|
|
s:=upper(s);
|
|
for i:=1 to asmcnt do
|
|
if as_infos[i].idtxt=s then
|
|
begin
|
|
target_asm:=as_infos[i];
|
|
set_string_asm:=true;
|
|
end;
|
|
end;
|
|
|
|
|
|
function set_string_asmmode(s:string;var t:tasmmode):boolean;
|
|
var
|
|
i : longint;
|
|
begin
|
|
set_string_asmmode:=false;
|
|
{ this should be case insensitive !! PM }
|
|
s:=upper(s);
|
|
for i:=1 to asmmodecnt do
|
|
if asmmodeinfos[i].idtxt=s then
|
|
begin
|
|
t:=asmmodeinfos[i].id;
|
|
set_string_asmmode:=true;
|
|
end;
|
|
end;
|
|
|
|
|
|
{****************************************************************************
|
|
Initialization of default target
|
|
****************************************************************************}
|
|
|
|
procedure default_os(t:ttarget);
|
|
begin
|
|
set_target_info(t);
|
|
if source_os.name='' then
|
|
source_os:=target_os;
|
|
end;
|
|
|
|
|
|
procedure set_source_os(t:tos);
|
|
var
|
|
i : longint;
|
|
begin
|
|
{ can't use message() here (PFV) }
|
|
if source_os.name<>'' then
|
|
Writeln('Warning: Source OS Redefined!');
|
|
for i:=1 to oscnt do
|
|
if os_infos[i].id=t then
|
|
begin
|
|
source_os:=os_infos[i];
|
|
exit;
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure InitSystems;
|
|
begin
|
|
{ first get source OS }
|
|
source_os.name:='';
|
|
{ please note then we use cpu86 and cpu68 here on purpose !! }
|
|
{$ifdef cpu86}
|
|
{$ifdef GO32V1}
|
|
set_source_os(os_i386_GO32V1);
|
|
{$else}
|
|
{$ifdef GO32V2}
|
|
set_source_os(os_i386_GO32V2);
|
|
{$else}
|
|
{$ifdef OS2}
|
|
set_source_os(os_i386_OS2);
|
|
if (OS_Mode = osDOS) or (OS_Mode = osDPMI)
|
|
then source_os.scriptext := '.bat';
|
|
{OS/2 via EMX can be run under DOS as well}
|
|
{$else}
|
|
{$ifdef LINUX}
|
|
set_source_os(os_i386_LINUX);
|
|
{$else}
|
|
{$ifdef WIN32}
|
|
set_source_os(os_i386_WIN32);
|
|
{$endif win32}
|
|
{$endif linux}
|
|
{$endif os2}
|
|
{$endif go32v2}
|
|
{$endif go32v1}
|
|
{$endif cpu86}
|
|
{$ifdef cpu68}
|
|
{$ifdef AMIGA}
|
|
set_source_os(os_m68k_Amiga);
|
|
{$else}
|
|
{$ifdef ATARI}
|
|
set_source_os(os_m68k_Atari);
|
|
{$else}
|
|
{$ifdef MACOS}
|
|
set_source_os(os_m68k_MAC);
|
|
{$else}
|
|
{$ifdef LINUX}
|
|
set_source_os(os_m68k_linux);
|
|
{$endif linux}
|
|
{$endif macos}
|
|
{$endif atari}
|
|
{$endif amiga}
|
|
{$endif cpu68}
|
|
|
|
{ Now default target !! }
|
|
{$ifdef i386}
|
|
{$ifdef GO32V1}
|
|
default_os(target_i386_GO32V1);
|
|
{$else}
|
|
{$ifdef GO32V2}
|
|
default_os(target_i386_GO32V2);
|
|
{$else}
|
|
{$ifdef OS2}
|
|
default_os(target_i386_OS2);
|
|
{$else}
|
|
{$ifdef LINUX}
|
|
default_os(target_i386_LINUX);
|
|
{$else}
|
|
{$ifdef WIN32}
|
|
default_os(target_i386_WIN32);
|
|
{$else}
|
|
default_os(target_i386_GO32V2);
|
|
{$endif win32}
|
|
{$endif linux}
|
|
{$endif os2}
|
|
{$endif go32v2}
|
|
{$endif go32v1}
|
|
{$endif i386}
|
|
{$ifdef m68k}
|
|
{$ifdef AMIGA}
|
|
default_os(target_m68k_Amiga);
|
|
{$else}
|
|
{$ifdef ATARI}
|
|
default_os(target_m68k_Atari);
|
|
{$else}
|
|
{$ifdef MACOS}
|
|
default_os(target_m68k_Mac);
|
|
{$else}
|
|
{$ifdef LINUX}
|
|
default_os(target_m68k_linux);
|
|
{$else}
|
|
default_os(target_m68k_Amiga);
|
|
{$endif linux}
|
|
{$endif macos}
|
|
{$endif atari}
|
|
{$endif amiga}
|
|
{$endif m68k}
|
|
{$ifdef alpha}
|
|
default_os(target_alpha_linux);
|
|
{$endif alpha}
|
|
{$ifdef powerpc}
|
|
default_os(target_powerpc_linux);
|
|
{$endif powerpc}
|
|
end;
|
|
|
|
|
|
begin
|
|
InitSystems;
|
|
end.
|
|
{
|
|
$Log$
|
|
Revision 1.98 2000-01-07 01:14:42 peter
|
|
* updated copyright to 2000
|
|
|
|
Revision 1.97 1999/11/06 14:34:28 peter
|
|
* truncated log to 20 revs
|
|
|
|
Revision 1.96 1999/11/03 23:43:45 peter
|
|
* fixed ar commands
|
|
|
|
Revision 1.95 1999/10/21 14:29:37 peter
|
|
* redesigned linker object
|
|
+ library support for linux (only procedures can be exported)
|
|
|
|
Revision 1.94 1999/09/15 22:09:27 florian
|
|
+ rtti is now automatically generated for published classes, i.e.
|
|
they are handled like an implicit property
|
|
|
|
Revision 1.93 1999/09/15 20:24:56 daniel
|
|
+ Dw switch now does something.
|
|
|
|
Revision 1.92 1999/09/07 15:02:41 pierre
|
|
* powerpc default was alpha !!
|
|
|
|
Revision 1.91 1999/08/16 15:35:29 pierre
|
|
* fix for DLL relocation problems
|
|
* external bss vars had wrong stabs for pecoff
|
|
+ -WB11000000 to specify default image base, allows to
|
|
load several DLLs with debugging info included
|
|
(relocatable DLL are stripped because the relocation
|
|
of the .Stab section is misplaced by ldw)
|
|
|
|
Revision 1.90 1999/08/04 13:03:11 jonas
|
|
* all tokens now start with an underscore
|
|
* PowerPC compiles!!
|
|
|
|
Revision 1.89 1999/08/04 00:23:32 florian
|
|
* renamed i386asm and i386base to cpuasm and cpubase
|
|
|
|
Revision 1.88 1999/08/03 22:03:23 peter
|
|
* moved bitmask constants to sets
|
|
* some other type/const renamings
|
|
|
|
Revision 1.87 1999/08/03 17:09:43 florian
|
|
* the alpha compiler can be compiled now
|
|
|
|
Revision 1.86 1999/08/03 15:52:00 michael
|
|
* changed shortname for linux alpha
|
|
|
|
Revision 1.85 1999/08/03 13:50:19 michael
|
|
+ Changes for alpha
|
|
|
|
Revision 1.84 1999/08/02 23:56:51 michael
|
|
+ Added alpha cpu and linux for alpha os
|
|
|
|
Revision 1.83 1999/07/10 10:26:20 peter
|
|
* merged
|
|
|
|
Revision 1.82.2.2 1999/07/10 10:03:16 peter
|
|
* fixed initialization/finalization in fpc mode
|
|
* allow $TARGET also in search paths
|
|
|
|
Revision 1.82.2.1 1999/07/02 12:52:58 pierre
|
|
* pecoff still buggy, as_I386_asw again default
|
|
|
|
Revision 1.82 1999/06/08 11:50:28 peter
|
|
* 2mb again for go32v2/v1
|
|
|
|
Revision 1.81 1999/06/02 20:46:39 peter
|
|
* fixed os2 bindcmd which was double
|
|
|
|
Revision 1.80 1999/06/02 14:20:31 hajny
|
|
* fixed my mistake from previously commited version
|
|
|
|
Revision 1.79 1999/06/02 13:25:34 hajny
|
|
* fixed stripping symbols for OS/2
|
|
|
|
}
|