Explorar o código

* correctly handle empty ansistring constants for llvm

git-svn-id: branches/hlcgllvm@30127 -
Jonas Maebe %!s(int64=10) %!d(string=hai) anos
pai
achega
eba3f534de
Modificáronse 1 ficheiros con 8 adicións e 0 borrados
  1. 8 0
      compiler/llvm/nllvmtcon.pas

+ 8 - 0
compiler/llvm/nllvmtcon.pas

@@ -253,6 +253,14 @@ implementation
       field: tfieldvarsym;
       dataptrdef: tdef;
     begin
+      { nil pointer? }
+      if not assigned(ll.lab) then
+        begin
+          if ll.ofs<>0 then
+            internalerror(2015030701);
+          inherited;
+          exit;
+        end;
       { if the returned offset is <> 0, then the string data
         starts at that offset -> translate to a field for the
         high level code generator }