Explorar o código

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

git-svn-id: trunk@39728 -
svenbarth %!s(int64=7) %!d(string=hai) anos
pai
achega
cb8f6f637c
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  1. 2 1
      compiler/symtable.pas

+ 2 - 1
compiler/symtable.pas

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