paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 03:50:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* stop tcallnode.pass_1 after we've detected a direct call to a helper/

Browse Source 
category method, as this may lead to an internalerror later on after
    the following commits

git-svn-id: trunk@30907 -
This commit is contained in:
Jonas Maebe 2015-05-25 12:55:37 +00:00
parent f51b11e969
commit 6c3f1c3722
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncal.pas
View File

@ -3837,7 +3837,12 @@ implementation
(methodpointer.nodetype=typen) and (methodpointer.nodetype=typen) and
is_objectpascal_helper(ttypenode(methodpointer).typedef) and is_objectpascal_helper(ttypenode(methodpointer).typedef) and
not ttypenode(methodpointer).helperallowed then not ttypenode(methodpointer).helperallowed then
Message(parser_e_no_category_as_types); begin
CGMessage(parser_e_no_category_as_types);
{ we get an internal error when trying to insert the hidden
parameters in this case }
exit;
end;
{ can we get rid of the call? } { can we get rid of the call? }
if (cs_opt_remove_emtpy_proc in current_settings.optimizerswitches) and if (cs_opt_remove_emtpy_proc in current_settings.optimizerswitches) and