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

+ use new assembler flag: af_no_debug

Browse Source 
git-svn-id: trunk@6196 -
This commit is contained in:
pierre 2007-01-26 05:06:37 +00:00
parent 99969eb3c5
commit 4f35aabebb
2 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/i386/ag386nsm.pas
View File

@ -833,7 +833,7 @@ interface
asmbin : 'nasm'; asmbin : 'nasm';
asmcmd : '-f coff -o $OBJ $ASM'; asmcmd : '-f coff -o $OBJ $ASM';
supported_target : system_i386_go32v2; supported_target : system_i386_go32v2;
flags : [af_allowdirect,af_needar]; flags : [af_allowdirect,af_needar,af_no_debug];
labelprefix : '..@'; labelprefix : '..@';
comment : '; '; comment : '; ';
); );
@ -845,7 +845,7 @@ interface
asmbin : 'nasm'; asmbin : 'nasm';
asmcmd : '-f win32 -o $OBJ $ASM'; asmcmd : '-f win32 -o $OBJ $ASM';
supported_target : system_i386_win32; supported_target : system_i386_win32;
flags : [af_allowdirect,af_needar]; flags : [af_allowdirect,af_needar,af_no_debug];
labelprefix : '..@'; labelprefix : '..@';
comment : '; '; comment : '; ';
); );
@ -857,7 +857,7 @@ interface
asmbin : 'nasm'; asmbin : 'nasm';
asmcmd : '-f obj -o $OBJ $ASM'; asmcmd : '-f obj -o $OBJ $ASM';
supported_target : system_any; { what should I write here ?? } supported_target : system_any; { what should I write here ?? }
flags : [af_allowdirect,af_needar]; flags : [af_allowdirect,af_needar,af_no_debug];
labelprefix : '..@'; labelprefix : '..@';
comment : '; '; comment : '; ';
); );
@ -869,7 +869,7 @@ interface
asmbin : 'nasm'; asmbin : 'nasm';
asmcmd : '-f win32 -o $OBJ $ASM'; asmcmd : '-f win32 -o $OBJ $ASM';
supported_target : system_i386_wdosx; supported_target : system_i386_wdosx;
flags : [af_allowdirect,af_needar]; flags : [af_allowdirect,af_needar,af_no_debug];
labelprefix : '..@'; labelprefix : '..@';
comment : '; '; comment : '; ';
); );
@ -882,7 +882,7 @@ interface
asmbin : 'nasm'; asmbin : 'nasm';
asmcmd : '-f elf -o $OBJ $ASM'; asmcmd : '-f elf -o $OBJ $ASM';
supported_target : system_i386_linux; supported_target : system_i386_linux;
flags : [af_allowdirect,af_needar]; flags : [af_allowdirect,af_needar,af_no_debug];
labelprefix : '..@'; labelprefix : '..@';
comment : '; '; comment : '; ';
); );
@ -894,7 +894,7 @@ interface
asmbin : 'nasm'; asmbin : 'nasm';
asmcmd : '-f elf -o $OBJ $ASM'; asmcmd : '-f elf -o $OBJ $ASM';
supported_target : system_i386_beos; supported_target : system_i386_beos;
flags : [af_allowdirect,af_needar]; flags : [af_allowdirect,af_needar,af_no_debug];
labelprefix : '..@'; labelprefix : '..@';
comment : '; '; comment : '; ';
); );

16
compiler/options.pas
View File

@ -2220,10 +2220,6 @@ begin
objectsearchpath.AddList(unitsearchpath,false); objectsearchpath.AddList(unitsearchpath,false);
librarysearchpath.AddList(unitsearchpath,false); librarysearchpath.AddList(unitsearchpath,false);
{ maybe override debug info format }
if (paratargetdbg<>dbg_none) then
set_target_dbg(paratargetdbg);
{ maybe override assembler } { maybe override assembler }
if (paratargetasm<>as_none) then if (paratargetasm<>as_none) then
begin begin
@ -2233,7 +2229,19 @@ begin
set_target_asm(target_info.assemextern); set_target_asm(target_info.assemextern);
Message1(option_asm_forced,target_asm.idtxt); Message1(option_asm_forced,target_asm.idtxt);
end; end;
if (af_no_debug in asminfos[paratargetasm]^.flags) and
(paratargetdbg<>dbg_none) then
begin
Message1(option_confict_asm_debug,
asminfos[paratargetasm]^.idtxt);
paratargetdbg:=dbg_none;
exclude(init_settings.moduleswitches,cs_debuginfo);
end; end;
end;
{ maybe override debug info format }
if (paratargetdbg<>dbg_none) then
set_target_dbg(paratargetdbg);
{ switch assembler if it's binary and we got -a on the cmdline } { switch assembler if it's binary and we got -a on the cmdline }
if (cs_asm_leave in init_settings.globalswitches) and if (cs_asm_leave in init_settings.globalswitches) and