Explorar el Código

* same as r27223 for hlcgobj (fixes webtbs/tw25895 for llvm)

git-svn-id: trunk@35043 -
Jonas Maebe hace 8 años
padre
commit
f26ed10ba1
Se han modificado 1 ficheros con 4 adiciones y 0 borrados
  1. 4 0
      compiler/hlcgobj.pas

+ 4 - 0
compiler/hlcgobj.pas

@@ -5073,6 +5073,10 @@ implementation
     var
       tmploc: tlocation;
     begin
+      { skip e.g. empty records }
+      if (cgpara.location^.loc = LOC_VOID) then
+        exit;
+
       { Handle Floating point types differently
 
         This doesn't depend on emulator settings, emulator settings should