mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 18:39:30 +02:00
* use call instead of jmp to PASCALMAIN, because it sets up a stack frame and
all stack frames must be preceded with a valid return address in win16 git-svn-id: trunk@31575 -
This commit is contained in:
parent
3cb9be73bc
commit
1344d391d3
@ -103,9 +103,9 @@
|
||||
jz error
|
||||
|
||||
%ifdef __FAR_CODE__
|
||||
jmp far PASCALMAIN
|
||||
call far PASCALMAIN
|
||||
%else
|
||||
jmp PASCALMAIN
|
||||
call PASCALMAIN
|
||||
%endif
|
||||
|
||||
error:
|
||||
|
Loading…
Reference in New Issue
Block a user