Fix PPC compile errors
							parent
							
								
									cc09f334ef
								
							
						
					
					
						commit
						06d9d4db16
					
				| 
						 | 
				
			
			@ -14,13 +14,13 @@ big-endian on
 | 
			
		|||
: ds-reg 14 ;
 | 
			
		||||
: rs-reg 15 ;
 | 
			
		||||
 | 
			
		||||
: factor-area-size 4 bootstrap-cells ;
 | 
			
		||||
: factor-area-size ( -- n ) 4 bootstrap-cells ;
 | 
			
		||||
 | 
			
		||||
: stack-frame
 | 
			
		||||
: stack-frame ( -- n )
 | 
			
		||||
    factor-area-size c-area-size + 4 bootstrap-cells align ;
 | 
			
		||||
 | 
			
		||||
: next-save stack-frame bootstrap-cell - ;
 | 
			
		||||
: xt-save stack-frame 2 bootstrap-cells - ;
 | 
			
		||||
: next-save ( -- n ) stack-frame bootstrap-cell - ;
 | 
			
		||||
: xt-save ( -- n ) stack-frame 2 bootstrap-cells - ;
 | 
			
		||||
 | 
			
		||||
[
 | 
			
		||||
    0 6 LOAD32
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -3,8 +3,8 @@
 | 
			
		|||
USING: parser layouts system kernel ;
 | 
			
		||||
IN: bootstrap.ppc
 | 
			
		||||
 | 
			
		||||
: c-area-size 10 bootstrap-cells ;
 | 
			
		||||
: lr-save bootstrap-cell ;
 | 
			
		||||
: c-area-size ( -- n ) 10 bootstrap-cells ;
 | 
			
		||||
: lr-save ( -- n ) bootstrap-cell ;
 | 
			
		||||
 | 
			
		||||
<< "resource:core/cpu/ppc/bootstrap.factor" parse-file parsed >>
 | 
			
		||||
call
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -3,8 +3,8 @@
 | 
			
		|||
USING: parser layouts system kernel ;
 | 
			
		||||
IN: bootstrap.ppc
 | 
			
		||||
 | 
			
		||||
: c-area-size 14 bootstrap-cells ;
 | 
			
		||||
: lr-save 2 bootstrap-cells ;
 | 
			
		||||
: c-area-size ( -- n ) 14 bootstrap-cells ;
 | 
			
		||||
: lr-save ( -- n ) 2 bootstrap-cells ;
 | 
			
		||||
 | 
			
		||||
<< "resource:core/cpu/ppc/bootstrap.factor" parse-file parsed >>
 | 
			
		||||
call
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue