[PATCH] Change NUMVAL_FMT to FLOATVAL_FMT

[David M. Lloyd]

Subject says it all...

Index: Configure.pl
===================================================================
RCS file: /home/perlcvs/parrot/Configure.pl,v
retrieving revision 1.77
diff -a -u -r1.77 Configure.pl
--- Configure.pl        9 Jan 2002 17:24:11 -0000       1.77
+++ Configure.pl        12 Jan 2002 16:55:34 -0000
@@ -171,7 +171,7 @@
     longsize      => undef,

     intvalfmt     => '%ld',
-    numvalfmt     => '%f',
+    floatvalfmt     => '%f',

     cc            => $Config{cc},

@@ -562,9 +562,9 @@
 }

 if ($c{nv} eq "double") {
-    $c{numvalfmt} = "%f";
+    $c{floatvalfmt} = "%f";
 } elsif ($c{nv} eq "long double") {
-    $c{numvalfmt} = "%lf";
+    $c{floatvalfmt} = "%lf";
 } else {
     die "Configure.pl:  Can't find a printf-style format specifier for type 
\"$c{nv}\"\n";
 }
Index: config_h.in
===================================================================
RCS file: /home/perlcvs/parrot/config_h.in,v
retrieving revision 1.16
diff -a -u -r1.16 config_h.in
--- config_h.in 11 Jan 2002 19:33:38 -0000      1.16
+++ config_h.in 12 Jan 2002 16:55:34 -0000
@@ -50,7 +50,7 @@
 #define PARROT_CORE_OPLIB_INIT
Parrot_DynOp_core_${MAJOR}_${MINOR}_${PATCH}

 #define INTVAL_FMT "${intvalfmt}"
-#define NUMVAL_FMT "${numvalfmt}"
+#define FLOATVAL_FMT "${floatvalfmt}"

 ${headers}

Index: core.ops
===================================================================
RCS file: /home/perlcvs/parrot/core.ops,v
retrieving revision 1.76
diff -a -u -r1.76 core.ops
--- core.ops    11 Jan 2002 18:05:35 -0000      1.76
+++ core.ops    12 Jan 2002 16:55:34 -0000
@@ -258,7 +258,7 @@
 }

 inline op print(in NUM) {
-  printf(NUMVAL_FMT, $1);
+  printf(FLOATVAL_FMT, $1);
   goto NEXT();
 }

@@ -316,7 +316,7 @@
                 break;
        default: file = (FILE *)$1;
   }
-  fprintf(file, NUMVAL_FMT, $2);
+  fprintf(file, FLOATVAL_FMT, $2);
   goto NEXT();
 }

Index: classes/perlnum.pmc
===================================================================
RCS file: /home/perlcvs/parrot/classes/perlnum.pmc,v
retrieving revision 1.14
diff -a -u -r1.14 perlnum.pmc
--- classes/perlnum.pmc 9 Jan 2002 17:24:15 -0000       1.14
+++ classes/perlnum.pmc 12 Jan 2002 16:55:37 -0000
@@ -64,9 +64,9 @@
        char* buff = mem_sys_allocate(80);
        STRING* s;
 #ifdef HAS_SNPRINTF
-        snprintf(buff,80,NUMVAL_FMT,SELF->cache.num_val);
+        snprintf(buff,80,FLOATVAL_FMT,SELF->cache.num_val);
 #else
-        sprintf(buff,NUMVAL_FMT,SELF->cache.num_val);  /* XXX buffer overflow! */
+        sprintf(buff,FLOATVAL_FMT,SELF->cache.num_val);  /* XXX buffer overflow! */
 #endif
        s = string_make(INTERP,buff,strlen(buff),NULL,0,NULL);
        free(buff);


- D

<[EMAIL PROTECTED]>