Minor tweaks
parent
5a8bd7b3c6
commit
b0b6da4f86
|
@ -199,7 +199,8 @@ M: read1-task task-container drop read-tasks get-global ;
|
|||
] when pending-error ;
|
||||
|
||||
M: input-port stream-read1 ( stream -- char/f )
|
||||
dup wait-to-read1 dup port-eof? [ drop f ] [ buffer-pop ] if ;
|
||||
dup wait-to-read1
|
||||
dup port-eof? [ drop f ] [ buffer-pop ] if ;
|
||||
|
||||
! Reading character counts
|
||||
: read-step ( count reader -- ? )
|
||||
|
|
|
@ -72,8 +72,8 @@ catch_exception_raise (mach_port_t exception_port,
|
|||
save_thread_state = thread_state;
|
||||
|
||||
SIGSEGV_PROGRAM_COUNTER (thread_state) = (unsigned long) terminating_handler;
|
||||
pass_arg0(&thread_state,SIGSEGV_EXC_STATE_FAULT(exc_state));
|
||||
SIGSEGV_STACK_POINTER (thread_state) = fix_stack_ptr(sp);
|
||||
pass_arg0(&thread_state,SIGSEGV_EXC_STATE_FAULT(exc_state));
|
||||
|
||||
/* See http://web.mit.edu/darwin/src/modules/xnu/osfmk/man/thread_set_state.html. */
|
||||
if (thread_set_state (thread, SIGSEGV_THREAD_STATE_FLAVOR,
|
||||
|
|
Loading…
Reference in New Issue