cvsuser 04/02/25 07:08:26
Modified: pf pf_items.c
src packfile.c
t/native_pbc number.t
Log:
reverse _be and _le fetch functions
Revision Changes Path
1.9 +11 -11 parrot/pf/pf_items.c
Index: pf_items.c
===================================================================
RCS file: /cvs/public/parrot/pf/pf_items.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -w -r1.8 -r1.9
--- pf_items.c 25 Feb 2004 11:11:03 -0000 1.8
+++ pf_items.c 25 Feb 2004 15:08:18 -0000 1.9
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: pf_items.c,v 1.8 2004/02/25 11:11:03 leo Exp $
+$Id: pf_items.c,v 1.9 2004/02/25 15:08:18 leo Exp $
=head1 NAME
@@ -201,7 +201,7 @@
#if TRACE_PACKFILE == 2
PIO_eprintf(NULL, "PF_fetch_opcode: Reordering.\n");
#endif
- o = (pf->fetch_op)(*((unsigned char **)stream));
+ o = (pf->fetch_op)(**((unsigned char ***)stream));
*((unsigned char **) (stream)) += pf->header->wordsize;
return o;
}
@@ -604,16 +604,16 @@
*/
if (need_endianize || need_wordsize) {
if (need_wordsize)
- pf->fetch_op = fetch_op_mixed_be;
+ pf->fetch_op = fetch_op_mixed_le;
else {
- pf->fetch_op = (opcode_t (*)(unsigned char*))fetch_op_be;
+ pf->fetch_op = (opcode_t (*)(unsigned char*))fetch_op_le;
}
}
if (need_endianize) {
if (pf->header->floattype == 0)
- pf->fetch_nv = fetch_buf_be_8;
+ pf->fetch_nv = fetch_buf_le_8;
else if (pf->header->floattype == 1)
- pf->fetch_nv = cvt_num12_num8_be;
+ pf->fetch_nv = cvt_num12_num8_le;
}
#else
/*
@@ -621,21 +621,21 @@
*/
if (need_endianize || need_wordsize) {
if (need_wordsize)
- pf->fetch_op = fetch_op_mixed_le;
+ pf->fetch_op = fetch_op_mixed_be;
else
- pf->fetch_op = (opcode_t (*)(unsigned char*))fetch_op_le;
+ pf->fetch_op = (opcode_t (*)(unsigned char*))fetch_op_be;
}
if (need_endianize) {
if (pf->header->floattype == 0)
- pf->fetch_nv = fetch_buf_le_8;
+ pf->fetch_nv = fetch_buf_be_8;
else if (pf->header->floattype == 1)
- pf->fetch_nv = cvt_num12_num8_le;
+ pf->fetch_nv = cvt_num12_num8_be;
}
else {
if (NUMVAL_SIZE == 8 && pf->header->floattype == 1)
pf->fetch_nv = cvt_num12_num8;
else if (NUMVAL_SIZE != 8 && pf->header->floattype == 0)
- pf->fetch_nv = fetch_buf_le_8;
+ pf->fetch_nv = fetch_buf_be_8;
}
#endif
}
1.145 +1 -2 parrot/src/packfile.c
Index: packfile.c
===================================================================
RCS file: /cvs/public/parrot/src/packfile.c,v
retrieving revision 1.144
retrieving revision 1.145
diff -u -w -r1.144 -r1.145
--- packfile.c 25 Feb 2004 11:11:15 -0000 1.144
+++ packfile.c 25 Feb 2004 15:08:23 -0000 1.145
@@ -2,7 +2,7 @@
Copyright (C) 2001-2002 Gregor N. Purdy. All rights reserved.
This program is free software. It is subject to the same license as
Parrot itself.
-$Id: packfile.c,v 1.144 2004/02/25 11:11:15 leo Exp $
+$Id: packfile.c,v 1.145 2004/02/25 15:08:23 leo Exp $
=head1 NAME
@@ -512,7 +512,6 @@
"interpreter: fingerprint mismatch\n");
return 0;
}
-
/*
* Unpack and verify the magic which is stored byteorder of the file:
*/
1.13 +2 -2 parrot/t/native_pbc/number.t
Index: number.t
===================================================================
RCS file: /cvs/public/parrot/t/native_pbc/number.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -w -r1.12 -r1.13
--- number.t 22 Feb 2004 22:55:24 -0000 1.12
+++ number.t 25 Feb 2004 15:08:26 -0000 1.13
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: number.t,v 1.12 2004/02/22 22:55:24 mikescott Exp $
+# $Id: number.t,v 1.13 2004/02/25 15:08:26 leo Exp $
=head1 NAME
@@ -123,7 +123,7 @@
}
SKIP: {
-skip("core ops changes", 1);
+skip("outdated", 1);
output_is(<<CODE, <<OUTPUT, "SPARC double float 32 bit opcode_t");
# number_3.pbc
#HEADER => [
