Explorar el Código

* loadvmtaddrnode accesses global data only when left.nodetype=typen.

git-svn-id: trunk@26742 -
sergei hace 11 años
padre
commit
07ce8f46a4
Se han modificado 1 ficheros con 2 adiciones y 1 borrados
  1. 2 1
      compiler/nmem.pas

+ 2 - 1
compiler/nmem.pas

@@ -231,7 +231,8 @@ implementation
       begin
          result:=nil;
          expectloc:=LOC_REGISTER;
-         if (cs_create_pic in current_settings.moduleswitches) then
+         if (left.nodetype=typen) and
+            (cs_create_pic in current_settings.moduleswitches) then
            include(current_procinfo.flags,pi_needs_got);
          if left.nodetype<>typen then
            begin