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

* always return true from tjvmnodeutils.force_init(), because when this

Browse Source 
routine is called we don't know yet whether it has to be forced or not
    for the JVM target (staticvarsyms that need initialization may still be
    created during pass1 of the main program/unit code)

git-svn-id: branches/jvmbackend@18646 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:21:01 +00:00
parent 2376003cd0
commit cfe125198c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/jvm/njvmutil.pas
View File

@ -105,10 +105,11 @@ implementation
class function tjvmnodeutils.force_init: boolean;
begin
{ we need an initialisation in case the al_globals list is not empty
(that's where the initialisation for global records is added) }
result:=
inherited or
not current_asmdata.asmlists[al_globals].empty;
(that's where the initialisation for global records etc is added) }
{ problem: some bss symbols are only registered while processing the main
program (e.g. constant sets) -> cannot predict whether or not we'll
need it in advance }
result:=true;
end;
class procedure tjvmnodeutils.insertbssdata(sym: tstaticvarsym);