paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 19:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

- rm the 'Memory allocation error' and 'Not enough memory' error messages from

Browse Source 
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 -
This commit is contained in:
nickysn 2014-06-25 23:16:55 +00:00
parent dc17b55505
commit f7dd4f640a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/msdos/prt0comn.asm
View File

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