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

Rename get-fpu-state entry point to fpu-state, and fix stack-checker unit tests

db4
Slava Pestov 2010-09-04 12:58:59 -07:00
parent 230064af3a
commit d2cf2d8f92
5 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/bootstrap/image/image.factor
View File

@ -201,7 +201,7 @@ SPECIAL-OBJECT: jit-declare-word 41
SPECIAL-OBJECT: c-to-factor-word 42 SPECIAL-OBJECT: c-to-factor-word 42
SPECIAL-OBJECT: lazy-jit-compile-word 43 SPECIAL-OBJECT: lazy-jit-compile-word 43
SPECIAL-OBJECT: unwind-native-frames-word 44 SPECIAL-OBJECT: unwind-native-frames-word 44
SPECIAL-OBJECT: get-fpu-state-word 45 SPECIAL-OBJECT: fpu-state-word 45
SPECIAL-OBJECT: set-fpu-state-word 46 SPECIAL-OBJECT: set-fpu-state-word 46
SPECIAL-OBJECT: callback-stub 48 SPECIAL-OBJECT: callback-stub 48
@ -542,7 +542,7 @@ M: quotation '
\ c-to-factor c-to-factor-word set \ c-to-factor c-to-factor-word set
\ lazy-jit-compile lazy-jit-compile-word set \ lazy-jit-compile lazy-jit-compile-word set
\ unwind-native-frames unwind-native-frames-word set \ unwind-native-frames unwind-native-frames-word set
\ get-fpu-state get-fpu-state-word set \ fpu-state fpu-state-word set
\ set-fpu-state set-fpu-state-word set \ set-fpu-state set-fpu-state-word set
undefined-def undefined-quot set ; undefined-def undefined-quot set ;

2
basis/cpu/x86/32/bootstrap.factor
View File

@ -128,7 +128,7 @@ IN: bootstrap.x86
FNINIT FNINIT
AX ESP [] MOV AX ESP [] MOV
ESP 2 ADD ESP 2 ADD
] \ get-fpu-state define-sub-primitive ] \ fpu-state define-sub-primitive
[ [
ESP stack-frame-size [+] FLDCW ESP stack-frame-size [+] FLDCW

2
basis/cpu/x86/64/bootstrap.factor
View File

@ -120,7 +120,7 @@ IN: bootstrap.x86
FNINIT FNINIT
AX RSP [] MOV AX RSP [] MOV
RSP 2 ADD RSP 2 ADD
] \ get-fpu-state define-sub-primitive ] \ fpu-state define-sub-primitive
[ [
RSP 2 SUB RSP 2 SUB

2
basis/stack-checker/known-words/known-words.factor
View File

@ -407,6 +407,7 @@ M: object infer-call* \ call bad-macro-input ;
\ float>bignum { float } { bignum } define-primitive \ float>bignum make-foldable \ float>bignum { float } { bignum } define-primitive \ float>bignum make-foldable
\ float>bits { real } { integer } define-primitive \ float>bits make-foldable \ float>bits { real } { integer } define-primitive \ float>bits make-foldable
\ float>fixnum { float } { fixnum } define-primitive \ bignum>fixnum make-foldable \ float>fixnum { float } { fixnum } define-primitive \ bignum>fixnum make-foldable
\ fpu-state { } { } define-primitive
\ fputc { object alien } { } define-primitive \ fputc { object alien } { } define-primitive
\ fread { integer alien } { object } define-primitive \ fread { integer alien } { object } define-primitive
\ fseek { integer integer alien } { } define-primitive \ fseek { integer integer alien } { } define-primitive
@ -444,6 +445,7 @@ M: object infer-call* \ call bad-macro-input ;
\ set-alien-unsigned-8 { integer c-ptr integer } { } define-primitive \ set-alien-unsigned-8 { integer c-ptr integer } { } define-primitive
\ set-alien-unsigned-cell { integer c-ptr integer } { } define-primitive \ set-alien-unsigned-cell { integer c-ptr integer } { } define-primitive
\ set-context-object { object fixnum } { } define-primitive \ set-context-object { object fixnum } { } define-primitive
\ set-fpu-state { } { } define-primitive
\ set-innermost-frame-quot { quotation callstack } { } define-primitive \ set-innermost-frame-quot { quotation callstack } { } define-primitive
\ set-slot { object object fixnum } { } define-primitive \ set-slot { object object fixnum } { } define-primitive
\ set-special-object { object fixnum } { } define-primitive \ set-special-object { object fixnum } { } define-primitive

2
core/bootstrap/primitives.factor
View File

@ -340,7 +340,7 @@ tuple
{ "tag" "kernel.private" (( object -- n )) } { "tag" "kernel.private" (( object -- n )) }
{ "(execute)" "kernel.private" (( word -- )) } { "(execute)" "kernel.private" (( word -- )) }
{ "(call)" "kernel.private" (( quot -- )) } { "(call)" "kernel.private" (( quot -- )) }
{ "get-fpu-state" "kernel.private" (( -- )) } { "fpu-state" "kernel.private" (( -- )) }
{ "set-fpu-state" "kernel.private" (( -- )) } { "set-fpu-state" "kernel.private" (( -- )) }
{ "unwind-native-frames" "kernel.private" (( -- )) } { "unwind-native-frames" "kernel.private" (( -- )) }
{ "set-callstack" "kernel.private" (( callstack -- * )) } { "set-callstack" "kernel.private" (( callstack -- * )) }