![[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|
Return to signals.fs CVS log | Up to [gforth] / gforth / test |
| version 1.1, 2002/04/01 15:34:36 | version 1.3, 2003/03/09 15:17:08 |
|---|---|
| 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 23 | Line 23 |
| : down 1- ; | : down 1- ; |
| ' down 1- ' execute catch 2drop | ' down 1- ' execute catch 2drop |
| \ test if SIGSEGV handler really works (in particular sigaltstack) | |
| 0 ' @ catch 2drop |