Merge branch 'master' of git://factorcode.org/git/factor
commit
3ad898d9b1
|
@ -282,12 +282,12 @@ HELP: fp-bitwise=
|
||||||
{ $examples
|
{ $examples
|
||||||
"Not-a-number equality:"
|
"Not-a-number equality:"
|
||||||
{ $example
|
{ $example
|
||||||
"USING: math prettyprint ;"
|
"USING: kernel math prettyprint ;"
|
||||||
"0.0 0.0 / dup number= ."
|
"0.0 0.0 / dup number= ."
|
||||||
"f"
|
"f"
|
||||||
}
|
}
|
||||||
{ $example
|
{ $example
|
||||||
"USING: math prettyprint ;"
|
"USING: kernel math prettyprint ;"
|
||||||
"0.0 0.0 / dup fp-bitwise= ."
|
"0.0 0.0 / dup fp-bitwise= ."
|
||||||
"t"
|
"t"
|
||||||
}
|
}
|
||||||
|
@ -299,7 +299,7 @@ HELP: fp-bitwise=
|
||||||
}
|
}
|
||||||
{ $example
|
{ $example
|
||||||
"USING: math prettyprint ;"
|
"USING: math prettyprint ;"
|
||||||
"-0.0 0.0 = ."
|
"-0.0 0.0 number= ."
|
||||||
"t"
|
"t"
|
||||||
}
|
}
|
||||||
} ;
|
} ;
|
||||||
|
|
|
@ -612,8 +612,8 @@ HELP: NAN:
|
||||||
{ $examples
|
{ $examples
|
||||||
{ $example
|
{ $example
|
||||||
"USE: prettyprint"
|
"USE: prettyprint"
|
||||||
"NAN: deadbeef ."
|
"NAN: 80000deadbeef ."
|
||||||
"NAN: deadbeef"
|
"NAN: 80000deadbeef"
|
||||||
}
|
}
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|
|
@ -130,9 +130,9 @@ void divide_by_zero_error()
|
||||||
general_error(ERROR_DIVIDE_BY_ZERO,F,F,NULL);
|
general_error(ERROR_DIVIDE_BY_ZERO,F,F,NULL);
|
||||||
}
|
}
|
||||||
|
|
||||||
void fp_trap_error()
|
void fp_trap_error(stack_frame *signal_callstack_top)
|
||||||
{
|
{
|
||||||
general_error(ERROR_FP_TRAP,F,F,NULL);
|
general_error(ERROR_FP_TRAP,F,F,signal_callstack_top);
|
||||||
}
|
}
|
||||||
|
|
||||||
PRIMITIVE(call_clear)
|
PRIMITIVE(call_clear)
|
||||||
|
@ -158,7 +158,7 @@ void misc_signal_handler_impl()
|
||||||
|
|
||||||
void fp_signal_handler_impl()
|
void fp_signal_handler_impl()
|
||||||
{
|
{
|
||||||
fp_trap_error();
|
fp_trap_error(signal_callstack_top);
|
||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
|
@ -60,7 +60,7 @@ static void call_fault_handler(
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
signal_number = exception == EXC_ARITHMETIC ? SIGFPE : SIGABRT;
|
signal_number = (exception == EXC_ARITHMETIC ? SIGFPE : SIGABRT);
|
||||||
MACH_PROGRAM_COUNTER(thread_state) = (cell)misc_signal_handler_impl;
|
MACH_PROGRAM_COUNTER(thread_state) = (cell)misc_signal_handler_impl;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue