From 6ba68594be2ed611cabe596b19825c96637caff2 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sun, 22 Jan 2006 14:29:07 +0000
Subject: [PATCH]   * Add --32 or --64 to to ensure functionality of i386
 compiler on x64_64 OSes.

git-svn-id: trunk@2325 -
---
 compiler/assemble.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/compiler/assemble.pas b/compiler/assemble.pas
index 3c8e87962b..0bfc881eee 100644
--- a/compiler/assemble.pas
+++ b/compiler/assemble.pas
@@ -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}