+ fixed scripts to have proper deletedir commands

git-svn-id: trunk@4073 -

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;

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;