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

VM: the ffi-signal-handler and ffi-leaf-signal-handler primitives are unused

db4
Björn Lindqvist 2015-08-29 18:29:06 +02:00
parent b28a24c7df
commit cee0b19324
6 changed files with 2 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -136,22 +136,6 @@ big-endian off
leaf-stack-frame-size bootstrap-cell - RET
] \ leaf-signal-handler define-sub-primitive
[| |
jit-signal-handler-prolog
temp0 vm-reg vm-signal-handler-addr-offset [+] MOV
temp0 CALL
jit-signal-handler-epilog
red-zone-size RET
] \ ffi-signal-handler define-sub-primitive
[| |
jit-signal-handler-prolog
temp0 vm-reg vm-signal-handler-addr-offset [+] MOV
temp0 CALL
jit-signal-handler-epilog
red-zone-size 16 bootstrap-cell - + RET
] \ ffi-leaf-signal-handler define-sub-primitive
[
! load boolean
temp0 ds-reg [] MOV

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

@ -464,8 +464,6 @@ M: quotation prepare-object
{ SET-FPU-STATE-WORD set-fpu-state }
{ SIGNAL-HANDLER-WORD signal-handler }
{ LEAF-SIGNAL-HANDLER-WORD leaf-signal-handler }
{ FFI-SIGNAL-HANDLER-WORD ffi-signal-handler }
{ FFI-LEAF-SIGNAL-HANDLER-WORD ffi-leaf-signal-handler }
}
\ OBJ-UNDEFINED undefined-def 2array suffix [
swap execute( -- x ) special-objects get set-at

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

@ -368,8 +368,6 @@ M: object infer-call* \ call bad-macro-input ;
\ enable-gc-events { } { } define-primitive
\ eq? { object object } { object } define-primitive \ eq? make-foldable
\ fclose { alien } { } define-primitive
\ ffi-signal-handler { } { } define-primitive
\ ffi-leaf-signal-handler { } { } define-primitive
\ fflush { alien } { } define-primitive
\ fgetc { alien } { object } define-primitive
\ fixnum* { fixnum fixnum } { integer } define-primitive \ fixnum* make-foldable

2
core/bootstrap/primitives.factor
View File

@ -345,8 +345,6 @@ tuple
{ "set-fpu-state" "kernel.private" ( -- ) }
{ "signal-handler" "kernel.private" ( -- ) }
{ "leaf-signal-handler" "kernel.private" ( -- ) }
{ "ffi-signal-handler" "kernel.private" ( -- ) }
{ "ffi-leaf-signal-handler" "kernel.private" ( -- ) }
{ "unwind-native-frames" "kernel.private" ( -- ) }
{ "set-callstack" "kernel.private" ( callstack -- * ) }
{ "lazy-jit-compile" "kernel.private" ( -- ) }

4
core/kernel/kernel.factor
View File

@ -41,8 +41,6 @@ PRIMITIVE: callstack-bounds ( -- start end )
PRIMITIVE: check-datastack ( array in# out# -- ? )
PRIMITIVE: compute-identity-hashcode ( obj -- )
PRIMITIVE: context-object ( n -- obj )
PRIMITIVE: ffi-leaf-signal-handler ( -- )
PRIMITIVE: ffi-signal-handler ( -- )
PRIMITIVE: fpu-state ( -- )
PRIMITIVE: innermost-frame-executing ( callstack -- obj )
PRIMITIVE: innermost-frame-scan ( callstack -- n )
@ -369,8 +367,6 @@ CONSTANT: GET-FPU-STATE-WORD 46
CONSTANT: SET-FPU-STATE-WORD 47
CONSTANT: SIGNAL-HANDLER-WORD 48
CONSTANT: LEAF-SIGNAL-HANDLER-WORD 49
CONSTANT: FFI-SIGNAL-HANDLER-WORD 50
CONSTANT: FFI-LEAF-SIGNAL-HANDLER-WORD 51
CONSTANT: REDEFINITION-COUNTER 52

4
vm/objects.hpp
View File

@ -64,8 +64,8 @@ enum special_object {
SET_FPU_STATE_WORD,
SIGNAL_HANDLER_WORD,
LEAF_SIGNAL_HANDLER_WORD,
FFI_SIGNAL_HANDLER_WORD,
FFI_LEAF_SIGNAL_HANDLER_WORD,
UNUSED1,
UNUSED2,
/* Incremented on every modify-code-heap call; invalidates call( inline
caching */