paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 05:18:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* quote assembly filenames in Unix script, fixes sh errors with smartlinked small filenames like unitname(1), etc

Browse Source 
git-svn-id: trunk@37917 -
This commit is contained in:
Károly Balogh 2018-01-06 10:17:18 +00:00
parent 75158d02ca
commit 3dda26b3b5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cscript.pas
View File

@ -359,9 +359,9 @@ end;
Procedure TAsmScriptUnix.AddAsmCommand (Const Command, Options,FileName : TCmdStr); Procedure TAsmScriptUnix.AddAsmCommand (Const Command, Options,FileName : TCmdStr);
begin begin
if FileName<>'' then if FileName<>'' then
Add('echo Assembling '+ScriptFixFileName(FileName)); Add('echo Assembling '+maybequoted(ScriptFixFileName(FileName)));
Add(maybequoted(command)+' '+Options); Add(maybequoted(command)+' '+Options);
Add('if [ $? != 0 ]; then DoExitAsm '+ScriptFixFileName(FileName)+'; fi'); Add('if [ $? != 0 ]; then DoExitAsm '+maybequoted(ScriptFixFileName(FileName))+'; fi');
end; end;