From 222a41be7b5d3eba617c8f0530064911fff84cd8 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Sun, 28 Nov 2021 23:57:09 +0000
Subject: [PATCH]  Change declaration of DynLinkStr local variable of
 MakeExecutable method to ansitring to avoid short string overflows

---
 compiler/systems/t_amiga.pas      | 4 ++--
 compiler/systems/t_atari.pas      | 2 +-
 compiler/systems/t_beos.pas       | 4 ++--
 compiler/systems/t_bsd.pas        | 2 +-
 compiler/systems/t_haiku.pas      | 4 ++--
 compiler/systems/t_linux.pas      | 2 +-
 compiler/systems/t_macos.pas      | 4 ++--
 compiler/systems/t_sinclairql.pas | 2 +-
 compiler/systems/t_sunos.pas      | 2 +-
 9 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/compiler/systems/t_amiga.pas b/compiler/systems/t_amiga.pas
index 431dbdc69c..4349a4c9d5 100644
--- a/compiler/systems/t_amiga.pas
+++ b/compiler/systems/t_amiga.pas
@@ -350,7 +350,7 @@ var
   BinStr,
   CmdStr  : TCmdStr;
   StripStr: string[40];
-  DynLinkStr : string;
+  DynLinkStr : ansistring;
   GCSectionsStr : string;
   MapStr: string;
 begin
@@ -391,7 +391,7 @@ var
   BinStr,
   CmdStr  : TCmdStr;
   StripStr: string[40];
-  DynLinkStr : string;
+  DynLinkStr : ansistring;
   GCSectionsStr : string;
   MapStr: string;
 begin
diff --git a/compiler/systems/t_atari.pas b/compiler/systems/t_atari.pas
index ed93d9f72f..bc0f95011b 100644
--- a/compiler/systems/t_atari.pas
+++ b/compiler/systems/t_atari.pas
@@ -214,7 +214,7 @@ var
   BinStr,
   CmdStr  : TCmdStr;
   StripStr: string[40];
-  DynLinkStr : string;
+  DynLinkStr : ansistring;
   GCSectionsStr : string;
   FlagsStr : string;
   MapStr: string;
diff --git a/compiler/systems/t_beos.pas b/compiler/systems/t_beos.pas
index d942388fe3..b629c7b460 100644
--- a/compiler/systems/t_beos.pas
+++ b/compiler/systems/t_beos.pas
@@ -364,7 +364,7 @@ var
   cmdstr : TCmdStr;
   success,
   useshell : boolean;
-  DynLinkStr : string[60];
+  DynLinkStr : ansistring;
   GCSectionsStr,
   StaticStr,
   StripStr   : string[40];
@@ -426,7 +426,7 @@ var
   cmdstr,
   SoNameStr : TCmdStr;
   success : boolean;
-  DynLinkStr : string[60];
+  DynLinkStr : ansistring;
   StaticStr,
   StripStr   : string[40];
 
diff --git a/compiler/systems/t_bsd.pas b/compiler/systems/t_bsd.pas
index 99a4b8ca97..3d3c405f30 100644
--- a/compiler/systems/t_bsd.pas
+++ b/compiler/systems/t_bsd.pas
@@ -432,7 +432,7 @@ var
   ltostr,
   ordersymfile: TCmdStr;
   linkscript: TAsmScript;
-  DynLinkStr : string[60];
+  DynLinkStr : ansistring;
   GCSectionsStr,
   StaticStr,
   StripStr   : string[63];
diff --git a/compiler/systems/t_haiku.pas b/compiler/systems/t_haiku.pas
index 9860ecf342..1d3056e257 100644
--- a/compiler/systems/t_haiku.pas
+++ b/compiler/systems/t_haiku.pas
@@ -404,7 +404,7 @@ var
   cmdstr : TCmdStr;
   success,
   useshell : boolean;
-  DynLinkStr : string[60];
+  DynLinkStr : ansistring;
   GCSectionsStr,
   StaticStr,
   StripStr   : string[40];
@@ -466,7 +466,7 @@ var
   cmdstr,
   SoNameStr : TCmdStr;
   success : boolean;
-  DynLinkStr : string[60];
+  DynLinkStr : ansistring;
   StaticStr,
   StripStr   : string[40];
 
diff --git a/compiler/systems/t_linux.pas b/compiler/systems/t_linux.pas
index a2d48b7641..83020aab33 100644
--- a/compiler/systems/t_linux.pas
+++ b/compiler/systems/t_linux.pas
@@ -738,7 +738,7 @@ var
   mapstr,
   ltostr  : TCmdStr;
   success : boolean;
-  DynLinkStr : string;
+  DynLinkStr : ansistring;
   GCSectionsStr,
   StaticStr,
   StripStr   : string[40];
diff --git a/compiler/systems/t_macos.pas b/compiler/systems/t_macos.pas
index 965e426e23..306d7f268d 100644
--- a/compiler/systems/t_macos.pas
+++ b/compiler/systems/t_macos.pas
@@ -200,7 +200,7 @@ var
   binstr,
   cmdstr  : TCmdStr;
   success : boolean;
-  DynLinkStr : string[60];
+  DynLinkStr : ansistring;
   StaticStr,
   StripStr   : string[40];
 begin
@@ -389,7 +389,7 @@ var
   BinStr,
   CmdStr  : TCmdStr;
   StripStr: string[40];
-  DynLinkStr : string;
+  DynLinkStr : ansistring;
   GCSectionsStr : string;
   ExeName: string;
 begin
diff --git a/compiler/systems/t_sinclairql.pas b/compiler/systems/t_sinclairql.pas
index 01947209a0..f5bbeaeb70 100644
--- a/compiler/systems/t_sinclairql.pas
+++ b/compiler/systems/t_sinclairql.pas
@@ -243,7 +243,7 @@ var
   BinStr,
   CmdStr  : TCmdStr;
   StripStr: string[40];
-  DynLinkStr : string;
+  DynLinkStr : ansistring;
   GCSectionsStr : string;
   FlagsStr : string;
   QLFlagsStr: string;
diff --git a/compiler/systems/t_sunos.pas b/compiler/systems/t_sunos.pas
index 1e9cde25a8..b3dfe17c72 100644
--- a/compiler/systems/t_sunos.pas
+++ b/compiler/systems/t_sunos.pas
@@ -457,7 +457,7 @@ var
   s, linkstr,
   cmdstr  : TCmdStr;
   success : boolean;
-  DynLinkStr : string[60];
+  DynLinkStr : ansistring;
   StaticStr, RedirectStr,
   StripStr   : string[40];
 begin