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

Fixed do_erase and do_rename Unix2Amiga path conversions

Browse Source 
git-svn-id: trunk@1815 -
This commit is contained in:
Károly Balogh 2005-11-24 11:40:02 +00:00
parent f280832cc6
commit 548a38ac21
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/morphos/sysfile.inc
View File

@ -172,16 +172,25 @@ begin
end; end;
procedure do_erase(p : pchar); procedure do_erase(p : pchar);
var
tmpStr: array[0..255] of Char;
begin begin
tmpStr:=PathConv(strpas(p))+#0;
checkCTRLC; checkCTRLC;
if not dosDeleteFile(p) then if not dosDeleteFile(@tmpStr) then
dosError2InOut(IoErr); dosError2InOut(IoErr);
end; end;
procedure do_rename(p1,p2 : pchar); procedure do_rename(p1,p2 : pchar);
{ quite stack-effective code, huh? :) damn path conversions... (KB) }
var
tmpStr1: array[0..255] of Char;
tmpStr2: array[0..255] of Char;
begin begin
tmpStr1:=PathConv(strpas(p1))+#0;
tmpStr2:=PathConv(strpas(p2))+#0;
checkCTRLC; checkCTRLC;
if not dosRename(p1,p2) then if not dosRename(@tmpStr1,@tmpStr2) then
dosError2InOut(IoErr); dosError2InOut(IoErr);
end; end;