|
@@ -1,5 +1,4 @@
|
|
|
{
|
|
{
|
|
|
- $Id$
|
|
|
|
|
$Id$
|
|
$Id$
|
|
|
Copyright (C) 1995,97 by Florian Klaempfl
|
|
Copyright (C) 1995,97 by Florian Klaempfl
|
|
|
|
|
|
|
@@ -72,7 +71,6 @@ unit systems;
|
|
|
type
|
|
type
|
|
|
tasm = (as_none
|
|
tasm = (as_none
|
|
|
,as_i386_as,as_i386_as_aout,as_i386_asw,
|
|
,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_nasmcoff,as_i386_nasmelf,as_i386_nasmobj,
|
|
|
as_i386_tasm,as_i386_masm,
|
|
as_i386_tasm,as_i386_masm,
|
|
|
as_i386_dbg,as_i386_coff,as_i386_pecoff
|
|
as_i386_dbg,as_i386_coff,as_i386_pecoff
|
|
@@ -81,11 +79,6 @@ unit systems;
|
|
|
{ binary assembler writers, needed to test for -a }
|
|
{ binary assembler writers, needed to test for -a }
|
|
|
const
|
|
const
|
|
|
{$ifdef i386} i386asmcnt=11; {$else} i386asmcnt=0; {$endif}
|
|
{$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}
|
|
{$ifdef m68k} m68kasmcnt=5; {$else} m68kasmcnt=0; {$endif}
|
|
|
asmcnt=i386asmcnt+m68kasmcnt+1;
|
|
asmcnt=i386asmcnt+m68kasmcnt+1;
|
|
|
|
|
|
|
@@ -142,7 +135,6 @@ unit systems;
|
|
|
name : string[30];
|
|
name : string[30];
|
|
|
shortname : string[8];
|
|
shortname : string[8];
|
|
|
sharedlibext : string[10];
|
|
sharedlibext : string[10];
|
|
|
- sharedlibext,
|
|
|
|
|
staticlibext,
|
|
staticlibext,
|
|
|
sourceext,
|
|
sourceext,
|
|
|
pasext,
|
|
pasext,
|
|
@@ -168,7 +160,6 @@ unit systems;
|
|
|
allowdirect,
|
|
allowdirect,
|
|
|
externals,
|
|
externals,
|
|
|
needar : boolean;
|
|
needar : boolean;
|
|
|
- externals : boolean;
|
|
|
|
|
labelprefix : string[2];
|
|
labelprefix : string[2];
|
|
|
comment : string[2];
|
|
comment : string[2];
|
|
|
secnames : array[tsection] of string[20];
|
|
secnames : array[tsection] of string[20];
|
|
@@ -257,9 +248,6 @@ unit systems;
|
|
|
function set_string_asmmode(s:string;var t:tasmmode):boolean;
|
|
function set_string_asmmode(s:string;var t:tasmmode):boolean;
|
|
|
|
|
|
|
|
procedure InitSystems;
|
|
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
|
|
implementation
|
|
@@ -315,15 +303,6 @@ implementation
|
|
|
size_of_pointer : 4;
|
|
size_of_pointer : 4;
|
|
|
size_of_longint : 4;
|
|
size_of_longint : 4;
|
|
|
use_bound_instruction : false;
|
|
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
|
|
use_function_relative_addresses : true
|
|
|
),
|
|
),
|
|
|
(
|
|
(
|
|
@@ -387,15 +366,6 @@ implementation
|
|
|
size_of_pointer : 4;
|
|
size_of_pointer : 4;
|
|
|
size_of_longint : 4;
|
|
size_of_longint : 4;
|
|
|
use_bound_instruction : false;
|
|
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
|
|
use_function_relative_addresses : true
|
|
|
),
|
|
),
|
|
|
(
|
|
(
|
|
@@ -545,22 +515,6 @@ implementation
|
|
|
'.text','.data','.bss',
|
|
'.text','.data','.bss',
|
|
|
'','','','','','',
|
|
'','','','','','',
|
|
|
'.stab','.stabstr')
|
|
'.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;
|
|
id : as_i386_asw;
|
|
@@ -577,9 +531,6 @@ implementation
|
|
|
'.section .idata$2','.section .idata$4','.section .idata$5',
|
|
'.section .idata$2','.section .idata$4','.section .idata$5',
|
|
|
'.section .idata$6','.section .idata$7','.section .edata',
|
|
'.section .idata$6','.section .idata$7','.section .edata',
|
|
|
'.stab','.stabstr')
|
|
'.stab','.stabstr')
|
|
|
- externals : false;
|
|
|
|
|
- labelprefix : '.L';
|
|
|
|
|
- comment : '# '
|
|
|
|
|
)
|
|
)
|
|
|
,(
|
|
,(
|
|
|
id : as_i386_nasmcoff;
|
|
id : as_i386_nasmcoff;
|
|
@@ -595,9 +546,6 @@ implementation
|
|
|
'.text','.data','.bss',
|
|
'.text','.data','.bss',
|
|
|
'.idata2','.idata4','.idata5','.idata6','.idata7','.edata',
|
|
'.idata2','.idata4','.idata5','.idata6','.idata7','.edata',
|
|
|
'.stab','.stabstr')
|
|
'.stab','.stabstr')
|
|
|
- externals : true;
|
|
|
|
|
- labelprefix : 'L';
|
|
|
|
|
- comment : '; '
|
|
|
|
|
)
|
|
)
|
|
|
,(
|
|
,(
|
|
|
id : as_i386_nasmelf;
|
|
id : as_i386_nasmelf;
|
|
@@ -613,9 +561,6 @@ implementation
|
|
|
'.text','.data','.bss',
|
|
'.text','.data','.bss',
|
|
|
'.idata2','.idata4','.idata5','.idata6','.idata7','.edata',
|
|
'.idata2','.idata4','.idata5','.idata6','.idata7','.edata',
|
|
|
'.stab','.stabstr')
|
|
'.stab','.stabstr')
|
|
|
- externals : true;
|
|
|
|
|
- labelprefix : 'L';
|
|
|
|
|
- comment : '; '
|
|
|
|
|
)
|
|
)
|
|
|
,(
|
|
,(
|
|
|
id : as_i386_nasmobj;
|
|
id : as_i386_nasmobj;
|
|
@@ -631,9 +576,6 @@ implementation
|
|
|
'.text','.data','.bss',
|
|
'.text','.data','.bss',
|
|
|
'.idata2','.idata4','.idata5','.idata6','.idata7','.edata',
|
|
'.idata2','.idata4','.idata5','.idata6','.idata7','.edata',
|
|
|
'.stab','.stabstr')
|
|
'.stab','.stabstr')
|
|
|
- externals : true;
|
|
|
|
|
- labelprefix : 'L';
|
|
|
|
|
- comment : '; '
|
|
|
|
|
)
|
|
)
|
|
|
,(
|
|
,(
|
|
|
id : as_i386_tasm;
|
|
id : as_i386_tasm;
|
|
@@ -649,9 +591,6 @@ implementation
|
|
|
'CODE','DATA','BSS',
|
|
'CODE','DATA','BSS',
|
|
|
'','','','','','',
|
|
'','','','','','',
|
|
|
'','')
|
|
'','')
|
|
|
- externals : true;
|
|
|
|
|
- labelprefix : '.L';
|
|
|
|
|
- comment : '; '
|
|
|
|
|
)
|
|
)
|
|
|
,(
|
|
,(
|
|
|
id : as_i386_masm;
|
|
id : as_i386_masm;
|
|
@@ -682,9 +621,6 @@ implementation
|
|
|
'.text','.data','.bss',
|
|
'.text','.data','.bss',
|
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
|
'.stab','.stabstr')
|
|
'.stab','.stabstr')
|
|
|
- externals : true;
|
|
|
|
|
- labelprefix : '.L';
|
|
|
|
|
- comment : '; '
|
|
|
|
|
)
|
|
)
|
|
|
,(
|
|
,(
|
|
|
id : as_i386_coff;
|
|
id : as_i386_coff;
|
|
@@ -732,22 +668,6 @@ implementation
|
|
|
'.text','.data','.bss',
|
|
'.text','.data','.bss',
|
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
|
'.stab','.stabstr')
|
|
'.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;
|
|
id : as_m68k_gas;
|
|
@@ -763,9 +683,6 @@ implementation
|
|
|
'.text','.data','.bss',
|
|
'.text','.data','.bss',
|
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
|
'.stab','.stabstr')
|
|
'.stab','.stabstr')
|
|
|
- externals : false;
|
|
|
|
|
- labelprefix : '.L';
|
|
|
|
|
- comment : '| '
|
|
|
|
|
)
|
|
)
|
|
|
,(
|
|
,(
|
|
|
id : as_m68k_mit;
|
|
id : as_m68k_mit;
|
|
@@ -781,9 +698,6 @@ implementation
|
|
|
'.text','.data','.bss',
|
|
'.text','.data','.bss',
|
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
|
'.stab','.stabstr')
|
|
'.stab','.stabstr')
|
|
|
- externals : false;
|
|
|
|
|
- labelprefix : '.L';
|
|
|
|
|
- comment : '| '
|
|
|
|
|
)
|
|
)
|
|
|
,(
|
|
,(
|
|
|
id : as_m68k_mot;
|
|
id : as_m68k_mot;
|
|
@@ -799,9 +713,6 @@ implementation
|
|
|
'.text','.data','.bss',
|
|
'.text','.data','.bss',
|
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
|
'.stab','.stabstr')
|
|
'.stab','.stabstr')
|
|
|
- externals : false;
|
|
|
|
|
- labelprefix : '__L';
|
|
|
|
|
- comment : '| '
|
|
|
|
|
)
|
|
)
|
|
|
,(
|
|
,(
|
|
|
id : as_m68k_mpw;
|
|
id : as_m68k_mpw;
|
|
@@ -817,9 +728,6 @@ implementation
|
|
|
'.text','.data','.bss',
|
|
'.text','.data','.bss',
|
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
'.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
|
|
|
'.stab','.stabstr')
|
|
'.stab','.stabstr')
|
|
|
- externals : false;
|
|
|
|
|
- labelprefix : '__L';
|
|
|
|
|
- comment : '| '
|
|
|
|
|
)
|
|
)
|
|
|
{$endif m68k}
|
|
{$endif m68k}
|
|
|
);
|
|
);
|
|
@@ -1023,10 +931,6 @@ implementation
|
|
|
ar : ar_i386_ar;
|
|
ar : ar_i386_ar;
|
|
|
res : res_none;
|
|
res : res_none;
|
|
|
heapsize : 256*1024;
|
|
heapsize : 256*1024;
|
|
|
- assem : as_i386_o;
|
|
|
|
|
- ar : ar_i386_ar;
|
|
|
|
|
- res : res_none;
|
|
|
|
|
- heapsize : 2048*1024;
|
|
|
|
|
maxheapsize : 32768*1024;
|
|
maxheapsize : 32768*1024;
|
|
|
stacksize : 16384
|
|
stacksize : 16384
|
|
|
),
|
|
),
|
|
@@ -1052,10 +956,6 @@ implementation
|
|
|
ar : ar_i386_ar;
|
|
ar : ar_i386_ar;
|
|
|
res : res_none;
|
|
res : res_none;
|
|
|
heapsize : 256*1024;
|
|
heapsize : 256*1024;
|
|
|
- assem : as_i386_o;
|
|
|
|
|
- ar : ar_i386_ar;
|
|
|
|
|
- res : res_none;
|
|
|
|
|
- heapsize : 2048*1024;
|
|
|
|
|
maxheapsize : 32768*1024;
|
|
maxheapsize : 32768*1024;
|
|
|
stacksize : 16384
|
|
stacksize : 16384
|
|
|
),
|
|
),
|
|
@@ -1081,10 +981,6 @@ implementation
|
|
|
ar : ar_i386_ar;
|
|
ar : ar_i386_ar;
|
|
|
res : res_none;
|
|
res : res_none;
|
|
|
heapsize : 256*1024;
|
|
heapsize : 256*1024;
|
|
|
- assem : as_i386_o;
|
|
|
|
|
- ar : ar_i386_ar;
|
|
|
|
|
- res : res_none;
|
|
|
|
|
- heapsize : 2048*1024;
|
|
|
|
|
maxheapsize : 32768*1024;
|
|
maxheapsize : 32768*1024;
|
|
|
stacksize : 8192
|
|
stacksize : 8192
|
|
|
),
|
|
),
|
|
@@ -1107,7 +1003,6 @@ implementation
|
|
|
link : link_i386_ldos2;
|
|
link : link_i386_ldos2;
|
|
|
assem : as_i386_as_aout;
|
|
assem : as_i386_as_aout;
|
|
|
assemsrc : as_i386_as_aout;
|
|
assemsrc : as_i386_as_aout;
|
|
|
- assem : as_i386_o_aout;
|
|
|
|
|
ar : ar_i386_ar;
|
|
ar : ar_i386_ar;
|
|
|
res : res_none;
|
|
res : res_none;
|
|
|
heapsize : 256*1024;
|
|
heapsize : 256*1024;
|
|
@@ -1133,15 +1028,11 @@ implementation
|
|
|
link : link_i386_ldw;
|
|
link : link_i386_ldw;
|
|
|
assem : as_i386_pecoff;
|
|
assem : as_i386_pecoff;
|
|
|
assemsrc : as_i386_asw;
|
|
assemsrc : as_i386_asw;
|
|
|
- assem : as_i386_asw;
|
|
|
|
|
ar : ar_i386_arw;
|
|
ar : ar_i386_arw;
|
|
|
res : res_i386_windres;
|
|
res : res_i386_windres;
|
|
|
heapsize : 256*1024;
|
|
heapsize : 256*1024;
|
|
|
maxheapsize : 32*1024*1024;
|
|
maxheapsize : 32*1024*1024;
|
|
|
stacksize : 32*1024*1024
|
|
stacksize : 32*1024*1024
|
|
|
- heapsize : 2048*1024;
|
|
|
|
|
- maxheapsize : 32768*1024;
|
|
|
|
|
- stacksize : 32768
|
|
|
|
|
)
|
|
)
|
|
|
{$endif i386}
|
|
{$endif i386}
|
|
|
{$ifdef m68k}
|
|
{$ifdef m68k}
|
|
@@ -1164,7 +1055,6 @@ implementation
|
|
|
link : link_m68k_ld;
|
|
link : link_m68k_ld;
|
|
|
assem : as_m68k_as;
|
|
assem : as_m68k_as;
|
|
|
assemsrc : as_m68k_as;
|
|
assemsrc : as_m68k_as;
|
|
|
- assem : as_m68k_o;
|
|
|
|
|
ar : ar_m68k_ar;
|
|
ar : ar_m68k_ar;
|
|
|
res : res_none;
|
|
res : res_none;
|
|
|
heapsize : 128*1024;
|
|
heapsize : 128*1024;
|
|
@@ -1190,7 +1080,6 @@ implementation
|
|
|
link : link_m68k_ld;
|
|
link : link_m68k_ld;
|
|
|
assem : as_m68k_as;
|
|
assem : as_m68k_as;
|
|
|
assemsrc : as_m68k_as;
|
|
assemsrc : as_m68k_as;
|
|
|
- assem : as_m68k_o;
|
|
|
|
|
ar : ar_m68k_ar;
|
|
ar : ar_m68k_ar;
|
|
|
res : res_none;
|
|
res : res_none;
|
|
|
heapsize : 16*1024;
|
|
heapsize : 16*1024;
|
|
@@ -1241,7 +1130,6 @@ implementation
|
|
|
link : link_m68k_ld;
|
|
link : link_m68k_ld;
|
|
|
assem : as_m68k_as;
|
|
assem : as_m68k_as;
|
|
|
assemsrc : as_m68k_as;
|
|
assemsrc : as_m68k_as;
|
|
|
- assem : as_m68k_o;
|
|
|
|
|
ar : ar_m68k_ar;
|
|
ar : ar_m68k_ar;
|
|
|
res : res_none;
|
|
res : res_none;
|
|
|
heapsize : 128*1024;
|
|
heapsize : 128*1024;
|
|
@@ -1267,7 +1155,6 @@ implementation
|
|
|
link : link_m68k_ld;
|
|
link : link_m68k_ld;
|
|
|
assem : as_m68k_as;
|
|
assem : as_m68k_as;
|
|
|
assemsrc : as_m68k_as;
|
|
assemsrc : as_m68k_as;
|
|
|
- assem : as_m68k_o;
|
|
|
|
|
ar : ar_m68k_ar;
|
|
ar : ar_m68k_ar;
|
|
|
res : res_none;
|
|
res : res_none;
|
|
|
heapsize : 128*1024;
|
|
heapsize : 128*1024;
|
|
@@ -1532,7 +1419,6 @@ begin
|
|
|
set_source_os(os_i386_OS2);
|
|
set_source_os(os_i386_OS2);
|
|
|
if (OS_Mode = osDOS) or (OS_Mode = osDPMI)
|
|
if (OS_Mode = osDOS) or (OS_Mode = osDPMI)
|
|
|
then source_os.scriptext := '.bat';
|
|
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}
|
|
{OS/2 via EMX can be run under DOS as well}
|
|
|
{$else}
|
|
{$else}
|
|
|
{$ifdef LINUX}
|
|
{$ifdef LINUX}
|
|
@@ -1615,7 +1501,10 @@ begin
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.79 1999-06-02 13:25:34 hajny
|
|
|
|
|
|
|
+ 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
|
|
* fixed stripping symbols for OS/2
|
|
|
|
|
|
|
|
Revision 1.78 1999/05/31 20:34:00 peter
|
|
Revision 1.78 1999/05/31 20:34:00 peter
|
Tomas Hajny