version 1.2, 2003/02/02 11:05:50
|
version 1.4, 2007/09/16 16:26:11
|
Line 1
|
Line 1
|
\ test signal catching |
\ test signal catching |
|
|
\ Copyright (C) 2002 Free Software Foundation, Inc. |
\ Copyright (C) 2002,2003 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 20
|
Line 20
|
|
|
|
|
\ the following sequence crashes gforth-0.5.0 on Linux-PPC |
\ the following sequence crashes gforth-0.5.0 on Linux-PPC |
: down 1- ; |
\ but testing it can cause a bug on Solaris-i386, because apparently |
' down 1- ' execute catch 2drop |
\ some code from the stack is executed that corrupts something, so |
|
\ interpreting the next line crashes |
|
\ : down 1- ; |
|
\ ' down 1- ' execute catch 2drop |
|
|
\ test if SIGSEGV handler really works (in particular sigaltstack) |
\ test if SIGSEGV handler really works (in particular sigaltstack) |
0 ' @ catch 2drop |
0 ' @ catch 2drop |