mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-10-31 10:11:27 +01:00 
			
		
		
		
	* adapted for Peter's regvar fixes
This commit is contained in:
		
							parent
							
								
									59dae8729c
								
							
						
					
					
						commit
						66792ee44e
					
				| @ -533,9 +533,9 @@ uses | |||||||
|       lastsavemmreg   = R_NO; |       lastsavemmreg   = R_NO; | ||||||
| 
 | 
 | ||||||
|       maxvarregs = 17; |       maxvarregs = 17; | ||||||
|       varregs : Array [1..maxvarregs] of Toldregister = |       varregs : Array [1..maxvarregs] of Tnewregister = | ||||||
|                 (R_14,R_15,R_16,R_17,R_18,R_19,R_20,R_21,R_22,R_23,R_24,R_25, |                 (RS_R14,RS_R15,RS_R16,RS_R17,RS_R18,RS_R19,RS_R20,RS_R21, | ||||||
|                  R_26,R_27,R_28,R_29,R_30); |                  RS_R22,RS_R23,RS_R24,RS_R25,RS_R26,RS_R27,RS_R28,RS_R29,RS_R30); | ||||||
| 
 | 
 | ||||||
|       maxfpuvarregs = 31-14+1; |       maxfpuvarregs = 31-14+1; | ||||||
|       fpuvarregs : Array [1..maxfpuvarregs] of Toldregister = |       fpuvarregs : Array [1..maxfpuvarregs] of Toldregister = | ||||||
| @ -852,7 +852,10 @@ implementation | |||||||
| end. | end. | ||||||
| { | { | ||||||
|   $Log$ |   $Log$ | ||||||
|   Revision 1.50  2003-05-15 22:14:43  florian |   Revision 1.51  2003-05-16 16:26:05  jonas | ||||||
|  |     * adapted for Peter's regvar fixes | ||||||
|  | 
 | ||||||
|  |   Revision 1.50  2003/05/15 22:14:43  florian | ||||||
|     * fixed last commit, changing lastsaveintreg to r31 caused some strange problems |     * fixed last commit, changing lastsaveintreg to r31 caused some strange problems | ||||||
| 
 | 
 | ||||||
|   Revision 1.49  2003/05/15 21:37:00  florian |   Revision 1.49  2003/05/15 21:37:00  florian | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user
	 Jonas Maebe
						Jonas Maebe