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

* huge memory model fix for the asm version of DirectPutPixel320

Browse Source 
git-svn-id: trunk@40955 -
This commit is contained in:
nickysn 2019-01-21 13:40:04 +00:00
parent 6fe9285aa5
commit 0a838fa082
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/graph/src/msdos/graph.pp
View File

@ -2332,7 +2332,13 @@ End;
Procedure DirectPutPixel320(X,Y : smallint); assembler; Procedure DirectPutPixel320(X,Y : smallint); assembler;
{ note: still needs or/and/notput support !!!!! (JM) } { note: still needs or/and/notput support !!!!! (JM) }
asm asm
{$ifdef FPC_MM_HUGE}
mov ax, SEG SegA000
mov es, ax
mov es, es:[SegA000]
{$else FPC_MM_HUGE}
mov es, [SegA000] mov es, [SegA000]
{$endif FPC_MM_HUGE}
mov ax, [Y] mov ax, [Y]
mov di, [X] mov di, [X]
xchg ah, al { The value of Y must be in AH } xchg ah, al { The value of Y must be in AH }