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

* do_isdevice not called if already error

Browse Source
This commit is contained in:
peter 1999-09-08 16:09:18 +00:00
parent dd0d54cdef
commit 551facfd08
1 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
rtl/go32v2/system.pp
View File

@ -40,7 +40,7 @@ const
StdOutputHandle = 1; StdOutputHandle = 1;
StdErrorHandle = 2; StdErrorHandle = 2;
FileNameCaseSensitive : boolean = false; FileNameCaseSensitive : boolean = false;
{ Default memory segments (Tp7 compatibility) } { Default memory segments (Tp7 compatibility) }
seg0040 = $0040; seg0040 = $0040;
@ -819,10 +819,13 @@ begin
InOutRes:=lo(regs.realeax); InOutRes:=lo(regs.realeax);
exit(writesize); exit(writesize);
end; end;
len:=len-size; inc(writesize,regs.realeax);
writesize:=writesize+size; dec(len,regs.realeax);
{ stop when not the specified size is written }
if regs.realeax<size then
break;
end; end;
Do_Write:=WriteSize Do_Write:=WriteSize;
end; end;
@ -850,17 +853,13 @@ begin
InOutRes:=lo(regs.realeax); InOutRes:=lo(regs.realeax);
do_read:=0; do_read:=0;
exit; exit;
end end;
else
if regs.realeax<size then
begin
syscopyfromdos(addr+readsize,regs.realeax);
do_read:=readsize+regs.realeax;
exit;
end;
syscopyfromdos(addr+readsize,regs.realeax); syscopyfromdos(addr+readsize,regs.realeax);
readsize:=readsize+regs.realeax; inc(readsize,regs.realeax);
len:=len-regs.realeax; dec(len,regs.realeax);
{ stop when not the specified size is read }
if regs.realeax<size then
break;
end; end;
do_read:=readsize; do_read:=readsize;
end; end;
@ -1250,7 +1249,7 @@ Begin
{ to test stack depth } { to test stack depth }
loweststack:=maxlongint; loweststack:=maxlongint;
{ Setup heap } { Setup heap }
InitHeap; InitHeap;
{$ifdef MT} {$ifdef MT}
{ before this, you can't use thread vars !!!! } { before this, you can't use thread vars !!!! }
{ threadvarblocksize is calculate before the initialization } { threadvarblocksize is calculate before the initialization }
@ -1275,7 +1274,10 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.15 1999-08-19 14:03:16 pierre Revision 1.16 1999-09-08 16:09:18 peter
* do_isdevice not called if already error
Revision 1.15 1999/08/19 14:03:16 pierre
* use sysgetmem for startup and debug allocations * use sysgetmem for startup and debug allocations
Revision 1.14 1999/07/19 07:57:49 michael Revision 1.14 1999/07/19 07:57:49 michael
@ -1414,4 +1416,4 @@ End.
Revision 1.3 1998/05/04 16:21:54 florian Revision 1.3 1998/05/04 16:21:54 florian
+ LFNSupport flag to the interface moved + LFNSupport flag to the interface moved
} }