Merged revisions 4073 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r4073 | karoly | 2006-07-02 12:40:10 +0200 (Sun, 02 Jul 2006) | 2 lines
  
  + fixed scripts to have proper deletedir commands
........

git-svn-id: branches/fixes_2_0@4077 -

compiler/link.pas

@@ -671,7 +671,7 @@ begin
    else
     begin
       AsmRes.AddDeleteCommand(FixFileName(smartpath+current_module.asmprefix^+'*'+target_info.objext));
-      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;