From 324deca817a97a8513ffe60bda659485b739a734 Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Sun, 16 Aug 2020 17:08:00 +0000
Subject: [PATCH] * wlib: Explicitly specify the smallest possible record align
 to reduce the size of .a files.

git-svn-id: trunk@46462 -
---
 compiler/link.pas    | 6 +++---
 compiler/systems.pas | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/compiler/link.pas b/compiler/link.pas
index f7d52d7e7d..6a1278e645 100644
--- a/compiler/link.pas
+++ b/compiler/link.pas
@@ -882,7 +882,7 @@ Implementation
               if (target_ar.id in [ar_gnu_ar_scripted,ar_sdcc_sdar_scripted]) then
                 writeln(script, 'CREATE ' + current_module.staticlibfilename)
               else { wlib case }
-                writeln(script,'-q -fo -c -b '+
+                writeln(script,'-q -p=16 -fo -c -b '+
                   maybequoted(current_module.staticlibfilename));
               current := TCmdStrListItem(SmartLinkOFiles.First);
               while current <> nil do
@@ -1743,8 +1743,8 @@ Implementation
       ar_watcom_wlib_omf_info : tarinfo =
           ( id          : ar_watcom_wlib_omf;
             addfilecmd  : '+';
-            arfirstcmd  : 'wlib -q -fo -c -b -n -o=$OUTPUTLIB $LIB $FILES';
-            arcmd       : 'wlib -q -fo -c -b -o=$OUTPUTLIB $LIB $FILES';
+            arfirstcmd  : 'wlib -q -p=16 -fo -c -b -n -o=$OUTPUTLIB $LIB $FILES';
+            arcmd       : 'wlib -q -p=16 -fo -c -b -o=$OUTPUTLIB $LIB $FILES';
             arfinishcmd : ''
           );
 
diff --git a/compiler/systems.pas b/compiler/systems.pas
index d068ee7506..b7795df192 100644
--- a/compiler/systems.pas
+++ b/compiler/systems.pas
@@ -100,8 +100,8 @@ interface
        tarinfo = record
           id          : tar;
           addfilecmd  : string[10];
-          arfirstcmd  : string[50];
-          arcmd       : string[50];
+          arfirstcmd  : string[60];
+          arcmd       : string[60];
           arfinishcmd : string[11];
        end;