|
version 1.1, 2002/04/01 15:34:36
|
version 1.5, 2007/12/31 17:34:59
|
|
Line 1
|
Line 1
|
| \ test signal catching |
\ test signal catching |
| |
|
| \ Copyright (C) 2002 Free Software Foundation, Inc. |
\ Copyright (C) 2002,2003,2007 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) |
| |
0 ' @ catch 2drop |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to signals.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / test