Ver Fonte

+ fixed scripts to have proper deletedir commands

git-svn-id: trunk@4073 -
Károly Balogh há 19 anos atrás
pai
commit
cf3b4ec3a3
2 ficheiros alterados com 3 adições e 3 exclusões
  1. 1 1
      compiler/link.pas
  2. 2 2
      compiler/script.pas

+ 1 - 1
compiler/link.pas

@@ -765,7 +765,7 @@ begin
       AsmRes.AddDeleteCommand(FixFileName(smartpath+current_module.asmprefix^+'*'+target_info.objext));
       if scripted_ar then
         AsmRes.AddDeleteCommand(scriptfile);
-      AsmRes.Add('rmdir '+smartpath);
+      AsmRes.AddDeleteDirCommand(smartpath);
     end;
   MakeStaticLibrary:=success;
 end;

+ 2 - 2
compiler/script.pas

@@ -329,13 +329,13 @@ end;
 
 Procedure TAsmScriptAmiga.AddDeleteCommand (Const FileName : String);
 begin
- Add('Delete ' + PathConv(MaybeQuoted(ScriptFixFileName(FileName))) + ' All Quiet');
+ Add('Delete ' + PathConv(MaybeQuoted(ScriptFixFileName(FileName))) + ' Quiet');
 end;
 
 
 Procedure TAsmScriptAmiga.AddDeleteDirCommand (Const FileName : String);
 begin
- Add('Delete ' + PathConv(MaybeQuoted(ScriptFixFileName(FileName))));
+ Add('Delete ' + PathConv(MaybeQuoted(ScriptFixFileName(FileName))) + ' All Quiet');
 end;