mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-10-31 01:11:29 +01:00 
			
		
		
		
	* moved jvm-specific tarrayreftype from cgutils to jvm/cpubase
git-svn-id: trunk@27148 -
This commit is contained in:
		
							parent
							
								
									c003f934c5
								
							
						
					
					
						commit
						908bbed312
					
				| @ -43,9 +43,6 @@ unit cgutils; | ||||
|       { Set type definition for cpuregisters } | ||||
|       tcpuregisterset = set of 0..maxcpuregister; | ||||
| 
 | ||||
| {$ifdef jvm} | ||||
|       tarrayreftype = (art_none,art_indexreg,art_indexref,art_indexconst); | ||||
| {$endif jvm} | ||||
|       { reference record, reordered for best alignment } | ||||
|       preference = ^treference; | ||||
|       treference = record | ||||
|  | ||||
| @ -157,6 +157,15 @@ uses | ||||
|      EVALSTACKLOCS = [LOC_REGISTER,LOC_CREGISTER,LOC_FPUREGISTER,LOC_CFPUREGISTER, | ||||
|        LOC_MMREGISTER,LOC_CMMREGISTER,LOC_SUBSETREG,LOC_CSUBSETREG]; | ||||
| 
 | ||||
| 
 | ||||
| {***************************************************************************** | ||||
|                                References | ||||
| *****************************************************************************} | ||||
| 
 | ||||
|    type | ||||
|      { array reference types } | ||||
|      tarrayreftype = (art_none,art_indexreg,art_indexref,art_indexconst); | ||||
| 
 | ||||
| {***************************************************************************** | ||||
|                                 Conditions | ||||
| *****************************************************************************} | ||||
|  | ||||
| @ -66,7 +66,7 @@ uses | ||||
|   symconst,symsym,symdef,symtable,defutil,jvmdef, | ||||
|   paramgr, | ||||
|   pass_1, | ||||
|   cgbase,hlcgobj,cpuinfo; | ||||
|   cpubase,cgbase,hlcgobj,cpuinfo; | ||||
| 
 | ||||
| { tjvmassignmentnode } | ||||
| 
 | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user
	 Jonas Maebe
						Jonas Maebe