From 721a4f13e6527fec77c40a595c48be71942102f0 Mon Sep 17 00:00:00 2001 From: Vasiliy Fofanov Date: Fri, 17 Feb 2006 17:07:22 +0100 Subject: [PATCH] init.c (facility_resignal_table): new array 2006-02-17 Vasiliy Fofanov * init.c (facility_resignal_table): new array (__gnat_default_resignal_p): enhance default predicate to resignal if VMS condition has one of the predefined facility codes. From-SVN: r111189 --- gcc/ada/init.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/gcc/ada/init.c b/gcc/ada/init.c index eb10d6363f1..11dc19de4f3 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -1308,6 +1308,12 @@ const int *cond_resignal_table [] = { 0 }; +const int facility_resignal_table [] = { + 0x1380000, /* RDB */ + 0x2220000, /* SQL */ + 0 +}; + /* Default GNAT predicate for resignaling conditions. */ static int @@ -1315,6 +1321,10 @@ __gnat_default_resignal_p (int code) { int i, iexcept; + for (i = 0; facility_resignal_table [i]; i++) + if ((code & 0xfff0000) == facility_resignal_table [i]) + return 1; + for (i = 0, iexcept = 0; cond_resignal_table [i] && !(iexcept = LIB$MATCH_COND (&code, &cond_resignal_table [i])); -- 2.30.2