瀏覽代碼

* huge memory model fix for the asm version of DirectPutPixel320

git-svn-id: trunk@40955 -
nickysn 6 年之前
父節點
當前提交
0a838fa082
共有 1 個文件被更改,包括 6 次插入0 次删除
  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 }