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

* huge memory model fix for the asm version of PutPixel320

Browse Source 
git-svn-id: trunk@40910 -
This commit is contained in:
nickysn 2019-01-19 16:38:44 +00:00
parent dca76d84c9
commit e12968eb8c
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

@ -2252,7 +2252,13 @@ End;
X:= X + StartXViewPort; X:= X + StartXViewPort;
Y:= Y + StartYViewPort; Y:= Y + StartYViewPort;
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 }