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

* fixed compilation

Browse Source
This commit is contained in:
Károly Balogh 2005-01-30 02:36:14 +00:00
parent 64623b5d5a
commit 7791447bef
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/morphos/sysutils.pp
View File

@ -144,7 +144,7 @@ begin
FileSeek:=-1; FileSeek:=-1;
if (Handle<=0) then exit; if (Handle<=0) then exit;
case Origin do case Origin of
fsFromBeginning: seekMode:=OFFSET_BEGINNING; fsFromBeginning: seekMode:=OFFSET_BEGINNING;
fsFromCurrent : seekMode:=OFFSET_CURRENT; fsFromCurrent : seekMode:=OFFSET_CURRENT;
fsFromEnd : seekMode:=OFFSET_END; fsFromEnd : seekMode:=OFFSET_END;
@ -200,7 +200,7 @@ begin
tmpOldName:=PathConv(OldName)+#0; tmpOldName:=PathConv(OldName)+#0;
tmpNewName:=PathConv(NewName)+#0; tmpNewName:=PathConv(NewName)+#0;
RenameFile:=Rename(tmpOldName, tmpNewName); RenameFile:=dosRename(tmpOldName, tmpNewName);
end; end;
@ -568,7 +568,10 @@ Finalization
end. end.
{ {
$Log$ $Log$
Revision 1.4 2005-01-12 08:03:42 karoly Revision 1.5 2005-01-30 02:36:14 karoly
* fixed compilation
Revision 1.4 2005/01/12 08:03:42 karoly
* Few more Sysutils functions implemented * Few more Sysutils functions implemented
Revision 1.3 2005/01/11 17:44:06 karoly Revision 1.3 2005/01/11 17:44:06 karoly