Mercurial > octave-nkf

changeset 394:27ef550be39e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-03-24 09:19:09 by jwe]
author jwe
date Thu, 24 Mar 1994 09:19:09 +0000
parents e4d447c3eb0b
children ee3da0884aaa
files src/pt-const.cc
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/pt-const.cc	Wed Mar 23 22:24:18 1994 +0000
+++ b/src/pt-const.cc	Thu Mar 24 09:19:09 1994 +0000
@@ -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;