paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 19:41:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use Seg() instead of DSeg in the msdos rtl

Browse Source 
git-svn-id: branches/i8086@24072 -
This commit is contained in:
nickysn 2013-03-30 13:05:30 +00:00
parent 4d8adbf5ff
commit aab6df13ba
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

@ -39,7 +39,7 @@ begin
regs.AH := $40; regs.AH := $40;
regs.BX := h; regs.BX := h;
regs.CX := len; regs.CX := len;
regs.DS := DSeg; regs.DS := Seg(addr^);
regs.DX := Ofs(addr^); regs.DX := Ofs(addr^);
MsDos(regs); MsDos(regs);
if (regs.Flags and fCarry) <> 0 then if (regs.Flags and fCarry) <> 0 then
@ -58,7 +58,7 @@ begin
regs.AH := $3F; regs.AH := $3F;
regs.BX := h; regs.BX := h;
regs.CX := len; regs.CX := len;
regs.DS := DSeg; regs.DS := Seg(addr^);
regs.DX := Ofs(addr^); regs.DX := Ofs(addr^);
MsDos(regs); MsDos(regs);
if (regs.Flags and FCarry) <> 0 then if (regs.Flags and FCarry) <> 0 then

4
rtl/msdos/system.pp
View File

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