In an attempt to just keep knocking off warnings..
Index: test_main.c
===================================================================
RCS file: /cvs/public/parrot/test_main.c,v
retrieving revision 1.28
diff -u -p -r1.28 test_main.c
--- test_main.c 1 Jan 2002 19:49:11 -0000 1.28
+++ test_main.c 2 Jan 2002 01:18:29 -0000
@@ -172,7 +172,7 @@ main(int argc, char **argv) {
pf = PackFile_new();
if( !PackFile_unpack(interpreter, pf, (char *)program_code,
- program_size) ) {
+ (opcode_t)program_size) ) {
printf( "Can't unpack.\n" );
return 1;
}
Index: Parrot/Jit/i386-linux.pm
===================================================================
RCS file: /cvs/public/parrot/Parrot/Jit/i386-linux.pm,v
retrieving revision 1.4
diff -u -p -r1.4 i386-linux.pm
--- Parrot/Jit/i386-linux.pm 29 Dec 2001 20:42:11 -0000 1.4
+++ Parrot/Jit/i386-linux.pm 2 Jan 2002 01:18:40 -0000
@@ -168,7 +168,7 @@ sub disassemble($$$$) {
my $objdump = new IO::File OBJDUMP." $obj |"
or die "Could not run ".OBJDUMP." $obj: $!";
- while (<$objdump>) { last if /<\_main>:$/ }
+ while (<$objdump>) { last if /<_main>:$/ }
$ln = 0;
while (<$objdump>) {
--
"Never go in against a sicilian when death is on the line"
-- Vizzini in "The Princess Bride"
