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

Transform internal error into error message for seg(procvar) with is not usable for some i8086 memory models

Browse Source 
git-svn-id: trunk@38219 -
This commit is contained in:
pierre 2018-02-12 10:07:35 +00:00
parent c3ffd778c0
commit 019a8b66dc
3 changed files with 498 additions and 499 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/i8086/n8086inl.pas
View File

@ -197,7 +197,7 @@ implementation
if left.resultdef.typ=procvardef then if left.resultdef.typ=procvardef then
begin begin
if left.resultdef.size<>4 then if left.resultdef.size<>4 then
internalerror(2017121302); CGMessage(type_e_seg_procvardef_wrong_memory_model);
case left.location.loc of case left.location.loc of
LOC_REGISTER,LOC_CREGISTER: LOC_REGISTER,LOC_CREGISTER:
begin begin

5
compiler/msgidx.inc
View File

@ -569,6 +569,7 @@ const
type_e_procedure_must_be_far=04121; type_e_procedure_must_be_far=04121;
type_w_instance_abstract_class=04122; type_w_instance_abstract_class=04122;
type_e_function_reference_kind=04123; type_e_function_reference_kind=04123;
type_e_seg_procvardef_wrong_memory_model=04124;
sym_e_id_not_found=05000; sym_e_id_not_found=05000;
sym_f_internal_error_in_symtablestack=05001; sym_f_internal_error_in_symtablestack=05001;
sym_e_duplicate_id=05002; sym_e_duplicate_id=05002;
@ -1091,9 +1092,9 @@ const
option_info=11024; option_info=11024;
option_help_pages=11025; option_help_pages=11025;
MsgTxtSize = 81040; MsgTxtSize = 81122;
MsgIdxMax : array[1..20] of longint=( MsgIdxMax : array[1..20] of longint=(
27,105,347,124,96,58,139,33,221,67, 27,105,347,125,96,58,139,33,221,67,
61,20,30,1,1,1,1,1,1,1 61,20,30,1,1,1,1,1,1,1
); );

990
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff