Mercurial > hg > octave-lyh

diff src/pt-const.cc @ 276:4cf3c7df0e3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-01-07 02:05:57 by jwe]
author jwe
date Fri, 07 Jan 1994 02:05:57 +0000
parents 23866011a5f2
children c64f870ac8d9
line wrap: on
line diff
--- a/src/pt-const.cc
+++ b/src/pt-const.cc
@@ -1274,7 +1274,7 @@
 }
 
 int
-tree_constant_rep::save (ostream& os, int mark_as_global)
+tree_constant_rep::save (ostream& os, int mark_as_global, int precision)
 {
   switch (type_tag)
     {
@@ -1294,6 +1294,9 @@
       break;
     }
 
+  long old_precision = os.precision ();
+  os.precision (precision);
+
   switch (type_tag)
     {
     case scalar_constant:
@@ -1335,6 +1338,9 @@
       panic_impossible ();
       break;
     }
+
+  os.precision (old_precision);
+
 // Really want to return 1 only if write is successful.
   return 1;
 }