paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 09:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* recognise LOC_CREFERENCE in tllvmsubscriptnode.handle_platform_subscript()

Browse Source 
git-svn-id: branches/hlcgllvm@28364 -
This commit is contained in:
Jonas Maebe 2014-08-10 19:39:58 +00:00
parent f70865fc1f
commit 6ab2c00ac6
1 changed files with 1 additions and 1 deletions

2
compiler/llvm/nllvmmem.pas
View File

@ -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