mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 17:29:33 +02:00
* recognise LOC_CREFERENCE in tllvmsubscriptnode.handle_platform_subscript()
git-svn-id: branches/hlcgllvm@28364 -
This commit is contained in:
parent
f70865fc1f
commit
6ab2c00ac6
@ -68,7 +68,7 @@ implementation
|
|||||||
llvmfielddef: tdef;
|
llvmfielddef: tdef;
|
||||||
newbase: tregister;
|
newbase: tregister;
|
||||||
begin
|
begin
|
||||||
if location.loc<>LOC_REFERENCE then
|
if not(location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) then
|
||||||
internalerror(2014011905);
|
internalerror(2014011905);
|
||||||
if is_packed_record_or_object(left.resultdef) then
|
if is_packed_record_or_object(left.resultdef) then
|
||||||
begin
|
begin
|
||||||
|
Loading…
Reference in New Issue
Block a user