Mercurial > octave-nkf

changeset 662:fdf4ce2d855e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-08-30 04:49:31 by jwe]
author jwe
date Tue, 30 Aug 1994 04:49:50 +0000
parents 9ccf86647203
children 9293c023dd2d
files src/pt-plot.cc src/utils.cc
diffstat 2 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/pt-plot.cc	Tue Aug 30 04:46:17 1994 +0000
+++ b/src/pt-plot.cc	Tue Aug 30 04:49:50 1994 +0000
@@ -806,7 +806,7 @@
 char *
 save_in_tmp_file (tree_constant& t, int ndim, int parametric)
 {
-  char *name = strsave (octave_tmp_file_name ());
+  char *name = octave_tmp_file_name ();
   if (name)
     {
       ofstream file (name);
@@ -828,7 +828,6 @@
       else
 	{
 	  error ("couldn't open temporary output file `%s'", name);
-	  delete [] name;
 	  name = 0;
 	}
     }
--- a/src/utils.cc	Tue Aug 30 04:46:17 1994 +0000
+++ b/src/utils.cc	Tue Aug 30 04:49:50 1994 +0000
@@ -189,9 +189,16 @@
 char *
 octave_tmp_file_name (void)
 {
-  char *retval = tempnam (0, "oct-");
+  static char *retval = 0;
+
+  if (retval)
+    free (retval);
+
+  retval = tempnam (0, "oct-");
+
   if (! retval)
     error ("can't open temporary file!");
+
   return retval;
 }