paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 04:17:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Add --32 or --64 to to ensure functionality of i386 compiler on x64_64 OSes.

Browse Source 
git-svn-id: trunk@2325 -
This commit is contained in:
daniel 2006-01-22 14:29:07 +00:00
parent b06643a1eb
commit 6ba68594be
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/assemble.pas
View File

@ -554,6 +554,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
@ -563,7 +570,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}