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

+ initialize the PrefixSeg variable from the win16 startup code

Browse Source 
git-svn-id: trunk@31535 -
This commit is contained in:
nickysn 2015-09-05 18:03:37 +00:00
parent a062fb17b3
commit 72d6876225
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/win16/prt0comn.asm
View File

@ -26,6 +26,7 @@
segment _TEXT use16 class=CODE align=1 segment _TEXT use16 class=CODE align=1
extern PASCALMAIN extern PASCALMAIN
extern __fpc_PrefixSeg
extern InitTask extern InitTask
import InitTask KERNEL import InitTask KERNEL
@ -64,6 +65,8 @@
; ES:BX = the command line ; ES:BX = the command line
; SI = instance handle for the previous application instance (if any) ; SI = instance handle for the previous application instance (if any)
mov ax, es
mov [__fpc_PrefixSeg], ax
mov [hInst], di mov [hInst], di
; call WaitEvent(0) to clear the event that started this task ; call WaitEvent(0) to clear the event that started this task