mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 07:39:25 +02:00
- 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 -
This commit is contained in:
parent
dc17b55505
commit
f7dd4f640a
@ -242,6 +242,7 @@ skip_mem_realloc:
|
||||
jmp PASCALMAIN
|
||||
%endif
|
||||
|
||||
%ifdef __NEAR_DATA__
|
||||
not_enough_mem:
|
||||
mov dx, not_enough_mem_msg
|
||||
jmp error_msg
|
||||
@ -255,6 +256,7 @@ error_msg:
|
||||
int 21h
|
||||
mov ax, 4CFFh
|
||||
int 21h
|
||||
%endif
|
||||
|
||||
FPC_INT00_HANDLER:
|
||||
sub sp, 4 ; reserve space on the stack for the retf
|
||||
@ -477,10 +479,12 @@ FPC_CHECK_NULLAREA:
|
||||
%endif
|
||||
|
||||
segment data class=data
|
||||
%ifdef __NEAR_DATA__
|
||||
mem_realloc_err_msg:
|
||||
db 'Memory allocation error', 13, 10, '$'
|
||||
not_enough_mem_msg:
|
||||
db 'Not enough memory', 13, 10, '$'
|
||||
%endif
|
||||
; add reference to the beginning of the minimal heap, so the object
|
||||
; module, containing the heap segment doesn't get smartlinked away
|
||||
dd ___heap
|
||||
|
Loading…
Reference in New Issue
Block a user