Ok, my previous patch to assemble.pl caused somethings to core dump...I
promise this one won't :)  It fixes the problem with numeric values having
the wrong pack type.  Also, config_h.in was changed to typedef ${iv} double
NV to typedef ${nv} NV

Index: assemble.pl
===================================================================
RCS file: /home/perlcvs/parrot/assemble.pl,v
retrieving revision 1.17
diff -u -r1.17 assemble.pl
--- assemble.pl 2001/09/14 09:57:01     1.17
+++ assemble.pl 2001/09/14 16:28:08
@@ -202,7 +202,7 @@
                 $args[$_]=oct($args[$_]) if($args[$_]=~/^0/);
                 $pc+=$sizeof{$rtype};           
             }
-            $bytecode .= pack $type, $args[$_];
+            $bytecode .= pack $pack_type{$type}, $args[$_];
         }
        if($options{'listing'}) {
            # add line to listing.
Index: config_h.in
===================================================================
RCS file: /home/perlcvs/parrot/config_h.in,v
retrieving revision 1.1
diff -u -r1.1 config_h.in
--- config_h.in 2001/09/14 09:57:02     1.1
+++ config_h.in 2001/09/14 16:28:08
@@ -7,7 +7,7 @@
 #if !defined(PARROT_CONFIG_H_GUARD)
 #define PARROT_CONFIG_H_GUARD 
 typedef ${iv} IV;
-typedef ${iv} double NV;
+typedef ${nv} NV;
 
 typedef struct _vtable VTABLE;
 typedef void DPOINTER;

Reply via email to