mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 09:43:42 +02:00
1940 lines
58 KiB
ObjectPascal
1940 lines
58 KiB
ObjectPascal
{
|
|
$Id$
|
|
$Id$
|
|
Copyright (C) 1995,97 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
|
|
);
|
|
|
|
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
|
|
);
|
|
const
|
|
{$ifdef i386} i386asmmodecnt=3; {$else} i386asmmodecnt=0; {$endif}
|
|
{$ifdef m68k} m68kasmmodecnt=1; {$else} m68kasmmodecnt=0; {$endif}
|
|
asmmodecnt=i386asmmodecnt+m68kasmmodecnt+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
|
|
);
|
|
|
|
ttargetflags = (tf_needs_isconsole,tf_supports_stack_checking);
|
|
|
|
const
|
|
{$ifdef i386} i386targetcnt=5; {$else} i386targetcnt=0; {$endif}
|
|
{$ifdef m68k} m68ktargetcnt=5; {$else} m68ktargetcnt=0; {$endif}
|
|
targetcnt=i386targetcnt+m68ktargetcnt+1;
|
|
|
|
type
|
|
tasm = (as_none
|
|
,as_i386_as,as_i386_as_aout,as_i386_asw,
|
|
,as_i386_o,as_i386_o_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
|
|
);
|
|
{ binary assembler writers, needed to test for -a }
|
|
const
|
|
{$ifdef i386} i386asmcnt=11; {$else} i386asmcnt=0; {$endif}
|
|
as_i386_coff
|
|
,as_m68k_o,as_m68k_gas,as_m68k_mit,as_m68k_mot,as_m68k_mpw
|
|
);
|
|
const
|
|
{$ifdef i386} i386asmcnt=9; {$else} i386asmcnt=0; {$endif}
|
|
{$ifdef m68k} m68kasmcnt=5; {$else} m68kasmcnt=0; {$endif}
|
|
asmcnt=i386asmcnt+m68kasmcnt+1;
|
|
|
|
binassem : set of tasm = [
|
|
as_i386_dbg,as_i386_coff,as_i386_pecoff
|
|
];
|
|
|
|
type
|
|
tlink = (link_none
|
|
,link_i386_ld,link_i386_ldgo32v1,
|
|
link_i386_ldgo32v2,link_i386_ldw,
|
|
link_i386_ldos2
|
|
,link_m68k_ld
|
|
);
|
|
const
|
|
{$ifdef i386} i386linkcnt=5; {$else} i386linkcnt=0; {$endif}
|
|
{$ifdef m68k} m68klinkcnt=1; {$else} m68klinkcnt=0; {$endif}
|
|
linkcnt=i386linkcnt+m68klinkcnt+1;
|
|
|
|
type
|
|
tar = (ar_none
|
|
,ar_i386_ar,ar_i386_arw
|
|
,ar_m68k_ar
|
|
);
|
|
const
|
|
{$ifdef i386} i386arcnt=2; {$else} i386arcnt=0; {$endif}
|
|
{$ifdef m68k} m68karcnt=1; {$else} m68karcnt=0; {$endif}
|
|
arcnt=i386arcnt+m68karcnt+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}
|
|
rescnt=i386rescnt+m68krescnt+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
|
|
);
|
|
const
|
|
i386oscnt=5;
|
|
m68koscnt=5;
|
|
oscnt=i386oscnt+m68koscnt+1;
|
|
|
|
type
|
|
tosinfo = packed record
|
|
id : tos;
|
|
name : string[30];
|
|
shortname : string[8];
|
|
sharedlibext : string[10];
|
|
sharedlibext,
|
|
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;
|
|
externals : boolean;
|
|
labelprefix : string[2];
|
|
comment : string[2];
|
|
secnames : array[tsection] of string[20];
|
|
end;
|
|
|
|
tlinkinfo = packed record
|
|
id : tlink;
|
|
linkbin : string[8];
|
|
linkcmd : string[127];
|
|
binders : word;
|
|
bindbin : array[1..2]of string[8];
|
|
bindcmd : array[1..2]of string[127];
|
|
stripopt : string[2];
|
|
stripbind : boolean; (* Strip symbols in binder? *)
|
|
libpathprefix : string[13];
|
|
libpathsuffix : string[2];
|
|
groupstart : string[8];
|
|
groupend : string[2];
|
|
inputstart : string[8];
|
|
inputend : string[2];
|
|
libprefix : string[2];
|
|
end;
|
|
|
|
tarinfo = packed record
|
|
id : tar;
|
|
arbin : string[8];
|
|
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;
|
|
link : tlink;
|
|
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_link : tlinkinfo;
|
|
target_ar : tarinfo;
|
|
target_res : tresinfo;
|
|
source_os : tosinfo;
|
|
|
|
function set_target_os(t:tos):boolean;
|
|
function set_target_asm(t:tasm):boolean;
|
|
function set_target_link(t:tlink):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;
|
|
function set_string_target(s : string) : boolean;
|
|
function set_string_asm(s : string) : boolean;
|
|
function set_string_asmmode(s:string;var t:tasmmode):boolean;
|
|
|
|
|
|
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;
|
|
scriptext : '.bat';
|
|
libprefix : '';
|
|
Cprefix : '_';
|
|
newline : #13#10;
|
|
endian : endian_little;
|
|
stackalignment : 2;
|
|
size_of_pointer : 4;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : true;
|
|
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;
|
|
scriptext : '.bat';
|
|
libprefix : 'lib';
|
|
Cprefix : '_';
|
|
newline : #13#10;
|
|
endian : endian_little;
|
|
stackalignment : 4;
|
|
size_of_pointer : 4;
|
|
size_of_longint : 4;
|
|
use_bound_instruction : true;
|
|
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
|
|
)
|
|
);
|
|
|
|
|
|
{****************************************************************************
|
|
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_o;
|
|
idtxt : 'O';
|
|
asmbin : 'as';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
externals : false;
|
|
labelprefix : '.L';
|
|
comment : '# '
|
|
)
|
|
,(
|
|
id : as_i386_o_aout;
|
|
idtxt : 'O_AOUT';
|
|
asmbin : 'as';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
externals : false;
|
|
labelprefix : 'L';
|
|
comment : '# '
|
|
)
|
|
,(
|
|
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')
|
|
externals : false;
|
|
labelprefix : '.L';
|
|
comment : '# '
|
|
)
|
|
,(
|
|
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')
|
|
externals : true;
|
|
labelprefix : 'L';
|
|
comment : '; '
|
|
)
|
|
,(
|
|
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')
|
|
externals : true;
|
|
labelprefix : 'L';
|
|
comment : '; '
|
|
)
|
|
,(
|
|
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')
|
|
externals : true;
|
|
labelprefix : 'L';
|
|
comment : '; '
|
|
)
|
|
,(
|
|
id : as_i386_tasm;
|
|
idtxt : 'TASM';
|
|
asmbin : 'tasm';
|
|
asmcmd : '/m2 $ASM $OBJ';
|
|
allowdirect : true;
|
|
externals : true;
|
|
needar : true;
|
|
labelprefix : '@@';
|
|
comment : '; ';
|
|
secnames : ('',
|
|
'CODE','DATA','BSS',
|
|
'','','','','','',
|
|
'','')
|
|
externals : true;
|
|
labelprefix : '.L';
|
|
comment : '; '
|
|
)
|
|
,(
|
|
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')
|
|
externals : true;
|
|
labelprefix : '.L';
|
|
comment : '; '
|
|
)
|
|
,(
|
|
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')
|
|
asmbin : 'as';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
externals : false;
|
|
labelprefix : '.L';
|
|
comment : '# '
|
|
)
|
|
{$endif i386}
|
|
{$ifdef m68k}
|
|
,(
|
|
id : as_m68k_o;
|
|
idtxt : 'O';
|
|
asmbin : 'as';
|
|
asmcmd : '-o $OBJ $ASM';
|
|
externals : false;
|
|
labelprefix : '.L';
|
|
comment : '# '
|
|
)
|
|
,(
|
|
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')
|
|
externals : false;
|
|
labelprefix : '.L';
|
|
comment : '| '
|
|
)
|
|
,(
|
|
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')
|
|
externals : false;
|
|
labelprefix : '.L';
|
|
comment : '| '
|
|
)
|
|
,(
|
|
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')
|
|
externals : false;
|
|
labelprefix : '__L';
|
|
comment : '| '
|
|
)
|
|
,(
|
|
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')
|
|
externals : false;
|
|
labelprefix : '__L';
|
|
comment : '| '
|
|
)
|
|
{$endif m68k}
|
|
);
|
|
|
|
|
|
{****************************************************************************
|
|
Linker Info
|
|
****************************************************************************}
|
|
|
|
link_infos : array[1..linkcnt] of tlinkinfo = (
|
|
(
|
|
id : link_none
|
|
)
|
|
{$ifdef i386}
|
|
,(
|
|
id : link_i386_ld;
|
|
linkbin : 'ld';
|
|
linkcmd : '$OPT -o $EXE $RES';
|
|
binders : 0;
|
|
bindbin : ('','');
|
|
bindcmd : ('','');
|
|
stripopt : '-s';
|
|
stripbind : false;
|
|
libpathprefix : 'SEARCH_DIR(';
|
|
libpathsuffix : ')';
|
|
groupstart : 'GROUP(';
|
|
groupend : ')';
|
|
inputstart : 'INPUT(';
|
|
inputend : ')';
|
|
libprefix : '-l'
|
|
)
|
|
,(
|
|
id : link_i386_ldgo32v1;
|
|
linkbin : 'ld';
|
|
linkcmd : '-oformat coff-go32 $OPT -o $EXE @$RES';
|
|
binders : 1;
|
|
bindbin : ('aout2exe','');
|
|
bindcmd : ('$EXE','');
|
|
stripopt : '-s';
|
|
stripbind : false;
|
|
libpathprefix : '-L';
|
|
libpathsuffix : '';
|
|
groupstart : '-(';
|
|
groupend : '-)';
|
|
inputstart : '';
|
|
inputend : '';
|
|
libprefix : '-l'
|
|
)
|
|
,(
|
|
id : link_i386_ldgo32v2;
|
|
linkbin : 'ld';
|
|
linkcmd : '-oformat coff-go32-exe $OPT -o $EXE @$RES';
|
|
binders:0;
|
|
bindbin : ('','');
|
|
bindcmd : ('','');
|
|
stripopt : '-s';
|
|
stripbind : false;
|
|
libpathprefix : '-L';
|
|
libpathsuffix : '';
|
|
groupstart : '-(';
|
|
groupend : '-)';
|
|
inputstart : '';
|
|
inputend : '';
|
|
libprefix : '-l'
|
|
)
|
|
,(
|
|
id : link_i386_ldw;
|
|
linkbin : 'ldw';
|
|
linkcmd : '$OPT -o $EXE $RES';
|
|
binders : 0;
|
|
bindbin : ('dlltool','ldw');
|
|
bindcmd : ('--as asw.exe --dllname $EXE --output-exp exp.$$$',
|
|
'-s $OPT -o $EXE $RES exp.$$$');
|
|
stripopt : '-s';
|
|
stripbind : false;
|
|
libpathprefix : 'SEARCH_DIR(';
|
|
libpathsuffix : ')';
|
|
groupstart : 'GROUP(';
|
|
groupend : ')';
|
|
inputstart : 'INPUT(';
|
|
inputend : ')';
|
|
libprefix : '-l'
|
|
)
|
|
,(
|
|
id : link_i386_ldos2;
|
|
linkbin : 'ld'; { Os/2 }
|
|
linkcmd : '-o $EXE @$RES';
|
|
binders : 1;
|
|
bindbin : ('emxbind','');
|
|
bindcmd : ('-b -k$STACKKB -h$HEAPMB -o $EXE.exe $EXE -aim -s$DOSHEAPKB','');
|
|
stripopt : '-s';
|
|
bindcmd : ('-b $STRIP -k$STACKKB -h$HEAPMB -o $EXE.exe $EXE -aim -s$DOSHEAPKB','');
|
|
stripopt : '-s';
|
|
stripbind : true;
|
|
libpathprefix : '-L';
|
|
libpathsuffix : '';
|
|
groupstart : ''; {Linker is too primitive...}
|
|
groupend : '';
|
|
inputstart : '';
|
|
inputend : '';
|
|
libprefix : '-l'
|
|
)
|
|
{$endif i386}
|
|
{$ifdef m68k}
|
|
,(
|
|
id : link_m68k_ld;
|
|
linkbin : 'ld';
|
|
linkcmd : '$OPT -o $EXE $RES';
|
|
binders:0;
|
|
bindbin : ('','');
|
|
bindcmd : ('','');
|
|
stripopt : '-s';
|
|
stripbind : false;
|
|
libpathprefix : 'SEARCH_DIR(';
|
|
libpathsuffix : ')';
|
|
groupstart : 'GROUP(';
|
|
groupend : ')';
|
|
inputstart : 'INPUT(';
|
|
inputend : ')';
|
|
libprefix : '-l'
|
|
)
|
|
{$endif m68k}
|
|
);
|
|
|
|
{****************************************************************************
|
|
Ar Info
|
|
****************************************************************************}
|
|
ar_infos : array[1..arcnt] of tarinfo = (
|
|
(
|
|
id : ar_none
|
|
)
|
|
{$ifdef i386}
|
|
,(
|
|
id : ar_i386_ar;
|
|
arbin : 'ar';
|
|
arcmd : 'rs $LIB $FILES'
|
|
),
|
|
(
|
|
id : ar_i386_arw;
|
|
arbin : 'arw';
|
|
arcmd : 'rs $LIB $FILES'
|
|
)
|
|
{$endif i386}
|
|
{$ifdef m68k}
|
|
,(
|
|
id : ar_m68k_ar;
|
|
arbin : 'ar';
|
|
arcmd : 'rs $LIB $FILES'
|
|
)
|
|
{$endif m68k}
|
|
);
|
|
|
|
|
|
{****************************************************************************
|
|
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;
|
|
link : link_i386_ldgo32v1;
|
|
assem : as_i386_as;
|
|
assemsrc : as_i386_as;
|
|
ar : ar_i386_ar;
|
|
res : res_none;
|
|
heapsize : 256*1024;
|
|
assem : as_i386_o;
|
|
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;
|
|
link : link_i386_ldgo32v2;
|
|
assem : as_i386_coff;
|
|
assemsrc : as_i386_as;
|
|
ar : ar_i386_ar;
|
|
res : res_none;
|
|
heapsize : 256*1024;
|
|
assem : as_i386_o;
|
|
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;
|
|
link : link_i386_ld;
|
|
assem : as_i386_as;
|
|
assemsrc : as_i386_as;
|
|
ar : ar_i386_ar;
|
|
res : res_none;
|
|
heapsize : 256*1024;
|
|
assem : as_i386_o;
|
|
ar : ar_i386_ar;
|
|
res : res_none;
|
|
heapsize : 2048*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 8192
|
|
),
|
|
(
|
|
target : target_i386_OS2;
|
|
flags : [];
|
|
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;
|
|
link : link_i386_ldos2;
|
|
assem : as_i386_as_aout;
|
|
assemsrc : as_i386_as_aout;
|
|
assem : as_i386_o_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;
|
|
link : link_i386_ldw;
|
|
assem : as_i386_pecoff;
|
|
assemsrc : as_i386_asw;
|
|
assem : as_i386_asw;
|
|
ar : ar_i386_arw;
|
|
res : res_i386_windres;
|
|
heapsize : 256*1024;
|
|
maxheapsize : 32*1024*1024;
|
|
stacksize : 32*1024*1024
|
|
heapsize : 2048*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 32768
|
|
)
|
|
{$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;
|
|
link : link_m68k_ld;
|
|
assem : as_m68k_as;
|
|
assemsrc : as_m68k_as;
|
|
assem : as_m68k_o;
|
|
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;
|
|
link : link_m68k_ld;
|
|
assem : as_m68k_as;
|
|
assemsrc : as_m68k_as;
|
|
assem : as_m68k_o;
|
|
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;
|
|
link : link_m68k_ld;
|
|
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;
|
|
link : link_m68k_ld;
|
|
assem : as_m68k_as;
|
|
assemsrc : as_m68k_as;
|
|
assem : as_m68k_o;
|
|
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;
|
|
link : link_m68k_ld;
|
|
assem : as_m68k_as;
|
|
assemsrc : as_m68k_as;
|
|
assem : as_m68k_o;
|
|
ar : ar_m68k_ar;
|
|
res : res_none;
|
|
heapsize : 128*1024;
|
|
maxheapsize : 32768*1024;
|
|
stacksize : 8192
|
|
)
|
|
{$endif m68k}
|
|
);
|
|
|
|
{****************************************************************************
|
|
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}
|
|
);
|
|
|
|
{****************************************************************************
|
|
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 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_link(t:tlink):boolean;
|
|
var
|
|
i : longint;
|
|
begin
|
|
set_target_link:=false;
|
|
for i:=1 to linkcnt do
|
|
if link_infos[i].id=t then
|
|
begin
|
|
target_link:=link_infos[i];
|
|
set_target_link:=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_link(target_info.link);
|
|
set_target_ar(target_info.ar);
|
|
set_target_res(target_info.res);
|
|
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
|
|
target_info:=target_infos[i];
|
|
set_target_os(target_info.os);
|
|
set_target_asm(target_info.assem);
|
|
set_target_link(target_info.link);
|
|
set_target_ar(target_info.ar);
|
|
set_target_res(target_info.res);
|
|
target_cpu:=target_info.cpu;
|
|
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';
|
|
if OS_Mode = osDOS 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}
|
|
end;
|
|
|
|
|
|
begin
|
|
InitSystems;
|
|
end.
|
|
{
|
|
$Log$
|
|
Revision 1.79 1999-06-02 13:25:34 hajny
|
|
* fixed stripping symbols for OS/2
|
|
|
|
Revision 1.78 1999/05/31 20:34:00 peter
|
|
* changed heapsize to 256k
|
|
|
|
Revision 1.77 1999/05/27 19:45:10 peter
|
|
* removed oldasm
|
|
* plabel -> pasmlabel
|
|
* -a switches to source writing automaticly
|
|
* assembler readers OOPed
|
|
* asmsymbol automaticly external
|
|
* jumptables and other label fixes for asm readers
|
|
|
|
Revision 1.76 1999/05/18 09:30:10 michael
|
|
+ changes by thomas hajt
|
|
|
|
Revision 1.74 1999/05/17 13:02:12 pierre
|
|
* -Csmmm works for win32 but default is set to 32Mb
|
|
|
|
Revision 1.73 1999/05/11 00:44:06 peter
|
|
* released pecoff for win32 as default
|
|
|
|
Revision 1.72 1999/05/05 22:22:05 peter
|
|
* updated messages
|
|
|
|
Revision 1.71 1999/05/05 17:34:33 peter
|
|
* output is more like as 2.9.1
|
|
* stabs really working for go32v2
|
|
|
|
Revision 1.70 1999/05/05 09:19:18 florian
|
|
* more fixes to get it with delphi running
|
|
|
|
Revision 1.69 1999/05/03 18:03:29 peter
|
|
* no ar.exe running field in target_asm
|
|
|
|
Revision 1.68 1999/05/02 22:41:59 peter
|
|
* moved section names to systems
|
|
* fixed nasm,intel writer
|
|
|
|
Revision 1.67 1999/05/01 14:18:12 peter
|
|
* win32 pecoff disabled because it's still not ok
|
|
|
|
Revision 1.66 1999/05/01 13:24:44 peter
|
|
* merged nasm compiler
|
|
* old asm moved to oldasm/
|
|
|
|
Revision 1.65 1999/03/26 00:05:47 peter
|
|
* released valintern
|
|
+ deffile is now removed when compiling is finished
|
|
* ^( compiles now correct
|
|
+ static directive
|
|
* shrd fixed
|
|
|
|
Revision 1.64 1999/03/24 23:17:33 peter
|
|
* fixed bugs 212,222,225,227,229,231,233
|
|
|
|
Revision 1.63 1999/03/09 11:54:09 pierre
|
|
* pecoff default assem for win32 with ag386bin
|
|
|
|
Revision 1.62 1999/03/04 13:55:48 pierre
|
|
* some m68k fixes (still not compilable !)
|
|
* new(tobj) does not give warning if tobj has no VMT !
|
|
|
|
Revision 1.61 1999/03/03 11:41:51 pierre
|
|
+ stabs info corrected to give results near to GAS output
|
|
* local labels (with .L are not stored in object anymore)
|
|
so we get the same number of symbols as from GAS !
|
|
|
|
Revision 1.60 1999/02/26 00:48:25 peter
|
|
* assembler writers fixed for ag386bin
|
|
|
|
Revision 1.59 1999/02/25 21:02:53 peter
|
|
* ag386bin updates
|
|
+ coff writer
|
|
|
|
Revision 1.58 1999/02/24 00:59:16 peter
|
|
* small updates for ag386bin
|
|
|
|
Revision 1.57 1999/02/22 02:15:42 peter
|
|
* updates for ag386bin
|
|
|
|
Revision 1.56 1999/01/10 15:38:01 peter
|
|
* moved some tables from ra386*.pas -> i386.pas
|
|
+ start of coff writer
|
|
* renamed asmutils unit to rautils
|
|
|
|
Revision 1.55 1999/01/06 22:58:47 florian
|
|
+ some stuff for the new code generator
|
|
|
|
Revision 1.54 1998/12/28 23:26:26 peter
|
|
+ resource file handling ($R directive) for Win32
|
|
|
|
Revision 1.53 1998/12/15 10:23:30 peter
|
|
+ -iSO, -iSP, -iTO, -iTP
|
|
|
|
Revision 1.52 1998/12/03 10:17:32 peter
|
|
* target_os.use_bound_instruction boolean
|
|
|
|
Revision 1.51 1998/11/30 09:43:23 pierre
|
|
* some range check bugs fixed (still not working !)
|
|
+ added DLL writing support for win32 (also accepts variables)
|
|
+ TempAnsi for code that could be used for Temporary ansi strings
|
|
handling
|
|
|
|
Revision 1.50 1998/11/16 15:41:45 peter
|
|
* tp7 didn't like my ifopt H+ :(
|
|
|
|
Revision 1.49 1998/11/16 10:17:09 peter
|
|
* fixed for H+ compilation
|
|
|
|
Revision 1.48 1998/10/26 14:19:30 pierre
|
|
+ added options -lS and -lT for source and target os output
|
|
(to have a easier way to test OS_SOURCE abd OS_TARGET in makefiles)
|
|
* several problems with rtti data
|
|
(type of sym was not checked)
|
|
assumed to be varsym when they could be procsym or property syms !!
|
|
|
|
Revision 1.47 1998/10/20 08:07:04 pierre
|
|
* several memory corruptions due to double freemem solved
|
|
=> never use p^.loc.location:=p^.left^.loc.location;
|
|
+ finally I added now by default
|
|
that ra386dir translates global and unit symbols
|
|
+ added a first field in tsymtable and
|
|
a nextsym field in tsym
|
|
(this allows to obtain ordered type info for
|
|
records and objects in gdb !)
|
|
|
|
Revision 1.46 1998/10/16 08:51:54 peter
|
|
+ target_os.stackalignment
|
|
+ stack can be aligned at 2 or 4 byte boundaries
|
|
|
|
Revision 1.45 1998/10/15 16:20:41 peter
|
|
* removed uses verbose which is not possible! this unit may not use
|
|
any other unit !
|
|
|
|
Revision 1.44 1998/10/14 11:28:25 florian
|
|
* emitpushreferenceaddress gets now the asmlist as parameter
|
|
* m68k version compiles with -duseansistrings
|
|
|
|
Revision 1.43 1998/10/14 08:08:56 pierre
|
|
* following Peters remark, removed all ifdef in
|
|
the systems unit enums
|
|
* last bugs of cg68k removed for sysamiga
|
|
(sysamiga assembles with as68k !!)
|
|
|
|
Revision 1.42 1998/10/13 16:50:23 pierre
|
|
* undid some changes of Peter that made the compiler wrong
|
|
for m68k (I had to reinsert some ifdefs)
|
|
* removed several memory leaks under m68k
|
|
* removed the meory leaks for assembler readers
|
|
* cross compiling shoud work again better
|
|
( crosscompiling sysamiga works
|
|
but as68k still complain about some code !)
|
|
|
|
Revision 1.41 1998/10/13 13:10:31 peter
|
|
* new style for m68k/i386 infos and enums
|
|
|
|
Revision 1.40 1998/10/13 09:13:09 pierre
|
|
* assembler type output command line was case sensitive
|
|
|
|
Revision 1.39 1998/10/13 08:19:42 pierre
|
|
+ source_os is now set correctly for cross-processor compilers
|
|
(tos contains all target_infos and
|
|
we use CPU86 and CPU68 conditionnals to
|
|
get the source operating system
|
|
this only works if you do not undefine
|
|
the source target !!)
|
|
* several cg68k memory leaks fixed
|
|
+ started to change the code so that it should be possible to have
|
|
a complete compiler (both for m68k and i386 !!)
|
|
|
|
Revision 1.38 1998/10/07 04:26:58 carl
|
|
* bugfixes
|
|
+ added mpw support
|
|
|
|
Revision 1.37 1998/10/06 20:40:58 peter
|
|
* remove -D from assemblers
|
|
|
|
Revision 1.36 1998/09/16 16:41:50 peter
|
|
* merged fixes
|
|
|
|
Revision 1.33.2.3 1998/09/16 16:13:13 peter
|
|
* win32 .o -> .ow and .a -> .aw
|
|
|
|
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.2 1998/09/11 17:29:20 peter
|
|
* fixed tabs
|
|
|
|
Revision 1.33.2.1 1998/09/11 12:06:00 pierre
|
|
* m68k part restored
|
|
|
|
Revision 1.33 1998/09/10 15:25:39 daniel
|
|
+ Added maxheapsize.
|
|
* Corrected semi-bug in calling the assembler and the linker
|
|
|
|
Revision 1.31 1998/09/01 09:07:13 peter
|
|
* m68k fixes, splitted cg68k like cgi386
|
|
|
|
Revision 1.30 1998/08/31 12:26:34 peter
|
|
* m68k and palmos updates from surebugfixes
|
|
|
|
Revision 1.29 1998/08/26 10:09:21 peter
|
|
* more lowercase extensions
|
|
|
|
Revision 1.28 1998/08/25 12:42:47 pierre
|
|
* CDECL changed to CVAR for variables
|
|
specifications are read in structures also
|
|
+ started adding GPC compatibility mode ( option -Sp)
|
|
* names changed to lowercase
|
|
|
|
Revision 1.27 1998/08/21 15:16:57 peter
|
|
* win32 compiles a bit better, no growheap crash
|
|
|
|
Revision 1.26 1998/08/19 16:07:55 jonas
|
|
* changed optimizer switches + cleanup of DestroyRefs in daopt386.pas
|
|
|
|
Revision 1.25 1998/08/18 09:24:45 pierre
|
|
* small warning position bug fixed
|
|
* support_mmx switches splitting was missing
|
|
* rhide error and warning output corrected
|
|
|
|
Revision 1.24 1998/08/17 09:17:54 peter
|
|
* static/shared linking updates
|
|
|
|
Revision 1.23 1998/06/25 08:48:20 florian
|
|
* first version of rtti support
|
|
|
|
Revision 1.22 1998/06/17 14:10:21 peter
|
|
* small os2 fixes
|
|
* fixed interdependent units with newppu (remake3 under linux works now)
|
|
|
|
Revision 1.20 1998/06/15 15:38:14 pierre
|
|
* small bug in systems.pas corrected
|
|
+ operators in different units better hanlded
|
|
|
|
Revision 1.19 1998/06/15 13:34:24 daniel
|
|
|
|
|
|
* Fixed spelling mistakes in comments.
|
|
* Fixed some OS/2 parameters.
|
|
|
|
Revision 1.18 1998/06/08 22:59:54 peter
|
|
* smartlinking works for win32
|
|
* some defines to exclude some compiler parts
|
|
|
|
Revision 1.17 1998/06/04 23:52:04 peter
|
|
* m68k compiles
|
|
+ .def file creation moved to gendef.pas so it could also be used
|
|
for win32
|
|
|
|
Revision 1.16 1998/06/01 16:50:22 peter
|
|
+ boolean -> ord conversion
|
|
* fixed ord -> boolean conversion
|
|
|
|
Revision 1.15 1998/05/30 14:31:11 peter
|
|
+ $ASMMODE
|
|
|
|
Revision 1.14 1998/05/29 13:24:45 peter
|
|
+ asw assembler
|
|
|
|
Revision 1.13 1998/05/27 00:20:33 peter
|
|
* some scanner optimizes
|
|
* automaticly aout2exe for go32v1
|
|
* fixed dynamiclinker option which was added at the wrong place
|
|
|
|
Revision 1.12 1998/05/23 01:21:32 peter
|
|
+ aktasmmode, aktoptprocessor, aktoutputformat
|
|
+ smartlink per module $SMARTLINK-/+ (like MMX) and moved to aktswitches
|
|
+ $LIBNAME to set the library name where the unit will be put in
|
|
* splitted cgi386 a bit (codeseg to large for bp7)
|
|
* nasm, tasm works again. nasm moved to ag386nsm.pas
|
|
|
|
Revision 1.11 1998/05/22 12:32:49 peter
|
|
* fixed -L on the commandline, Dos commandline is only 128 bytes
|
|
|
|
Revision 1.10 1998/05/11 13:07:58 peter
|
|
+ $ifdef NEWPPU for the new ppuformat
|
|
+ $define GDB not longer required
|
|
* removed all warnings and stripped some log comments
|
|
* no findfirst/findnext anymore to remove smartlink *.o files
|
|
|
|
Revision 1.9 1998/05/06 08:38:49 pierre
|
|
* better position info with UseTokenInfo
|
|
UseTokenInfo greatly simplified
|
|
+ added check for changed tree after first time firstpass
|
|
(if we could remove all the cases were it happen
|
|
we could skip all firstpass if firstpasscount > 1)
|
|
Only with ExtDebug
|
|
|
|
Revision 1.8 1998/05/04 20:19:54 peter
|
|
* small fix for go32v2
|
|
|
|
Revision 1.7 1998/05/04 17:54:29 peter
|
|
+ smartlinking works (only case jumptable left todo)
|
|
* redesign of systems.pas to support assemblers and linkers
|
|
+ Unitname is now also in the PPU-file, increased version to 14
|
|
|
|
Revision 1.6 1998/05/01 07:43:57 florian
|
|
+ basics for rtti implemented
|
|
+ switch $m (generate rtti for published sections)
|
|
|
|
Revision 1.5 1998/04/29 10:34:06 pierre
|
|
+ added some code for ansistring (not complete nor working yet)
|
|
* corrected operator overloading
|
|
* corrected nasm output
|
|
+ started inline procedures
|
|
+ added starstarn : use ** for exponentiation (^ gave problems)
|
|
+ started UseTokenInfo cond to get accurate positions
|
|
|
|
Revision 1.4 1998/04/27 15:45:20 peter
|
|
+ -Xl for smartlink
|
|
+ target_info.arext = .a
|
|
|
|
Revision 1.3 1998/04/16 10:50:45 daniel
|
|
* Fixed some things that were broken for OS/2.
|
|
}
|