paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 07:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

- do not emit a stack segment in the tiny memory model

Browse Source 
- rm the reference to the top of the stack segment from the startup code in tiny
  model

git-svn-id: trunk@27956 -
This commit is contained in:
nickysn 2014-06-14 15:56:44 +00:00
parent 05ecd3cec1
commit 8ad63788c7
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/i8086/n8086util.pas
View File

@ -47,7 +47,8 @@ implementation
class procedure ti8086nodeutils.InsertMemorySizes;
begin
inherited;
InsertStackSegment;
if current_settings.x86memorymodel<>mm_tiny then
InsertStackSegment;
end;

8
rtl/msdos/prt0comn.asm
View File

@ -53,11 +53,13 @@
extern __nearheap_start
extern __nearheap_end
%ifdef __FAR_DATA__
%ifndef __TINY__
%ifdef __FAR_DATA__
extern ___stack
%endif
%ifdef __NEAR_DATA__
%endif
%ifdef __NEAR_DATA__
extern ___stacktop
%endif
%endif
extern __SaveInt00