Browse Source

- rm the 'Memory allocation error' and 'Not enough memory' error messages from
the compact and large model startup code, since they're not used (we rely on
the DOS loader to check for the available memory instead)

git-svn-id: trunk@28069 -

nickysn 11 years ago
parent
commit
f7dd4f640a
1 changed files with 4 additions and 0 deletions
  1. 4 0
      rtl/msdos/prt0comn.asm

+ 4 - 0
rtl/msdos/prt0comn.asm

@@ -242,6 +242,7 @@ skip_mem_realloc:
         jmp PASCALMAIN
         jmp PASCALMAIN
 %endif
 %endif
 
 
+%ifdef __NEAR_DATA__
 not_enough_mem:
 not_enough_mem:
         mov dx, not_enough_mem_msg
         mov dx, not_enough_mem_msg
         jmp error_msg
         jmp error_msg
@@ -255,6 +256,7 @@ error_msg:
         int 21h
         int 21h
         mov ax, 4CFFh
         mov ax, 4CFFh
         int 21h
         int 21h
+%endif
 
 
 FPC_INT00_HANDLER:
 FPC_INT00_HANDLER:
         sub sp, 4  ; reserve space on the stack for the retf
         sub sp, 4  ; reserve space on the stack for the retf
@@ -477,10 +479,12 @@ FPC_CHECK_NULLAREA:
 %endif
 %endif
 
 
         segment data class=data
         segment data class=data
+%ifdef __NEAR_DATA__
 mem_realloc_err_msg:
 mem_realloc_err_msg:
         db 'Memory allocation error', 13, 10, '$'
         db 'Memory allocation error', 13, 10, '$'
 not_enough_mem_msg:
 not_enough_mem_msg:
         db 'Not enough memory', 13, 10, '$'
         db 'Not enough memory', 13, 10, '$'
+%endif
         ; add reference to the beginning of the minimal heap, so the object
         ; add reference to the beginning of the minimal heap, so the object
         ; module, containing the heap segment doesn't get smartlinked away
         ; module, containing the heap segment doesn't get smartlinked away
         dd ___heap
         dd ___heap