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

* internalerror if constructor not found in record

Browse Source 
git-svn-id: branches/jvmbackend@18579 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:12:15 +00:00
parent 223057f1a7
commit c995e56370
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/jvm/tgcpu.pas
View File

@ -113,7 +113,9 @@ unit tgcpu;
pd:=tprocsym(sym).find_bytype_parameterless(potype_constructor);
if not assigned(pd) then
internalerror(2011032701);
end;
end
else
internalerror(2011060301);
hlcg.a_call_name(list,pd,pd.mangledname,false);
thlcgjvm(hlcg).decstack(list,1);
{ store reference to instance }