From bee5b615cf37af44f0eff6fa75ede1939b7bb696 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 4 Jan 2004 21:18:10 +0000
Subject: [PATCH]     + as_darwin assembler type (labels start with L)     *
 never generate register->number mappings for Darwin     * always use real
 register names for Darwin

---
 compiler/powerpc/itcpugas.pas | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/compiler/powerpc/itcpugas.pas b/compiler/powerpc/itcpugas.pas
index 065ae49d38..32790fdc29 100644
--- a/compiler/powerpc/itcpugas.pas
+++ b/compiler/powerpc/itcpugas.pas
@@ -85,7 +85,7 @@ implementation
 
     uses
       globtype,globals,
-      cutils,verbose;
+      cutils,verbose, systems;
 
     const
       gas_regname_table : array[tregisterindex] of string[7] = (
@@ -132,7 +132,8 @@ implementation
       begin
         p:=findreg_by_number(r);
         if p<>0 then
-          if (cs_create_smart in aktmoduleswitches) then
+          if (cs_create_smart in aktmoduleswitches) and
+             (target_info.system <> system_powerpc_darwin) then
             result:=gas_regname_short_table[p]
           else
             result:=gas_regname_table[p]
@@ -143,7 +144,12 @@ implementation
 end.
 {
   $Log$
-  Revision 1.3  2003-12-10 22:19:27  florian
+  Revision 1.4  2004-01-04 21:18:10  jonas
+      + as_darwin assembler type (labels start with L)
+      * never generate register->number mappings for Darwin
+      * always use real register names for Darwin
+
+  Revision 1.3  2003/12/10 22:19:27  florian
     + short gas register names for smartlinking added
 
   Revision 1.2  2003/11/15 19:00:10  florian