VM: rename of JIT_PUSH_IMMEDIATE to JIT_PUSH_LITERAL
The code template pushes both immediates and references so the name was wrong.locals-and-roots
							parent
							
								
									6b95813dbc
								
							
						
					
					
						commit
						6984bae7ca
					
				| 
						 | 
				
			
			@ -149,7 +149,7 @@ IN: bootstrap.ppc
 | 
			
		|||
[
 | 
			
		||||
    3 jit-load-literal-arg
 | 
			
		||||
    3 ds-reg cell-size jit-save-cell-update
 | 
			
		||||
] JIT-PUSH-IMMEDIATE jit-define
 | 
			
		||||
] JIT-PUSH-LITERAL jit-define
 | 
			
		||||
 | 
			
		||||
[
 | 
			
		||||
    jit-save-context
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -88,7 +88,7 @@ big-endian off
 | 
			
		|||
    ds-reg bootstrap-cell ADD
 | 
			
		||||
    ! store literal on datastack
 | 
			
		||||
    ds-reg [] temp0 MOV
 | 
			
		||||
] JIT-PUSH-IMMEDIATE jit-define
 | 
			
		||||
] JIT-PUSH-LITERAL jit-define
 | 
			
		||||
 | 
			
		||||
[
 | 
			
		||||
    0 CALL f rc-relative rel-word-pic
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -2,12 +2,15 @@ USING: alien arrays classes combinators help.markup help.syntax
 | 
			
		|||
kernel.private layouts math quotations system words ;
 | 
			
		||||
IN: kernel
 | 
			
		||||
 | 
			
		||||
HELP: WIN-EXCEPTION-HANDLER
 | 
			
		||||
{ $description "This special object is an " { $link alien } " containing a pointer to the processes global exception handler. Only applicable on " { $link windows } "." } ;
 | 
			
		||||
HELP: JIT-PUSH-LITERAL
 | 
			
		||||
{ $description "JIT code template for pushing literals unto the datastack." } ;
 | 
			
		||||
 | 
			
		||||
HELP: OBJ-UNDEFINED
 | 
			
		||||
{ $description "Default definition for undefined words" } ;
 | 
			
		||||
 | 
			
		||||
HELP: WIN-EXCEPTION-HANDLER
 | 
			
		||||
{ $description "This special object is an " { $link alien } " containing a pointer to the processes global exception handler. Only applicable on " { $link windows } "." } ;
 | 
			
		||||
 | 
			
		||||
HELP: eq?
 | 
			
		||||
{ $values { "obj1" object } { "obj2" object } { "?" boolean } }
 | 
			
		||||
{ $description "Tests if two references point at the same object." } ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -348,7 +348,7 @@ CONSTANT: JIT-SAFEPOINT 30
 | 
			
		|||
CONSTANT: JIT-EPILOG 31
 | 
			
		||||
CONSTANT: JIT-RETURN 32
 | 
			
		||||
CONSTANT: JIT-UNUSED 33
 | 
			
		||||
CONSTANT: JIT-PUSH-IMMEDIATE 34
 | 
			
		||||
CONSTANT: JIT-PUSH-LITERAL 34
 | 
			
		||||
CONSTANT: JIT-DIP-WORD 35
 | 
			
		||||
CONSTANT: JIT-DIP 36
 | 
			
		||||
CONSTANT: JIT-2DIP-WORD 37
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -32,7 +32,7 @@ struct jit {
 | 
			
		|||
 | 
			
		||||
  /* Allocates memory */
 | 
			
		||||
  void push(cell literal) {
 | 
			
		||||
    emit_with_literal(parent->special_objects[JIT_PUSH_IMMEDIATE], literal);
 | 
			
		||||
    emit_with_literal(parent->special_objects[JIT_PUSH_LITERAL], literal);
 | 
			
		||||
  }
 | 
			
		||||
 | 
			
		||||
  bool emit_subprimitive(cell word_, bool tail_call_p, bool stack_frame_p);
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -44,7 +44,7 @@ enum special_object {
 | 
			
		|||
  JIT_EPILOG,
 | 
			
		||||
  JIT_RETURN,
 | 
			
		||||
  JIT_UNUSED,
 | 
			
		||||
  JIT_PUSH_IMMEDIATE,
 | 
			
		||||
  JIT_PUSH_LITERAL,
 | 
			
		||||
  JIT_DIP_WORD,
 | 
			
		||||
  JIT_DIP,
 | 
			
		||||
  JIT_2DIP_WORD,
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue