paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 02:19:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed (harmless) invalid typecasts that caused run time errors with -CR

Browse Source 
git-svn-id: branches/jvmbackend@19824 -
This commit is contained in:
Jonas Maebe 2011-12-11 17:25:50 +00:00
parent f4f70f99b2
commit c61e9a2f04
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/jvm/njvmld.pas
View File

@ -197,8 +197,8 @@ function tjvmloadnode.handle_threadvar_access: tnode;
result:=cloadnode.create(vs,vs.owner);
typecheckpass(result);
result:=ccallnode.createinternmethod(result,'GETREADWRITEREFERENCE',nil);
if not(tparavarsym(symtableentry).vardef.typ in [orddef,floatdef]) and
not jvmimplicitpointertype(tparavarsym(symtableentry).vardef) then
if not(tstaticvarsym(symtableentry).vardef.typ in [orddef,floatdef]) and
not jvmimplicitpointertype(tstaticvarsym(symtableentry).vardef) then
begin
{ in these cases, the threadvar was internally constructed as an
"array of jlobject", while the variable itself is a different kind of