paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-07 23:58:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moved jvm-specific tarrayreftype from cgutils to jvm/cpubase

Browse Source 
git-svn-id: trunk@27148 -
This commit is contained in:
Jonas Maebe 2014-03-16 11:24:21 +00:00
parent c003f934c5
commit 908bbed312
3 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/cgutils.pas
View File

@ -43,9 +43,6 @@ unit cgutils;
{ Set type definition for cpuregisters } { Set type definition for cpuregisters }
tcpuregisterset = set of 0..maxcpuregister; tcpuregisterset = set of 0..maxcpuregister;
{$ifdef jvm}
tarrayreftype = (art_none,art_indexreg,art_indexref,art_indexconst);
{$endif jvm}
{ reference record, reordered for best alignment } { reference record, reordered for best alignment }
preference = ^treference; preference = ^treference;
treference = record treference = record

9
compiler/jvm/cpubase.pas
View File

@ -157,6 +157,15 @@ uses
EVALSTACKLOCS = [LOC_REGISTER,LOC_CREGISTER,LOC_FPUREGISTER,LOC_CFPUREGISTER, EVALSTACKLOCS = [LOC_REGISTER,LOC_CREGISTER,LOC_FPUREGISTER,LOC_CFPUREGISTER,
LOC_MMREGISTER,LOC_CMMREGISTER,LOC_SUBSETREG,LOC_CSUBSETREG]; LOC_MMREGISTER,LOC_CMMREGISTER,LOC_SUBSETREG,LOC_CSUBSETREG];
{*****************************************************************************
References
*****************************************************************************}
type
{ array reference types }
tarrayreftype = (art_none,art_indexreg,art_indexref,art_indexconst);
{***************************************************************************** {*****************************************************************************
Conditions Conditions
*****************************************************************************} *****************************************************************************}

2
compiler/jvm/njvmld.pas
View File

@ -66,7 +66,7 @@ uses
symconst,symsym,symdef,symtable,defutil,jvmdef, symconst,symsym,symdef,symtable,defutil,jvmdef,
paramgr, paramgr,
pass_1, pass_1,
cgbase,hlcgobj,cpuinfo; cpubase,cgbase,hlcgobj,cpuinfo;
{ tjvmassignmentnode } { tjvmassignmentnode }