paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 04:30:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed uninitialised var-parameters in isrecordconv

Browse Source 
git-svn-id: branches/jvmbackend@18538 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:08:34 +00:00
parent 278a581666
commit bdb6cf5561
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/jvm/njvmcnv.pas
View File

@ -654,14 +654,21 @@ implementation
function isrecordconv(var res: boolean): boolean;
begin
if is_record(realtodef) then
result:=
(realfromdef=java_jlobject) or
(realfromdef=java_fpcbaserecordtype)
begin
result:=true;
res:=
(realfromdef=java_jlobject) or
(realfromdef=java_fpcbaserecordtype);
end
else if is_record(realfromdef) then
result:=
(realtodef=java_jlobject) or
(realtodef=java_fpcbaserecordtype)
begin
result:=true;
res:=
(realtodef=java_jlobject) or
(realtodef=java_fpcbaserecordtype)
end
else
result:=false;
end;
function isstringconv(var res: boolean): boolean;