cvsuser 05/03/10 00:06:34
Modified: classes undef.pmc
examples/assembly thr-primes.imc
src objects.c
Log:
fix #34391
Revision Changes Path
1.11 +6 -3 parrot/classes/undef.pmc
Index: undef.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/undef.pmc,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- undef.pmc 19 Oct 2004 01:25:35 -0000 1.10
+++ undef.pmc 10 Mar 2005 08:06:29 -0000 1.11
@@ -1,6 +1,6 @@
/*
Copyright: 2004 The Perl Foundation. All Rights Reserved.
-$Id: undef.pmc,v 1.10 2004/10/19 01:25:35 dan Exp $
+$Id: undef.pmc,v 1.11 2005/03/10 08:06:29 leo Exp $
=head1 NAME
@@ -11,8 +11,8 @@
This is Parrot's generic undef type. This PMC has no defined value.
It returns a numeric value of 0, a boolean of false, and an empty string.
When assigned a number, integer, or string it morphs to a Number,
-Integer, or String PMC respectively, and when assigned a generic PMC
-it morphs into a PMC of the passed-in type and does a same-type assignment
+Integer, or String PMC respectively, and when assigned a generic PMC
+it morphs into a PMC of the passed-in type and does a same-type assignment
from there.
=head2 Methods
@@ -77,6 +77,9 @@
return 0;
}
+ void share () {
+ /* see classes/integer.pmc */
+ }
}
/*
1.9 +3 -3 parrot/examples/assembly/thr-primes.imc
Index: thr-primes.imc
===================================================================
RCS file: /cvs/public/parrot/examples/assembly/thr-primes.imc,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- thr-primes.imc 9 Mar 2005 18:47:09 -0000 1.8
+++ thr-primes.imc 10 Mar 2005 08:06:30 -0000 1.9
@@ -1,5 +1,5 @@
# Copyright (C) 2001-2003 The Perl Foundation. All rights reserved.
-# $Id: thr-primes.imc,v 1.8 2005/03/09 18:47:09 bernhard Exp $
+# $Id: thr-primes.imc,v 1.9 2005/03/10 08:06:30 leo Exp $
=head1 NAME
@@ -105,7 +105,7 @@
# 14 }
# 16 $stream->enqueue(undef);
- $P4 = new PerlUndef
+ $P4 = new Undef
push stream, $P4
# 17 $kid->join;
@@ -176,7 +176,7 @@
$I1 = defined kid
unless $I1 goto no_kid2
- $P4 = new PerlUndef
+ $P4 = new Undef
push downstream, $P4
# 33 $kid->join if $kid;
1.133 +2 -1 parrot/src/objects.c
Index: objects.c
===================================================================
RCS file: /cvs/public/parrot/src/objects.c,v
retrieving revision 1.132
retrieving revision 1.133
diff -u -r1.132 -r1.133
--- objects.c 9 Mar 2005 14:52:01 -0000 1.132
+++ objects.c 10 Mar 2005 08:06:34 -0000 1.133
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: objects.c,v 1.132 2005/03/09 14:52:01 leo Exp $
+$Id: objects.c,v 1.133 2005/03/10 08:06:34 leo Exp $
=head1 NAME
@@ -315,6 +315,7 @@
VTABLE_set_string_native(interpreter, classname_pmc,
child_class_name);
}
else {
+ /* XXX make unique names */
child_class_name = string_make(interpreter,
"\0\0anonymous", 11, "iso-8859-1", 0);
VTABLE_set_string_native(interpreter, classname_pmc,
