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

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

git-svn-id: trunk@27956 -

compiler/i8086/n8086util.pas

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

rtl/msdos/prt0comn.asm

@@ -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