- removed the call to CheckNullArea from the exit code for the tiny memory model

git-svn-id: trunk@28006 -

rtl/msdos/prt0comn.asm

@@ -439,12 +439,9 @@ int_number:
         ret 4
 %endif
 
+%ifndef __TINY__
         global FPC_CHECK_NULLAREA
 FPC_CHECK_NULLAREA:
-%ifdef __TINY__
-        ; tiny model has no nil pointer assignment checking; always return true.
-        mov al, 1
-%else
         push ds
         pop es
         xor di, di
@@ -455,11 +452,11 @@ FPC_CHECK_NULLAREA:
         je .skip
         dec ax   ; 1 byte shorter than dec al
 .skip:
-%endif
+    %ifdef __FAR_CODE__
-%ifdef __FAR_CODE__
         retf
-%else
+    %else
         ret
+    %endif
 %endif
 
         segment data class=data

rtl/msdos/system.pp

@@ -293,8 +293,10 @@ begin
          if h>=5 then
            do_close(h);
       end;
+{$ifndef FPC_MM_TINY}
   if not CheckNullArea then
     writeln(stderr, 'Nil pointer assignment');
+{$endif FPC_MM_TINY}
   asm
     mov al, byte [exitcode]
     mov ah, 4Ch