paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 21:11:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed warning in t_embed

Browse Source 
git-svn-id: branches/z80@44819 -
This commit is contained in:
nickysn 2020-04-19 01:40:16 +00:00
parent 87eedbc264
commit 4b11433d63
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/systems/t_embed.pas
View File

@ -1992,7 +1992,7 @@ function TlinkerEmbedded_SdccSdld.MakeExecutable: boolean;
mapstr: TCmdStr; mapstr: TCmdStr;
success : boolean; success : boolean;
StaticStr, StaticStr,
GCSectionsStr, // GCSectionsStr,
DynLinkStr, DynLinkStr,
StripStr, StripStr,
FixedExeFileName: string; FixedExeFileName: string;
@ -2025,7 +2025,7 @@ function TlinkerEmbedded_SdccSdld.MakeExecutable: boolean;
Replace(cmdstr,'$STATIC',StaticStr); Replace(cmdstr,'$STATIC',StaticStr);
Replace(cmdstr,'$STRIP',StripStr); Replace(cmdstr,'$STRIP',StripStr);
Replace(cmdstr,'$MAP',mapstr); Replace(cmdstr,'$MAP',mapstr);
Replace(cmdstr,'$GCSECTIONS',GCSectionsStr); // Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
Replace(cmdstr,'$DYNLINK',DynLinkStr); Replace(cmdstr,'$DYNLINK',DynLinkStr);
end end
else else
@ -2035,7 +2035,7 @@ function TlinkerEmbedded_SdccSdld.MakeExecutable: boolean;
Replace(cmdstr,'$STATIC',StaticStr); Replace(cmdstr,'$STATIC',StaticStr);
Replace(cmdstr,'$STRIP',StripStr); Replace(cmdstr,'$STRIP',StripStr);
Replace(cmdstr,'$MAP',mapstr); Replace(cmdstr,'$MAP',mapstr);
Replace(cmdstr,'$GCSECTIONS',GCSectionsStr); // Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
Replace(cmdstr,'$DYNLINK',DynLinkStr); Replace(cmdstr,'$DYNLINK',DynLinkStr);
end; end;
success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false); success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false);