# HG changeset patch
# User jwe
# Date 764500749 0
# Node ID 27ef550be39e0fd9a9c3394b11882703c05d1146
# Parent  e4d447c3eb0bacdb49bb346d3f7243fa44bd111d
[project @ 1994-03-24 09:19:09 by jwe]

diff --git a/src/pt-const.cc b/src/pt-const.cc
--- a/src/pt-const.cc
+++ b/src/pt-const.cc
@@ -1430,10 +1430,13 @@
 	  *ptr = '\0';
 	  is_global = (strncmp (tag, "global", 6) == 0);
 	  *ptr = ' ';
-	  ptr++;
+	  if (is_global)
+	    ptr++;
+	  else
+	    ptr = tag;
 	}
       else
-	ptr = &tag[0];
+	ptr = tag;
 
       if (strncmp (ptr, "scalar", 6) == 0)
 	type_tag = load (is, scalar_constant);
@@ -1491,6 +1494,7 @@
       }
       break;
     case complex_scalar_constant:
+      complex_scalar = new Complex;
       is >> *complex_scalar;
       if (is)
 	status = complex_scalar_constant;