Просмотр исходного кода

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

git-svn-id: trunk@35043 -
Jonas Maebe 8 лет назад
Родитель
Сommit
f26ed10ba1
1 измененных файлов с 4 добавлено и 0 удалено
  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