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

* fixed "nil pointer assignment" error in huge memory model

Browse Source 
git-svn-id: trunk@31502 -
This commit is contained in:
nickysn 2015-09-03 22:37:01 +00:00
parent 63f86ee6a5
commit 1264eaf8c6
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/msdos/prt0comn.asm
View File

@ -491,8 +491,13 @@ int_number:
%ifndef __TINY__ %ifndef __TINY__
global FPC_CHECK_NULLAREA global FPC_CHECK_NULLAREA
FPC_CHECK_NULLAREA: FPC_CHECK_NULLAREA:
%ifdef __HUGE__
mov ax, DGROUP
mov es, ax
%else
push ds push ds
pop es pop es
%endif
xor di, di xor di, di
mov cx, 32 mov cx, 32
mov al, 1 mov al, 1