diff options
| -rw-r--r-- | gcc/testsuite/objc/execute/exceptions/catchall-1.m (renamed from gcc/testsuite/objc.dg/try-catch-2.m) | 3 | ||||
| -rw-r--r-- | gcc/testsuite/objc/execute/exceptions/exceptions.exp | 42 | ||||
| -rw-r--r-- | gcc/testsuite/objc/execute/exceptions/foward-1.m (renamed from gcc/testsuite/objc.dg/try-catch-11.m) | 5 | ||||
| -rw-r--r-- | gcc/testsuite/objc/execute/exceptions/local-variables-1.m (renamed from gcc/testsuite/objc.dg/try-catch-8.m) | 3 | ||||
| -rw-r--r-- | gcc/testsuite/objc/execute/exceptions/trivial.m | 7 |
5 files changed, 50 insertions, 10 deletions
diff --git a/gcc/testsuite/objc.dg/try-catch-2.m b/gcc/testsuite/objc/execute/exceptions/catchall-1.m index 35d60e9..ac7d127 100644 --- a/gcc/testsuite/objc.dg/try-catch-2.m +++ b/gcc/testsuite/objc/execute/exceptions/catchall-1.m @@ -2,9 +2,6 @@ exceptions. */ /* Developed by Ziemowit Laski <zlaski@apple.com>. */ -/* { dg-options "-fobjc-exceptions" } */ -/* { dg-do run } */ - #include <objc/Object.h> #include <stdio.h> diff --git a/gcc/testsuite/objc/execute/exceptions/exceptions.exp b/gcc/testsuite/objc/execute/exceptions/exceptions.exp new file mode 100644 index 0000000..6c21660 --- /dev/null +++ b/gcc/testsuite/objc/execute/exceptions/exceptions.exp @@ -0,0 +1,42 @@ +# Copyright (C) 1991, 1992, 1993, 1995, 1997 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +# This file was written by Rob Savoye. (rob@cygnus.com) +# Modified by Ovidiu Predescu (ovidiu@aracnet.com) + + +if $tracelevel then { + strace $tracelevel +} + +set additional_flags "" +lappend additional_flags "-fobjc-exceptions" + +# load support procs +load_lib objc-torture.exp + +# +# main test loop +# + +foreach src [lsort [glob -nocomplain $srcdir/$subdir/*.m]] { + # If we're only testing specific files and this isn't one of them, skip it. + if ![runtest_file_p $runtests $src] then { + continue + } + + objc-torture-execute $src $additional_flags +} diff --git a/gcc/testsuite/objc.dg/try-catch-11.m b/gcc/testsuite/objc/execute/exceptions/foward-1.m index 745deca..67fbfcb 100644 --- a/gcc/testsuite/objc.dg/try-catch-11.m +++ b/gcc/testsuite/objc/execute/exceptions/foward-1.m @@ -1,9 +1,6 @@ /* Check that throwing an exception from a -forward:: works. */ /* Developed by Marcin Koziej <creep@desk.pl>. */ -/* { dg-do run } */ -/* { dg-options "-fobjc-exceptions -w" } */ - #import <objc/Object.h> #import <objc/objc-api.h> #include <stdlib.h> @@ -39,4 +36,4 @@ main() abort (); return 0; -}
\ No newline at end of file +} diff --git a/gcc/testsuite/objc.dg/try-catch-8.m b/gcc/testsuite/objc/execute/exceptions/local-variables-1.m index 384faa3..79a6297 100644 --- a/gcc/testsuite/objc.dg/try-catch-8.m +++ b/gcc/testsuite/objc/execute/exceptions/local-variables-1.m @@ -2,9 +2,6 @@ block survive until the @catch block is reached. */ /* Developed by Ziemowit Laski <zlaski@apple.com>. */ -/* { dg-options "-fobjc-exceptions -O2" } */ -/* { dg-do run } */ - #include <objc/Object.h> #include <stdlib.h> #include <stdio.h> diff --git a/gcc/testsuite/objc/execute/exceptions/trivial.m b/gcc/testsuite/objc/execute/exceptions/trivial.m new file mode 100644 index 0000000..f1dce2c --- /dev/null +++ b/gcc/testsuite/objc/execute/exceptions/trivial.m @@ -0,0 +1,7 @@ +#import <objc/Object.h> + +int main(void) +{ + [Object class]; + return 0; +} |