steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Björn Lindqvist 2016-06-07 14:54:23 +02:00
parent 6b95813dbc
commit 6984bae7ca
6 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/bootstrap/assembler/ppc.factor
View File

@ -149,7 +149,7 @@ IN: bootstrap.ppc
[ [
3 jit-load-literal-arg 3 jit-load-literal-arg
3 ds-reg cell-size jit-save-cell-update 3 ds-reg cell-size jit-save-cell-update
] JIT-PUSH-IMMEDIATE jit-define ] JIT-PUSH-LITERAL jit-define
[ [
jit-save-context jit-save-context

2
basis/bootstrap/assembler/x86.factor
View File

@ -88,7 +88,7 @@ big-endian off
ds-reg bootstrap-cell ADD ds-reg bootstrap-cell ADD
! store literal on datastack ! store literal on datastack
ds-reg [] temp0 MOV ds-reg [] temp0 MOV
] JIT-PUSH-IMMEDIATE jit-define ] JIT-PUSH-LITERAL jit-define
[ [
0 CALL f rc-relative rel-word-pic 0 CALL f rc-relative rel-word-pic

7
core/kernel/kernel-docs.factor
View File

@ -2,12 +2,15 @@ USING: alien arrays classes combinators help.markup help.syntax
kernel.private layouts math quotations system words ; kernel.private layouts math quotations system words ;
IN: kernel IN: kernel
HELP: WIN-EXCEPTION-HANDLER HELP: JIT-PUSH-LITERAL
{ $description "This special object is an " { $link alien } " containing a pointer to the processes global exception handler. Only applicable on " { $link windows } "." } ; { $description "JIT code template for pushing literals unto the datastack." } ;
HELP: OBJ-UNDEFINED HELP: OBJ-UNDEFINED
{ $description "Default definition for undefined words" } ; { $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? HELP: eq?
{ $values { "obj1" object } { "obj2" object } { "?" boolean } } { $values { "obj1" object } { "obj2" object } { "?" boolean } }
{ $description "Tests if two references point at the same object." } ; { $description "Tests if two references point at the same object." } ;

2
core/kernel/kernel.factor
View File

@ -348,7 +348,7 @@ CONSTANT: JIT-SAFEPOINT 30
CONSTANT: JIT-EPILOG 31 CONSTANT: JIT-EPILOG 31
CONSTANT: JIT-RETURN 32 CONSTANT: JIT-RETURN 32
CONSTANT: JIT-UNUSED 33 CONSTANT: JIT-UNUSED 33
CONSTANT: JIT-PUSH-IMMEDIATE 34 CONSTANT: JIT-PUSH-LITERAL 34
CONSTANT: JIT-DIP-WORD 35 CONSTANT: JIT-DIP-WORD 35
CONSTANT: JIT-DIP 36 CONSTANT: JIT-DIP 36
CONSTANT: JIT-2DIP-WORD 37 CONSTANT: JIT-2DIP-WORD 37

2
vm/jit.hpp
View File

@ -32,7 +32,7 @@ struct jit {
/* Allocates memory */ /* Allocates memory */
void push(cell literal) { 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); bool emit_subprimitive(cell word_, bool tail_call_p, bool stack_frame_p);

2
vm/objects.hpp
View File

@ -44,7 +44,7 @@ enum special_object {
JIT_EPILOG, JIT_EPILOG,
JIT_RETURN, JIT_RETURN,
JIT_UNUSED, JIT_UNUSED,
JIT_PUSH_IMMEDIATE, JIT_PUSH_LITERAL,
JIT_DIP_WORD, JIT_DIP_WORD,
JIT_DIP, JIT_DIP,
JIT_2DIP_WORD, JIT_2DIP_WORD,