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

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

Browse Source 
git-svn-id: trunk@39728 -
This commit is contained in:
svenbarth 2018-09-10 21:12:29 +00:00
parent 5d9ddf99d4
commit cb8f6f637c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/symtable.pas
View File

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