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

* changes to work with updated doslib includes

Browse Source
This commit is contained in:
Károly Balogh 2004-08-09 00:12:40 +00:00
parent 3a2a858ef7
commit 39b8f2dfc6
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/morphos/system.pp
View File

@ -132,7 +132,7 @@ begin
tmpHandle:=tmpNext^.handle; tmpHandle:=tmpNext^.handle;
if (tmpHandle<>StdInputHandle) and (tmpHandle<>StdOutputHandle) if (tmpHandle<>StdInputHandle) and (tmpHandle<>StdOutputHandle)
and (tmpHandle<>StdErrorHandle) then begin and (tmpHandle<>StdErrorHandle) then begin
Close2(tmpHandle); dosClose(tmpHandle);
end; end;
tmpNext:=tmpNext^.next; tmpNext:=tmpNext^.next;
end; end;
@ -423,7 +423,7 @@ end;
procedure randomize; procedure randomize;
var tmpTime: TDateStamp; var tmpTime: TDateStamp;
begin begin
DateStamp(tmpTime); DateStamp(@tmpTime);
randseed:=tmpTime.ds_tick; randseed:=tmpTime.ds_tick;
end; end;
@ -595,7 +595,7 @@ begin
RemoveFromList(MOS_fileList,handle); RemoveFromList(MOS_fileList,handle);
{ Do _NOT_ check CTRL_C on Close, because it will conflict { Do _NOT_ check CTRL_C on Close, because it will conflict
with System_Exit! } with System_Exit! }
if not Close2(handle) then if not dosClose(handle) then
dosError2InOut(IoErr); dosError2InOut(IoErr);
end; end;
@ -609,7 +609,7 @@ end;
procedure do_rename(p1,p2 : pchar); procedure do_rename(p1,p2 : pchar);
begin begin
checkCTRLC; checkCTRLC;
if not Rename2(p1,p2) then if not dosRename(p1,p2) then
dosError2InOut(IoErr); dosError2InOut(IoErr);
end; end;
@ -620,7 +620,7 @@ begin
do_write:=0; do_write:=0;
if len<=0 then exit; if len<=0 then exit;
dosResult:=Write2(h,addr,len); dosResult:=dosWrite(h,addr,len);
if dosResult<0 then begin if dosResult<0 then begin
dosError2InOut(IoErr); dosError2InOut(IoErr);
end else begin end else begin
@ -635,7 +635,7 @@ begin
do_read:=0; do_read:=0;
if len<=0 then exit; if len<=0 then exit;
dosResult:=Read2(h,addr,len); dosResult:=dosRead(h,addr,len);
if dosResult<0 then begin if dosResult<0 then begin
dosError2InOut(IoErr); dosError2InOut(IoErr);
end else begin end else begin
@ -650,7 +650,7 @@ begin
do_filepos:=0; do_filepos:=0;
{ Seeking zero from OFFSET_CURRENT to find out where we are } { Seeking zero from OFFSET_CURRENT to find out where we are }
dosResult:=Seek2(handle,0,OFFSET_CURRENT); dosResult:=dosSeek(handle,0,OFFSET_CURRENT);
if dosResult<0 then begin if dosResult<0 then begin
dosError2InOut(IoErr); dosError2InOut(IoErr);
end else begin end else begin
@ -662,7 +662,7 @@ procedure do_seek(handle,pos : longint);
begin begin
checkCTRLC; checkCTRLC;
{ Seeking from OFFSET_BEGINNING } { Seeking from OFFSET_BEGINNING }
if Seek2(handle,pos,OFFSET_BEGINNING)<0 then if dosSeek(handle,pos,OFFSET_BEGINNING)<0 then
dosError2InOut(IoErr); dosError2InOut(IoErr);
end; end;
@ -673,7 +673,7 @@ begin
do_seekend:=0; do_seekend:=0;
{ Seeking to OFFSET_END } { Seeking to OFFSET_END }
dosResult:=Seek2(handle,0,OFFSET_END); dosResult:=dosSeek(handle,0,OFFSET_END);
if dosResult<0 then begin if dosResult<0 then begin
dosError2InOut(IoErr); dosError2InOut(IoErr);
end else begin end else begin
@ -860,8 +860,8 @@ begin
if MOS_heapPool=nil then Halt(1); if MOS_heapPool=nil then Halt(1);
if MOS_ambMsg=nil then begin if MOS_ambMsg=nil then begin
StdInputHandle:=Input2; StdInputHandle:=dosInput;
StdOutputHandle:=Output2; StdOutputHandle:=dosOutput;
end else begin end else begin
MOS_ConHandle:=Open(MOS_ConName,1005); MOS_ConHandle:=Open(MOS_ConName,1005);
if MOS_ConHandle<>0 then begin if MOS_ConHandle<>0 then begin
@ -917,7 +917,10 @@ end.
{ {
$Log$ $Log$
Revision 1.17 2004-08-03 15:59:41 karoly Revision 1.18 2004-08-09 00:12:40 karoly
* changes to work with updated doslib includes
Revision 1.17 2004/08/03 15:59:41 karoly
* more cleanup & more includes * more cleanup & more includes
Revision 1.16 2004/06/26 20:48:24 karoly Revision 1.16 2004/06/26 20:48:24 karoly