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

* fix for i8086 far data memory models in dos.getintvec

Browse Source 
git-svn-id: trunk@27468 -
This commit is contained in:
nickysn 2014-04-04 17:03:18 +00:00
parent 8ae36f3ef4
commit f31d7e665b
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/msdos/dos.pp
View File

@ -1028,10 +1028,22 @@ asm
mov ah, 35h
int 21h
xchg ax, bx
{$if defined(FPC_MM_TINY) or defined(FPC_MM_SMALL) or defined(FPC_MM_MEDIUM)}
mov bx, vector
mov [bx], ax
mov ax, es
mov [bx + 2], ax
{$else}
{$ifdef FPC_ENABLED_CLD}
cld
{$endif FPC_ENABLED_CLD}
push es
pop bx
les di, vector
stosw
xchg ax, bx
stosw
{$endif}
end;
procedure SetIntVec(intno: Byte; vector: farpointer); assembler;