paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 04:17:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation for jvm, resolves #33195

Browse Source 
git-svn-id: trunk@38283 -
This commit is contained in:
florian 2018-02-18 17:31:09 +00:00
parent 055a49b202
commit 2251e87e41
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgmem.pas
View File

@ -356,9 +356,9 @@ implementation
(target_info.system in systems_garbage_collected_managed_types) then
begin
{ take care of the alignment of the fields }
if not(left.resultdef is tobjectdef) then
if not(left.resultdef is tabstractrecorddef) then
Internalerror(2018021601);
location_reset_ref(location,LOC_REFERENCE,def_cgsize(resultdef),newalignment(tObjectSymtable(tobjectdef(left.resultdef).symtable).recordalignment,vs.fieldoffset),[]);
location_reset_ref(location,LOC_REFERENCE,def_cgsize(resultdef),newalignment(tabstractrecordsymtable(tabstractrecorddef(left.resultdef).symtable).recordalignment,vs.fieldoffset),[]);
case left.location.loc of
LOC_CREGISTER,
LOC_REGISTER: