paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 03:50:36 +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 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);