2
0
Эх сурвалжийг харах

* fix big endian targets by using an explicit assignment with typecast instead of an absolute variable

git-svn-id: trunk@39728 -
svenbarth 7 жил өмнө
parent
commit
cb8f6f637c

+ 2 - 1
compiler/symtable.pas

@@ -1672,7 +1672,7 @@ implementation
       var
       var
         sym : tsym absolute data;
         sym : tsym absolute data;
         fsym : tfieldvarsym absolute data;
         fsym : tfieldvarsym absolute data;
-        mop : tmanagementoperator absolute arg;
+        mop : tmanagementoperator;
         entry : pmanagementoperator_offset_entry;
         entry : pmanagementoperator_offset_entry;
         sublist : tfplist;
         sublist : tfplist;
         i : longint;
         i : longint;
@@ -1681,6 +1681,7 @@ implementation
           exit;
           exit;
         if not is_record(fsym.vardef) and not is_object(fsym.vardef) and not is_cppclass(fsym.vardef) then
         if not is_record(fsym.vardef) and not is_object(fsym.vardef) and not is_cppclass(fsym.vardef) then
           exit;
           exit;
+        mop:=tmanagementoperator(ptruint(arg));
         if not assigned(mop_list[mop]) then
         if not assigned(mop_list[mop]) then
           internalerror(2018082303);
           internalerror(2018082303);