paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:59:18 +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

28
rtl/go32v2/system.pp
View File

@ -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
else
if regs.realeax<size then
begin
syscopyfromdos(addr+readsize,regs.realeax);
do_read:=readsize+regs.realeax;
exit;
end; 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;
@ -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