paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 15:31:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merge adding of --32 or --64 to command line assembler

Browse Source 
git-svn-id: branches/fixes_2_0@2326 -
This commit is contained in:
daniel 2006-01-22 14:32:47 +00:00
parent f627311980
commit b990e72c60
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/assemble.pas
View File

@ -570,6 +570,13 @@ Implementation
end;
end;
{$ifdef i386}
const format_option='--32';
{$else}{$ifdef x86_64}
const format_option='--64';
{$else}
const format_option='';
{$endif}{$endif}
procedure TExternalAssembler.AsmCreate(Aplace:tcutplace);
begin
@ -579,7 +586,7 @@ Implementation
if DoPipe then
begin
Message1(exec_i_assembling_pipe,asmfile);
POpen(outfile,'as -o '+objfile,'W');
POpen(outfile,'as '+format_option+' -o '+objfile,'W');
end
else
{$endif}

4
compiler/x86/agx86att.pas
View File

@ -240,7 +240,7 @@ interface
id : as_gas;
idtxt : 'AS';
asmbin : 'as';
asmcmd : '-o $OBJ $ASM';
asmcmd : '--64 -o $OBJ $ASM';
supported_target : system_any;
flags : [af_allowdirect,af_needar,af_smartlink_sections,af_supports_dwarf];
labelprefix : '.L';
@ -252,7 +252,7 @@ interface
id : as_gas;
idtxt : 'AS';
asmbin : 'as';
asmcmd : '-o $OBJ $ASM';
asmcmd : '--32 -o $OBJ $ASM';
supported_target : system_any;
flags : [af_allowdirect,af_needar,af_smartlink_sections];
labelprefix : '.L';