cvsuser 03/01/16 23:36:41
Modified: classes eval.pmc
. debug.c ops2c.pl
Log:
eval1
Revision Changes Path
1.2 +1 -1 parrot/classes/eval.pmc
Index: eval.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/eval.pmc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- eval.pmc 16 Jan 2003 17:37:44 -0000 1.1
+++ eval.pmc 17 Jan 2003 07:36:35 -0000 1.2
@@ -35,7 +35,7 @@
stack_push(INTERP, &(INTERP->ctx.control_stack), next,
STACK_ENTRY_DESTINATION, STACK_CLEANUP_NULL);
/* run evaled code with the normal cores */
-#if 0
+#if 1
while (pc)
DO_OP(pc, interpreter);
#else
1.53 +4 -2 parrot/debug.c
Index: debug.c
===================================================================
RCS file: /cvs/public/parrot/debug.c,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -w -r1.52 -r1.53
--- debug.c 16 Jan 2003 17:26:17 -0000 1.52
+++ debug.c 17 Jan 2003 07:36:41 -0000 1.53
@@ -2,7 +2,7 @@
* debug.c
*
* CVS Info
- * $Id: debug.c,v 1.52 2003/01/16 17:26:17 leo Exp $
+ * $Id: debug.c,v 1.53 2003/01/17 07:36:41 leo Exp $
* Overview:
* Parrot debugger
* History:
@@ -1585,6 +1585,8 @@
eval[j++] = (opcode_t)atoi(command);
break;
default:
+ PIO_eprintf(interpreter, "unknown operand at '%s'\n", command);
+ return NULL;
break;
}
}
1.35 +2 -2 parrot/ops2c.pl
Index: ops2c.pl
===================================================================
RCS file: /cvs/public/parrot/ops2c.pl,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -w -r1.34 -r1.35
--- ops2c.pl 19 Nov 2002 22:29:42 -0000 1.34
+++ ops2c.pl 17 Jan 2003 07:36:41 -0000 1.35
@@ -5,7 +5,7 @@
# Generate a C header and source file from the operation definitions in
# an .ops file, using a supplied transform.
#
-# $Id: ops2c.pl,v 1.34 2002/11/19 22:29:42 grunblatt Exp $
+# $Id: ops2c.pl,v 1.35 2003/01/17 07:36:41 leo Exp $
#
use strict;
@@ -350,7 +350,7 @@
HOP * p;
size_t hidx = hash_str(name) % OP_HASH_SIZE;
if (!hop) {
- hop = mem_sys_allocate(OP_HASH_SIZE * sizeof(HOP*));
+ hop = mem_sys_allocate_zeroed(OP_HASH_SIZE * sizeof(HOP*));
hop_init();
}
for(p = hop[hidx]; p; p = p->next) {
