paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed do_filepos and do_seekend not returning the high 16 bits of the file

Browse Source 
offset correctly

git-svn-id: trunk@27176 -
This commit is contained in:
nickysn 2014-03-17 22:01:09 +00:00
parent d989a42111
commit b7d759344d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/msdos/sysfile.inc
View File

@ -158,7 +158,7 @@ begin
do_filepos:=0;
end
else
do_filepos:=(regs.DX shl 16) + regs.AX;
do_filepos:=(longint(regs.DX) shl 16) + regs.AX;
end;
@ -192,7 +192,7 @@ begin
do_seekend:=0;
end
else
do_seekend:=(regs.DX shl 16) + regs.AX;
do_seekend:=(longint(regs.DX) shl 16) + regs.AX;
end;