Ver código fonte

* don't try to translate the got register if it's NR_NO (fixes
regression of webtbs/tw3402 on linux/ppc64 after r8651)

git-svn-id: trunk@8668 -

Jonas Maebe 18 anos atrás
pai
commit
559bb6226e
1 arquivos alterados com 2 adições e 1 exclusões
  1. 2 1
      compiler/psub.pas

+ 2 - 1
compiler/psub.pas

@@ -1039,7 +1039,8 @@ implementation
             current_procinfo.procdef.localst.SymList.ForEachCall(@translate_registers,templist);
             if (cs_create_pic in current_settings.moduleswitches) and
                (pi_needs_got in current_procinfo.flags) and
-               not(cs_no_regalloc in current_settings.globalswitches) then
+               not(cs_no_regalloc in current_settings.globalswitches) and
+               (current_procinfo.got<>NR_NO) then
               cg.translate_register(current_procinfo.got);
 
             { Add save and restore of used registers }