paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 08:39:33 +02:00
Code Issues Packages Projects Releases Wiki Activity
636ad3ddee
fpc/compiler/systems.pas
pierre c7167e92ff + 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 !!
1998-10-26 14:19:28 +00:00

1388 lines
40 KiB
ObjectPascal
Raw Blame History

{
$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
);
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
);
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_o,as_i386_o_aout,as_i386_asw,
as_i386_nasmcoff,as_i386_nasmelf,as_i386_nasmobj,
as_i386_tasm,as_i386_masm
,as_m68k_o,as_m68k_gas,as_m68k_mit,as_m68k_mot,as_m68k_mpw
);
const
{$ifdef i386} i386asmcnt=8; {$else} i386asmcnt=0; {$endif}
{$ifdef m68k} m68kasmcnt=5; {$else} m68kasmcnt=0; {$endif}
asmcnt=i386asmcnt+m68kasmcnt+1;
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
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];
sharedlibext,
staticlibext,
sourceext,
pasext,
exeext,
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_function_relative_addresses : boolean;
end;
tasminfo = packed record
id : tasm;
idtxt : string[8];
asmbin : string[8];
asmcmd : string[50];
externals : boolean;
labelprefix : string[2];
comment : string[2];
end;
tlinkinfo = packed record
id : tlink;
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 = packed record
id : tar;
arbin : string[8];
arcmd : string[50];
end;
ttargetinfo = packed record
target : ttarget;
cpu : ttargetcpu;
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=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;
source_os : tosinfo;
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'
),
(
id : os_i386_go32v1;
name : 'GO32 V1 DOS extender';
sharedlibext : '.dll';
staticlibext : '.a';
sourceext : '.pp';
pasext : '.pas';
exeext : ''; { No .exe, the linker only output a.out ! }
scriptext : '.bat';
libprefix : '';
Cprefix : '_';
newline : #13#10;
endian : endian_little;
stackalignment : 2;
size_of_pointer : 4;
size_of_longint : 4;
use_function_relative_addresses : true
),
(
id : os_i386_go32v2;
name : 'GO32 V2 DOS extender';
sharedlibext : '.dll';
staticlibext : '.a';
sourceext : '.pp';
pasext : '.pas';
exeext : '.exe';
scriptext : '.bat';
libprefix : '';
Cprefix : '_';
newline : #13#10;
endian : endian_little;
stackalignment : 2;
size_of_pointer : 4;
size_of_longint : 4;
use_function_relative_addresses : true
),
(
id : os_i386_linux;
name : 'Linux for i386';
sharedlibext : '.so';
staticlibext : '.a';
sourceext : '.pp';
pasext : '.pas';
exeext : '';
scriptext : '.sh';
libprefix : 'lib';
Cprefix : '';
newline : #10;
endian : endian_little;
stackalignment : 4;
size_of_pointer : 4;
size_of_longint : 4;
use_function_relative_addresses : true
),
(
id : os_i386_os2;
name : 'OS/2 via EMX';
sharedlibext : '.ao2';
staticlibext : '.ao2';
sourceext : '.pas';
pasext : '.pp';
exeext : '.exe';
scriptext : '.cmd';
libprefix : '';
Cprefix : '_';
newline : #13#10;
endian : endian_little;
stackalignment : 2;
size_of_pointer : 4;
size_of_longint : 4;
use_function_relative_addresses : false
),
(
id : os_i386_win32;
name : 'Win32 for i386';
sharedlibext : '.dll';
staticlibext : '.aw';
sourceext : '.pp';
pasext : '.pas';
exeext : '.exe';
scriptext : '.bat';
libprefix : 'lib';
Cprefix : '_';
newline : #13#10;
endian : endian_little;
stackalignment : 4;
size_of_pointer : 4;
size_of_longint : 4;
use_function_relative_addresses : true
),
(
id : os_m68k_amiga;
name : 'Commodore Amiga';
sharedlibext : '.library';
staticlibext : '.a';
sourceext : '.pp';
pasext : '.pas';
exeext : '';
scriptext : '';
libprefix : '';
Cprefix : '_';
newline : #10;
endian : endian_big;
stackalignment : 2;
size_of_pointer : 4;
size_of_longint : 4;
use_function_relative_addresses : false
),
(
id : os_m68k_atari;
name : 'Atari ST/STE';
sharedlibext : '.dll';
staticlibext : '.a';
sourceext : '.pp';
pasext : '.pas';
exeext : '.tpp';
scriptext : '';
libprefix : '';
Cprefix : '_';
newline : #10;
endian : endian_big;
stackalignment : 2;
size_of_pointer : 4;
size_of_longint : 4;
use_function_relative_addresses : false
),
(
id : os_m68k_mac;
name : 'Macintosh m68k';
sharedlibext : '.dll';
staticlibext : '.a';
sourceext : '.pp';
pasext : '.pas';
exeext : '.tpp';
scriptext : '';
libprefix : '';
Cprefix : '_';
newline : #13;
endian : endian_big;
stackalignment : 2;
size_of_pointer : 4;
size_of_longint : 4;
use_function_relative_addresses : false
),
(
id : os_m68k_linux;
name : 'Linux for m68k';
sharedlibext : '.so';
staticlibext : '.a';
sourceext : '.pp';
pasext : '.pas';
exeext : '';
scriptext : '.sh';
libprefix : 'lib';
Cprefix : '';
newline : #10;
endian : endian_big;
stackalignment : 2;
size_of_pointer : 4;
size_of_longint : 4;
use_function_relative_addresses : true
),
(
id : os_m68k_palmos;
name : 'PalmOS';
sharedlibext : '.so';
staticlibext : '.a';
sourceext : '.pp';
pasext : '.pas';
exeext : '';
scriptext : '.sh';
libprefix : 'lib';
Cprefix : '_';
newline : #10;
endian : endian_big;
stackalignment : 2;
size_of_pointer : 4;
size_of_longint : 4;
use_function_relative_addresses : false
)
);
{****************************************************************************
Assembler Info
****************************************************************************}
as_infos : array[1..asmcnt] of tasminfo = (
(
id : as_none;
idtxt : 'no'
)
{$ifdef i386}
,(
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';
externals : false;
labelprefix : '.L';
comment : '# '
)
,(
id : as_i386_nasmcoff;
idtxt : 'NASMCOFF';
asmbin : 'nasm';
asmcmd : '-f coff -o $OBJ $ASM';
externals : true;
labelprefix : 'L';
comment : '; '
)
,(
id : as_i386_nasmelf;
idtxt : 'NASMELF';
asmbin : 'nasm';
asmcmd : '-f elf -o $OBJ $ASM';
externals : true;
labelprefix : 'L';
comment : '; '
)
,(
id : as_i386_nasmobj;
idtxt : 'NASMOBJ';
asmbin : 'nasm';
asmcmd : '-f obj -o $OBJ $ASM';
externals : true;
labelprefix : 'L';
comment : '; '
)
,(
id : as_i386_tasm;
idtxt : 'TASM';
asmbin : 'tasm';
asmcmd : '/m2 $ASM $OBJ';
externals : true;
labelprefix : '.L';
comment : '; '
)
,(
id : as_i386_masm;
idtxt : 'MASM';
asmbin : 'masm';
asmcmd : '$ASM $OBJ';
externals : true;
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';
externals : false;
labelprefix : '.L';
comment : '| '
)
,(
id : as_m68k_mit;
idtxt : 'MIT';
asmbin : '';
asmcmd : '-o $OBJ $ASM';
externals : false;
labelprefix : '.L';
comment : '| '
)
,(
id : as_m68k_mot;
idtxt : 'MOT';
asmbin : '';
asmcmd : '-o $OBJ $ASM';
externals : false;
labelprefix : '__L';
comment : '| '
)
,(
id : as_m68k_mpw;
idtxt : 'MPW';
asmbin : '';
asmcmd : '-model far -o $OBJ $ASM';
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';
bindbin : '';
bindcmd : '';
stripopt : '-s';
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';
bindbin : 'aout2exe';
bindcmd : '$EXE';
stripopt : '-s';
libpathprefix : '-L';
libpathsuffix : '';
groupstart : '-(';
groupend : '-)';
inputstart : '';
inputend : '';
libprefix : '-l'
)
,(
id : link_i386_ldgo32v2;
linkbin : 'ld';
linkcmd : '-oformat coff-go32-exe $OPT -o $EXE @$RES';
bindbin : '';
bindcmd : '';
stripopt : '-s';
libpathprefix : '-L';
libpathsuffix : '';
groupstart : '-(';
groupend : '-)';
inputstart : '';
inputend : '';
libprefix : '-l'
)
,(
id : link_i386_ldw;
linkbin : 'ldw';
linkcmd : '$OPT -o $EXE $RES';
bindbin : '';
bindcmd : '';
stripopt : '-s';
libpathprefix : 'SEARCH_DIR(';
libpathsuffix : ')';
groupstart : 'GROUP(';
groupend : ')';
inputstart : 'INPUT(';
inputend : ')';
libprefix : '-l'
)
,(
id : link_i386_ldos2;
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'
)
{$endif i386}
{$ifdef m68k}
,(
id : link_m68k_ld;
linkbin : 'ld';
linkcmd : '$OPT -o $EXE $RES';
bindbin : '';
bindcmd : '';
stripopt : '-s';
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}
);
{****************************************************************************
Targets Info
****************************************************************************}
target_infos : array[1..targetcnt] of ttargetinfo = (
(
target : target_none;
cpu : no_cpu;
short_name : 'notarget'
)
{$ifdef i386}
,(
target : target_i386_GO32V1;
cpu : i386;
short_name : 'GO32V1';
unit_env : 'GO32V1UNITS';
system_unit : 'SYSTEM';
smartext : '.sl';
unitext : '.pp1';
unitlibext : '.ppl';
asmext : '.s1';
objext : '.o1';
exeext : ''; { The linker produces a.out }
os : os_i386_GO32V1;
link : link_i386_ldgo32v1;
assem : as_i386_o;
ar : ar_i386_ar;
heapsize : 2048*1024;
maxheapsize : 32768*1024;
stacksize : 16384
),
(
target : target_i386_GO32V2;
cpu : i386;
short_name : 'GO32V2';
unit_env : 'GO32V2UNITS';
system_unit : 'SYSTEM';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '.exe';
os : os_i386_GO32V2;
link : link_i386_ldgo32v2;
assem : as_i386_o;
ar : ar_i386_ar;
heapsize : 2048*1024;
maxheapsize : 32768*1024;
stacksize : 16384
),
(
target : target_i386_LINUX;
cpu : i386;
short_name : 'LINUX';
unit_env : 'LINUXUNITS';
system_unit : 'syslinux';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '';
os : os_i386_Linux;
link : link_i386_ld;
assem : as_i386_o;
ar : ar_i386_ar;
heapsize : 2048*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_i386_OS2;
cpu : i386;
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_i386_OS2;
link : link_i386_ldos2;
assem : as_i386_o_aout;
ar : ar_i386_ar;
heapsize : 256*1024;
maxheapsize : 32768*1024;
stacksize : 32768
),
(
target : target_i386_WIN32;
cpu : i386;
short_name : 'WIN32';
unit_env : 'WIN32UNITS';
system_unit : 'SYSWIN32';
smartext : '.slw';
unitext : '.ppw';
unitlibext : '.ppl';
asmext : '.sw';
objext : '.ow';
exeext : '.exe';
os : os_i386_Win32;
link : link_i386_ldw;
assem : as_i386_asw;
ar : ar_i386_arw;
heapsize : 2048*1024;
maxheapsize : 32768*1024;
stacksize : 32768
)
{$endif i386}
{$ifdef m68k}
,(
target : target_m68k_Amiga;
cpu : m68k;
short_name : 'AMIGA';
unit_env : '';
system_unit : 'sysamiga';
smartext : '.sl';
unitext : '.ppa';
unitlibext : '.ppl';
asmext : '.asm';
objext : '.o';
exeext : '';
os : os_m68k_Amiga;
link : link_m68k_ld;
assem : as_m68k_o;
ar : ar_m68k_ar;
heapsize : 128*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_m68k_Atari;
cpu : m68k;
short_name : 'ATARI';
unit_env : '';
system_unit : 'SYSATARI';
smartext : '.sl';
unitext : '.ppt';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '.ttp';
os : os_m68k_Atari;
link : link_m68k_ld;
assem : as_m68k_o;
ar : ar_m68k_ar;
heapsize : 16*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_m68k_Mac;
cpu : m68k;
short_name : 'MACOS';
unit_env : '';
system_unit : 'sysmac';
smartext : '.sl';
unitext : '.ppt';
unitlibext : '.ppl';
asmext : '.a';
objext : '.o';
exeext : '';
os : os_m68k_Mac;
link : link_m68k_ld;
assem : as_m68k_mpw;
ar : ar_m68k_ar;
heapsize : 128*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_m68k_linux;
cpu : m68k;
short_name : 'LINUX';
unit_env : 'LINUXUNITS';
system_unit : 'syslinux';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '';
os : os_m68k_Linux;
link : link_m68k_ld;
assem : as_m68k_o;
ar : ar_m68k_ar;
heapsize : 128*1024;
maxheapsize : 32768*1024;
stacksize : 8192
),
(
target : target_m68k_PalmOS;
cpu : m68k;
short_name : 'PALMOS';
unit_env : 'PALMUNITS';
system_unit : 'syspalm';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
exeext : '';
os : os_m68k_PalmOS;
link : link_m68k_ld;
assem : as_m68k_o;
ar : ar_m68k_ar;
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];
upper[0]:=s[0];
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_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);
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);
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;
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);
{$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.
{
$Log$
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.
}
Reference in New Issue View Git Blame Copy Permalink