Explorar o código

* recognise LOC_CREFERENCE in tllvmsubscriptnode.handle_platform_subscript()

git-svn-id: branches/hlcgllvm@28364 -
Jonas Maebe %!s(int64=11) %!d(string=hai) anos
pai
achega
6ab2c00ac6
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/llvm/nllvmmem.pas

+ 1 - 1
compiler/llvm/nllvmmem.pas

@@ -68,7 +68,7 @@ implementation
         llvmfielddef: tdef;
         newbase: tregister;
       begin
-        if location.loc<>LOC_REFERENCE then
+        if not(location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) then
           internalerror(2014011905);
         if is_packed_record_or_object(left.resultdef) then
           begin