# HG changeset patch
# User jwe
# Date 752967724 0
# Node ID c8863fc976eec78fc0b49fef6a031c91a8cf06fd
# Parent  1761d7a3770ca845a06ea56cecc009880bc59a72
[project @ 1993-11-10 21:42:04 by jwe]

diff --git a/src/variables.cc b/src/variables.cc
--- a/src/variables.cc
+++ b/src/variables.cc
@@ -350,7 +350,10 @@
     {
 // Would be nice not to have this cast.  XXX FIXME XXX
       tree_constant *tmp = (tree_constant *) sr->def ();
-      tmp = new tree_constant (*tmp);
+      if (tmp == NULL_TREE_CONST)
+	tmp = new tree_constant ();
+      else
+	tmp = new tree_constant (*tmp);
       gsr->define (tmp);
     }
   else