verify existence of set-writable before using

From-SVN: r52852

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 431490c4830cb39c92522a2e5f5327faae6ec43b..eb5c18431228c950e980e14de9aee9eb3bda5a81 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2002-04-28  Bruce Korb  <bkorb@gnu.org>
+
+       * fixinc/check.tpl(set-writable): verify that it exists before invoking.
+
 2002-04-28  Franz Sirl  <Franz.Sirl-kernel@lauterbach.com>
 
        PR c/6343

diff --git a/gcc/fixinc/check.tpl b/gcc/fixinc/check.tpl
index fd03b3ea60989084d1070e1b353d85865a4a487d..9566363018b82058c21352b46f4665a86808e7d2 100644 (file)
--- a/gcc/fixinc/check.tpl
+++ b/gcc/fixinc/check.tpl
@@ -171,6 +171,6 @@ else
 fi
 $exitok[=
 
-(set-writable)
+(if (procedure? 'set-writable) (set-writable))
 
 =]