* used gar instead of ar on solaris

git-svn-id: trunk@4393 -

compiler/link.pas

@@ -1107,7 +1107,15 @@ end;
             arfinishcmd : ''
           );
 
+      ar_gnu_gar_info : tarinfo =
+          ( id          : ar_gnu_gar;
+            arcmd       : 'gar qS $LIB $FILES';
+            arfinishcmd : 'gar s $LIB'
+          );
+
+
 initialization
   RegisterAr(ar_gnu_ar_info);
   RegisterAr(ar_gnu_ar_scripted_info);
+  RegisterAr(ar_gnu_gar_info);
 end.

compiler/systems.pas

@@ -157,6 +157,7 @@ interface
             ,ar_gnu_ar
             ,ar_mpw_ar
             ,ar_gnu_ar_scripted
+            ,ar_gnu_gar
        );
 
        tres = (res_none

compiler/systems/i_sunos.pas

@@ -61,7 +61,7 @@ unit i_sunos;
             assemextern  : as_gas;
             link         : nil;
             linkextern   : nil;
-            ar           : ar_gnu_ar;
+            ar           : ar_gnu_gar;
             res          : res_none;
             dbg          : dbg_stabs;
             script       : script_unix;
@@ -119,7 +119,7 @@ unit i_sunos;
             assemextern  : as_gas;
             link         : nil;
             linkextern   : nil;
-            ar           : ar_gnu_ar;
+            ar           : ar_gnu_gar;
             res          : res_none;
             dbg          : dbg_stabs;
             script       : script_unix;