paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:46:12 +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';
asmcmd : '-f coff -o $OBJ $ASM';
supported_target : system_i386_go32v2;
flags : [af_allowdirect,af_needar];
flags : [af_allowdirect,af_needar,af_no_debug];
labelprefix : '..@';
comment : '; ';
);
@ -845,7 +845,7 @@ interface
asmbin : 'nasm';
asmcmd : '-f win32 -o $OBJ $ASM';
supported_target : system_i386_win32;
flags : [af_allowdirect,af_needar];
flags : [af_allowdirect,af_needar,af_no_debug];
labelprefix : '..@';
comment : '; ';
);
@ -857,7 +857,7 @@ interface
asmbin : 'nasm';
asmcmd : '-f obj -o $OBJ $ASM';
supported_target : system_any; { what should I write here ?? }
flags : [af_allowdirect,af_needar];
flags : [af_allowdirect,af_needar,af_no_debug];
labelprefix : '..@';
comment : '; ';
);
@ -869,7 +869,7 @@ interface
asmbin : 'nasm';
asmcmd : '-f win32 -o $OBJ $ASM';
supported_target : system_i386_wdosx;
flags : [af_allowdirect,af_needar];
flags : [af_allowdirect,af_needar,af_no_debug];
labelprefix : '..@';
comment : '; ';
);
@ -882,7 +882,7 @@ interface
asmbin : 'nasm';
asmcmd : '-f elf -o $OBJ $ASM';
supported_target : system_i386_linux;
flags : [af_allowdirect,af_needar];
flags : [af_allowdirect,af_needar,af_no_debug];
labelprefix : '..@';
comment : '; ';
);
@ -894,7 +894,7 @@ interface
asmbin : 'nasm';
asmcmd : '-f elf -o $OBJ $ASM';
supported_target : system_i386_beos;
flags : [af_allowdirect,af_needar];
flags : [af_allowdirect,af_needar,af_no_debug];
labelprefix : '..@';
comment : '; ';
);

16
compiler/options.pas
View File

@ -2220,10 +2220,6 @@ begin
objectsearchpath.AddList(unitsearchpath,false);
librarysearchpath.AddList(unitsearchpath,false);
{ maybe override debug info format }
if (paratargetdbg<>dbg_none) then
set_target_dbg(paratargetdbg);
{ maybe override assembler }
if (paratargetasm<>as_none) then
begin
@ -2233,8 +2229,20 @@ begin
set_target_asm(target_info.assemextern);
Message1(option_asm_forced,target_asm.idtxt);
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;
{ 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 }
if (cs_asm_leave in init_settings.globalswitches) and
(af_outputbinary in target_asm.flags) then