Changeset 6250 for trunk/Ohana/src/opihi/lib.shell/dvomath.c

Timestamp:

Jan 29, 2006, 9:59:45 AM (20 years ago)

Author:

eugene

Message:

fixed evaluation of zero-padded ints

File:

• trunk/Ohana/src/opihi/lib.shell/dvomath.c (modified) (2 diffs)

trunk/Ohana/src/opihi/lib.shell/dvomath.c

@@ -57 +57 @@
 
   /* evaluate operations, free stack on error */
+  Ncstack = Nstack;
   if (!evaluate_stack (stack, &Nstack)) {
     if (*size == 1) DeleteVector (vec);
@@ -65 +66 @@
   switch (*size) {
     case 0:
-      sprintf (outname, "%.12g", stack[0].Float);
+      if (Ncstack == 1) {
+          /* use exact input work */
+          sprintf (outname, "%s", stack[0].name);
+      } else {
+          sprintf (outname, "%.12g", stack[0].Float);
+      }
       break;