Browse Source

* Fix compilation of crt unit for msdos tiny memory model

git-svn-id: trunk@32930 -
pierre 9 years ago
parent
commit
0791422c1e
1 changed files with 4 additions and 4 deletions
  1. 4 4
      packages/rtl-console/src/msdos/crt.pp

+ 4 - 4
packages/rtl-console/src/msdos/crt.pp

@@ -472,8 +472,8 @@ LInitDel1:
         mov     dx, $FFFF
         mov     dx, $FFFF
         call    DelayLoop
         call    DelayLoop
 
 
-        mov     [DelayCnt], ax
-        mov     [DelayCnt + 2], dx
+        mov     word ptr [DelayCnt], ax
+        mov     word ptr [DelayCnt + 2], dx
   end ['AX','BX','DX', 'DI'];
   end ['AX','BX','DX', 'DI'];
   DelayCnt := -DelayCnt div $55;
   DelayCnt := -DelayCnt div $55;
 end;
 end;
@@ -490,10 +490,10 @@ asm
         mov     cx, MS
         mov     cx, MS
         test    cx, cx
         test    cx, cx
         jz      LDelay2
         jz      LDelay2
-        mov     si, [DelayCnt + 2]
+        mov     si, word ptr [DelayCnt + 2]
         mov     bx, es:[di]
         mov     bx, es:[di]
 LDelay1:
 LDelay1:
-        mov     ax, [DelayCnt]
+        mov     ax, word ptr [DelayCnt]
         mov     dx, si
         mov     dx, si
         call    DelayLoop
         call    DelayLoop
         loop    LDelay1
         loop    LDelay1