paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 19:05:54 +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, BinStr,
CmdStr : TCmdStr; CmdStr : TCmdStr;
StripStr: string[40]; StripStr: string[40];
DynLinkStr : string; DynLinkStr : ansistring;
GCSectionsStr : string; GCSectionsStr : string;
MapStr: string; MapStr: string;
begin begin
@ -391,7 +391,7 @@ var
BinStr, BinStr,
CmdStr : TCmdStr; CmdStr : TCmdStr;
StripStr: string[40]; StripStr: string[40];
DynLinkStr : string; DynLinkStr : ansistring;
GCSectionsStr : string; GCSectionsStr : string;
MapStr: string; MapStr: string;
begin begin

2
compiler/systems/t_atari.pas
View File

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

4
compiler/systems/t_beos.pas
View File

@ -364,7 +364,7 @@ var
cmdstr : TCmdStr; cmdstr : TCmdStr;
success, success,
useshell : boolean; useshell : boolean;
DynLinkStr : string[60]; DynLinkStr : ansistring;
GCSectionsStr, GCSectionsStr,
StaticStr, StaticStr,
StripStr : string[40]; StripStr : string[40];
@ -426,7 +426,7 @@ var
cmdstr, cmdstr,
SoNameStr : TCmdStr; SoNameStr : TCmdStr;
success : boolean; success : boolean;
DynLinkStr : string[60]; DynLinkStr : ansistring;
StaticStr, StaticStr,
StripStr : string[40]; StripStr : string[40];

2
compiler/systems/t_bsd.pas
View File

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

4
compiler/systems/t_haiku.pas
View File

@ -404,7 +404,7 @@ var
cmdstr : TCmdStr; cmdstr : TCmdStr;
success, success,
useshell : boolean; useshell : boolean;
DynLinkStr : string[60]; DynLinkStr : ansistring;
GCSectionsStr, GCSectionsStr,
StaticStr, StaticStr,
StripStr : string[40]; StripStr : string[40];
@ -466,7 +466,7 @@ var
cmdstr, cmdstr,
SoNameStr : TCmdStr; SoNameStr : TCmdStr;
success : boolean; success : boolean;
DynLinkStr : string[60]; DynLinkStr : ansistring;
StaticStr, StaticStr,
StripStr : string[40]; StripStr : string[40];

2
compiler/systems/t_linux.pas
View File

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

4
compiler/systems/t_macos.pas
View File

@ -200,7 +200,7 @@ var
binstr, binstr,
cmdstr : TCmdStr; cmdstr : TCmdStr;
success : boolean; success : boolean;
DynLinkStr : string[60]; DynLinkStr : ansistring;
StaticStr, StaticStr,
StripStr : string[40]; StripStr : string[40];
begin begin
@ -389,7 +389,7 @@ var
BinStr, BinStr,
CmdStr : TCmdStr; CmdStr : TCmdStr;
StripStr: string[40]; StripStr: string[40];
DynLinkStr : string; DynLinkStr : ansistring;
GCSectionsStr : string; GCSectionsStr : string;
ExeName: string; ExeName: string;
begin begin

2
compiler/systems/t_sinclairql.pas
View File

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

2
compiler/systems/t_sunos.pas
View File

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