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

Fixed Unix2Amiga path conversions for external asm script

Browse Source 
git-svn-id: trunk@1816 -
This commit is contained in:
Károly Balogh 2005-11-24 11:41:59 +00:00
parent 548a38ac21
commit 1432660c80
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/script.pas
View File

@ -277,6 +277,19 @@ end;
Amiga Asm Response
****************************************************************************}
{ * PathConv is required, since Amiga commands can't handle Unix-style
relative paths used by the compiler (KB) * }
{$IF DEFINED(MORPHOS) OR DEFINED(AMIGA)}
{ * PathConv is implemented in the system unit! * }
function PathConv(path: string): string; external name 'PATHCONV';
{$ELSE}
function PathConv(path: string): string;
begin
PathConv:=path;
end;
{$ENDIF}
Constructor TAsmScriptAmiga.Create (Const ScriptName : String);
begin
Inherited Create(ScriptName);
@ -292,7 +305,7 @@ begin
end;
Add(maybequoted(command)+' '+Options);
{ There is a problem here,
as allways return with a non zero error value PM }
as always return with a non zero error value PM }
Add('if error');
Add('why');
Add('skip asmend');
@ -316,13 +329,13 @@ end;
Procedure TAsmScriptAmiga.AddDeleteCommand (Const FileName : String);
begin
Add('Delete ' + MaybeQuoted (ScriptFixFileName(FileName)));
Add('Delete ' + PathConv(MaybeQuoted(ScriptFixFileName(FileName))) + ' All Quiet');
end;
Procedure TAsmScriptAmiga.AddDeleteDirCommand (Const FileName : String);
begin
Add('Delete ' + MaybeQuoted (ScriptFixFileName(FileName)));
Add('Delete ' + PathConv(MaybeQuoted(ScriptFixFileName(FileName))));
end;