ChangeLogTag:Mon Mar 05 00:10:15 2001 Ossama Othman <ossama@uci.edu>

4 files changed, 92 insertions, 6 deletions

diff --git a/ChangeLog b/ChangeLog
index 6c05095cf8d..29b53ccd1b6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,8 +1,16 @@
-Mon Mar  5 07:57:07 2001  Johnny Willemsen
+Mon Mar 05 00:10:15 2001  Ossama Othman  <ossama@uci.edu>
+
+	* bin/fuzz.pl:
+
+	  Updated to detect missing ACE_TRY_ENV parameters in
+	  ORB::resolve_initial_references() calls when emulated exceptions
+	  are used.  Thanks to Darrell for providing this update.
+
+Mon Mar  5 07:57:07 2001  Johnny Willemsen <jwillemsen@remedy.nl>
 
         * tests/Makefile.bor:
 
-        Added missing Refcounted_Auto_Ptr_Test to the build
+          Added missing Refcounted_Auto_Ptr_Test to the build
 
 Sun Mar  4 19:31:16 2001  Darrell Brunsch <brunsch@uci.edu>
 
diff --git a/ChangeLogs/ChangeLog-02a b/ChangeLogs/ChangeLog-02a
index 6c05095cf8d..29b53ccd1b6 100644
--- a/ChangeLogs/ChangeLog-02a
+++ b/ChangeLogs/ChangeLog-02a
@@ -1,8 +1,16 @@
-Mon Mar  5 07:57:07 2001  Johnny Willemsen
+Mon Mar 05 00:10:15 2001  Ossama Othman  <ossama@uci.edu>
+
+	* bin/fuzz.pl:
+
+	  Updated to detect missing ACE_TRY_ENV parameters in
+	  ORB::resolve_initial_references() calls when emulated exceptions
+	  are used.  Thanks to Darrell for providing this update.
+
+Mon Mar  5 07:57:07 2001  Johnny Willemsen <jwillemsen@remedy.nl>
 
         * tests/Makefile.bor:
 
-        Added missing Refcounted_Auto_Ptr_Test to the build
+          Added missing Refcounted_Auto_Ptr_Test to the build
 
 Sun Mar  4 19:31:16 2001  Darrell Brunsch <brunsch@uci.edu>
 
diff --git a/ChangeLogs/ChangeLog-03a b/ChangeLogs/ChangeLog-03a
index 6c05095cf8d..29b53ccd1b6 100644
--- a/ChangeLogs/ChangeLog-03a
+++ b/ChangeLogs/ChangeLog-03a
@@ -1,8 +1,16 @@
-Mon Mar  5 07:57:07 2001  Johnny Willemsen
+Mon Mar 05 00:10:15 2001  Ossama Othman  <ossama@uci.edu>
+
+	* bin/fuzz.pl:
+
+	  Updated to detect missing ACE_TRY_ENV parameters in
+	  ORB::resolve_initial_references() calls when emulated exceptions
+	  are used.  Thanks to Darrell for providing this update.
+
+Mon Mar  5 07:57:07 2001  Johnny Willemsen <jwillemsen@remedy.nl>
 
         * tests/Makefile.bor:
 
-        Added missing Refcounted_Auto_Ptr_Test to the build
+          Added missing Refcounted_Auto_Ptr_Test to the build
 
 Sun Mar  4 19:31:16 2001  Darrell Brunsch <brunsch@uci.edu>
 
diff --git a/bin/fuzz.pl b/bin/fuzz.pl
index 9cfeddf036c..628c9d5753a 100755
--- a/bin/fuzz.pl
+++ b/bin/fuzz.pl
@@ -627,6 +627,67 @@ sub check_for_bad_ace_trace()
     }
 }
 
+
+
+# This test checks missing ACE_TRY_ENV when using 
+# resolve_initial_references
+sub check_for_missing_rir_env ()
+{
+    print "Running resolve_inital_references() check\n";
+    foreach $file (@files_cpp, @files_inl) {
+        my $line = 0;
+        if (open (FILE, $file)) {
+            my $disable = 0;
+            my $native_try = 0;
+            my $in_rir = 0;
+            my $found_env = 0;
+
+            print "Looking at file $file\n" if $opt_d;
+            while (<FILE>) {
+                ++$line;
+                if (/FUZZ\: disable check_for_missing_rir_env/) {
+                    $disable = 1;
+                }
+                if (/FUZZ\: enable check_for_missing_rir_env/) {
+                    $disable = 0;
+                }
+                if ($disable == 0) {
+                    if (m/try\s*\{/) {
+                        $disable = 1;
+                        next;
+                    }
+
+                    if (m/resolve_initial_references\s*\(/) {
+                        $found_env = 0;
+                        $in_rir = 1;
+                    }
+
+                    if (m/ACE_TRY_ENV/) {
+                        $found_env = 1;
+                    }
+
+                    if ($in_rir == 1 && m/\;\s*$/) {
+                        $in_rir = 0;
+                        if ($found_env != 1) {
+                            print_error ("Missing ACE_TRY_ENV in"
+					 . " resolve_initial_references"
+                                         . " in $file ($line)");
+                        }
+                        $found_env = 0;
+                    }
+                    
+                }
+            }
+            close (FILE);
+        }
+        else {
+            print STDERR "Error: Could not open $file\n";
+        }
+    }
+}
+
+
+
 ##############################################################################
 
 #our ($opt_c, $opt_d, $opt_h, $opt_l, $opt_m, $opt_v);
@@ -675,6 +736,7 @@ check_for_mismatched_filename () if ($opt_l >= 2);
 check_for_bad_run_test () if ($opt_l >= 6);
 check_for_absolute_ace_wrappers () if ($opt_l >= 3);
 check_for_bad_ace_trace () if ($opt_l >= 4);
+check_for_missing_rir_env () if ($opt_l >= 5);
 
 print "\nFuzz.pl - $errors error(s), $warnings warning(s)\n";