paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-11 11:05:12 +01:00
Code Issues Packages Projects Releases Wiki Activity

* in i8086 far data memory models add reference to the beginning of stack from

Browse Source 
the startup code, so the object module, containing the stack segment doesn't
  get smartlinked away

git-svn-id: trunk@27824 -
This commit is contained in:
nickysn 2014-05-29 14:57:48 +00:00
parent 03ef4b6477
commit d4565aeec2
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/msdos/prt0comn.asm
View File

@ -53,6 +53,10 @@
extern __nearheap_start extern __nearheap_start
extern __nearheap_end extern __nearheap_end
%ifdef __FAR_DATA__
extern ___stack
%endif
extern __SaveInt00 extern __SaveInt00
extern FPC_HANDLEERROR extern FPC_HANDLEERROR
@ -473,6 +477,11 @@ __nullarea:
segment stack stack class=stack segment stack stack class=stack
resb 256 resb 256
stacktop: stacktop:
%else
segment data
; add reference to the beginning of stack, so the object module,
; containing the stack segment doesn't get smartlinked away
dd ___stack
%endif %endif
%endif %endif