From 20a22cf3d6c2c61d7841b4821b6ba8666a23aa70 Mon Sep 17 00:00:00 2001
From: herman ten brugge <hermantenbrugge@home.nl>
Date: Wed, 28 Dec 2022 07:38:39 +0100
Subject: [PATCH] Fix tcc -ar c symbol header size

tcc -ar t failed sometimes because the header size was not correct.
---
 tcctools.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tcctools.c b/tcctools.c
index 606855bf..cc93b4c9 100644
--- a/tcctools.c
+++ b/tcctools.c
@@ -70,11 +70,11 @@ ST_FUNC int tcc_tool_ar(TCCState *s1, int argc, char **argv)
 {
     static const ArHdr arhdr_init = {
         "/               ",
-        "            ",
+        "0           ",
         "0     ",
         "0     ",
         "0       ",
-        "          ",
+        "0         ",
         ARFMAG
         };
 
@@ -308,7 +308,7 @@ finish:
         ret = 0;
         goto the_end;
     }
-    sprintf(stmp, "%-10d", (int)(strpos + (funccnt+1) * sizeof(int)));
+    sprintf(stmp, "%-10d", (int)(strpos + (funccnt+1) * sizeof(int)) + fpos);
     memcpy(&arhdr.ar_size, stmp, 10);
     fwrite(&arhdr, sizeof(arhdr), 1, fh);
     afpos[0] = le2belong(funccnt);