From 8e27e760cec530ff73cf0179f46d1adb02d9488d Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 3 Nov 1999 23:43:45 +0000
Subject: [PATCH]   * fixed ar commands

---
 compiler/systems.pas | 21 +++++++++------------
 1 file changed, 9 insertions(+), 12 deletions(-)

diff --git a/compiler/systems.pas b/compiler/systems.pas
index c1108e9d41..ec91996e3d 100644
--- a/compiler/systems.pas
+++ b/compiler/systems.pas
@@ -171,7 +171,6 @@ unit systems;
 
        tarinfo = packed record
           id      : tar;
-          arbin   : string[8];
           arcmd   : string[50];
        end;
 
@@ -803,34 +802,29 @@ implementation
 {$ifdef i386}
           ,(
             id    : ar_i386_ar;
-            arbin : 'ar';
-            arcmd : 'rs $LIB $FILES'
+            arcmd : 'ar rs $LIB $FILES'
           ),
           (
             id    : ar_i386_arw;
-            arbin : 'arw';
-            arcmd : 'rs $LIB $FILES'
+            arcmd : 'arw rs $LIB $FILES'
           )
 {$endif i386}
 {$ifdef m68k}
           ,(
             id    : ar_m68k_ar;
-            arbin : 'ar';
-            arcmd : 'rs $LIB $FILES'
+            arcmd : 'ar rs $LIB $FILES'
           )
 {$endif m68k}
 {$ifdef alpha}
           ,(
             id    : ar_alpha_ar;
-            arbin : 'ar';
-            arcmd : 'rs $LIB $FILES'
+            arcmd : 'ar rs $LIB $FILES'
           )
 {$endif}
 {$ifdef powerpc}
           ,(
             id    : ar_powerpc_ar;
-            arbin : 'ar';
-            arcmd : 'rs $LIB $FILES'
+            arcmd : 'ar rs $LIB $FILES'
           )
 {$endif}
           );
@@ -1515,7 +1509,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.95  1999-10-21 14:29:37  peter
+  Revision 1.96  1999-11-03 23:43:45  peter
+    * fixed ar commands
+
+  Revision 1.95  1999/10/21 14:29:37  peter
     * redesigned linker object
     + library support for linux (only procedures can be exported)