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

* use Ofs() instead of typecasting to word for getting the offset of a pointer

Browse Source 
git-svn-id: branches/i8086@24068 -
This commit is contained in:
nickysn 2013-03-30 11:41:07 +00:00
parent 2fd729cb4d
commit 27559aa5f8
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/msdos/sysfile.inc
View File

@ -40,7 +40,7 @@ begin
regs.BX := h;
regs.CX := len;
regs.DS := DSeg;
regs.DX := Word(addr);
regs.DX := Ofs(addr^);
MsDos(regs);
if (regs.Flags and fCarry) <> 0 then
begin
@ -59,7 +59,7 @@ begin
regs.BX := h;
regs.CX := len;
regs.DS := DSeg;
regs.DX := Word(addr);
regs.DX := Ofs(addr^);
MsDos(regs);
if (regs.Flags and FCarry) <> 0 then
begin

4
rtl/msdos/system.pp
View File

@ -155,10 +155,10 @@ begin
{ Call 'Get Volume Information' ($71A0) }
regs.AX:=$71a0;
regs.ES:=DSeg;
regs.DI:=Word(@buf);
regs.DI:=Ofs(buf);
regs.CX:=32;
regs.DS:=DSeg;
regs.DX:=Word(RootName);
regs.DX:=Ofs(RootName^);
MsDos_Carry(regs);
{ If carryflag=0 and LFN API bit in ebx is set then use Long file names }
CheckLFN:=(regs.Flags and fCarry=0) and (regs.BX and $4000=$4000);