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

* don't give an internalerror when encountering an invalid type while

Browse Source 
creating procdef's JVM mangled name, because this situation can also
    arise in case there's a simple error in the source code

git-svn-id: branches/jvmbackend@18586 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:12:48 +00:00
parent 9d0fdb3150
commit 00086c3dfc
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symdef.pas
View File

@ -4531,8 +4531,8 @@ implementation
tmpresult:=tmpresult+'['; tmpresult:=tmpresult+'[';
{ Add the parameter type. } { Add the parameter type. }
if not jvmaddencodedtype(vs.vardef,false,tmpresult,signature,founderror) then if not jvmaddencodedtype(vs.vardef,false,tmpresult,signature,founderror) then
{ should be checked earlier on } { an internalerror here is also triggered in case of errors in the source code }
internalerror(2010122604); tmpresult:='<error>';
end; end;
end; end;
tmpresult:=tmpresult+')'; tmpresult:=tmpresult+')';
@ -4541,7 +4541,8 @@ implementation
if (proctypeoption in [potype_constructor,potype_class_constructor]) then if (proctypeoption in [potype_constructor,potype_class_constructor]) then
jvmaddencodedtype(voidtype,false,tmpresult,signature,founderror) jvmaddencodedtype(voidtype,false,tmpresult,signature,founderror)
else if not jvmaddencodedtype(returndef,false,tmpresult,signature,founderror) then else if not jvmaddencodedtype(returndef,false,tmpresult,signature,founderror) then
internalerror(2010122610); { an internalerror here is also triggered in case of errors in the source code }
tmpresult:='<error>';
result:=tmpresult; result:=tmpresult;
end; end;