Browse Source

* huge memory model fix for the asm version of PutPixel320

git-svn-id: trunk@40910 -
nickysn 6 years ago
parent
commit
e12968eb8c
1 changed files with 6 additions and 0 deletions
  1. 6 0
      packages/graph/src/msdos/graph.pp

+ 6 - 0
packages/graph/src/msdos/graph.pp

@@ -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 }