procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

exceptions.exp: New exp for the exceptions testsuite.

Browse source 
* objc/execute/exceptions/exceptions.exp: New exp for the exceptions
	testsuite.
	* objc/execute/exceptions/trivial.m: New test.
	* objc.dg/try-catch-11.m: Move to ...
	* objc/execute/exceptions/foward-1.m: Here.
	* objc.dg/try-catch-2.m: Move to ...
	* objc/execute/exceptions/catchall-1.m: Here.
	* objc.dg/try-catch-8.m: Move to ...
	* objc/execute/exceptions/local-variables-1.m: Here.

From-SVN: r103071
This commit is contained in:
Andrew Pinski 2005-08-13 17:58:26 -07:00
parent ba35b9c4ae
commit d3748cf565
5 changed files with 50 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gcc/testsuite/objc.dg/try-catch-2.m → gcc/testsuite/objc/execute/exceptions/catchall-1.m
View file

@ -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>

42
gcc/testsuite/objc/execute/exceptions/exceptions.exp Normal file
View file

@ -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
}

5
gcc/testsuite/objc.dg/try-catch-11.m → gcc/testsuite/objc/execute/exceptions/foward-1.m
View file

@ -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;
}
}

3
gcc/testsuite/objc.dg/try-catch-8.m → gcc/testsuite/objc/execute/exceptions/local-variables-1.m
View file

@ -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>

7
gcc/testsuite/objc/execute/exceptions/trivial.m Normal file
View file

@ -0,0 +1,7 @@
#import <objc/Object.h>
int main(void)
{
[Object class];
return 0;
}