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

* Fix compilation of crt unit for msdos tiny memory model

Browse Source 
git-svn-id: trunk@32930 -
This commit is contained in:
pierre 2016-01-12 20:06:28 +00:00
parent 79c5b632f1
commit 0791422c1e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/rtl-console/src/msdos/crt.pp
View File

@ -472,8 +472,8 @@ LInitDel1:
mov dx, $FFFF mov dx, $FFFF
call DelayLoop call DelayLoop
mov [DelayCnt], ax mov word ptr [DelayCnt], ax
mov [DelayCnt + 2], dx 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