paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 19:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Change declaration of DynLinkStr local variable of MakeExecutable method to ansitring to avoid short string overflows

Browse Source
This commit is contained in:
Pierre Muller 2021-11-28 23:57:09 +00:00
parent 2de72c8541
commit 222a41be7b
9 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/systems/t_amiga.pas
View File

@ -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

2
compiler/systems/t_atari.pas
View File

@ -214,7 +214,7 @@ var
BinStr,
CmdStr : TCmdStr;
StripStr: string[40];
DynLinkStr : string;
DynLinkStr : ansistring;
GCSectionsStr : string;
FlagsStr : string;
MapStr: string;

4
compiler/systems/t_beos.pas
View File

@ -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];

2
compiler/systems/t_bsd.pas
View File

@ -432,7 +432,7 @@ var
ltostr,
ordersymfile: TCmdStr;
linkscript: TAsmScript;
DynLinkStr : string[60];
DynLinkStr : ansistring;
GCSectionsStr,
StaticStr,
StripStr : string[63];

4
compiler/systems/t_haiku.pas
View File

@ -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];

2
compiler/systems/t_linux.pas
View File

@ -738,7 +738,7 @@ var
mapstr,
ltostr : TCmdStr;
success : boolean;
DynLinkStr : string;
DynLinkStr : ansistring;
GCSectionsStr,
StaticStr,
StripStr : string[40];

4
compiler/systems/t_macos.pas
View File

@ -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

2
compiler/systems/t_sinclairql.pas
View File

@ -243,7 +243,7 @@ var
BinStr,
CmdStr : TCmdStr;
StripStr: string[40];
DynLinkStr : string;
DynLinkStr : ansistring;
GCSectionsStr : string;
FlagsStr : string;
QLFlagsStr: string;

2
compiler/systems/t_sunos.pas
View File

@ -457,7 +457,7 @@ var
s, linkstr,
cmdstr : TCmdStr;
success : boolean;
DynLinkStr : string[60];
DynLinkStr : ansistring;
StaticStr, RedirectStr,
StripStr : string[40];
begin