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;