Browse Source

* huge memory model fix for the asm version of DirectPutPixel320

git-svn-id: trunk@40955 -
nickysn 6 years ago
parent
commit
0a838fa082
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

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