Author: jonathan
Date: Fri Jul 18 14:54:32 2008
New Revision: 29598
Modified:
trunk/languages/perl6/src/classes/Object.pir
Log:
[rakudo] Implement WHICH in object. We now need to override it in the various
value types, and then we can implement ===.
Modified: trunk/languages/perl6/src/classes/Object.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Object.pir (original)
+++ trunk/languages/perl6/src/classes/Object.pir Fri Jul 18 14:54:32 2008
@@ -333,6 +333,17 @@
.return ($I0)
.end
+=item WHICH
+
+Gets the object's identity value
+
+=cut
+
+.sub 'WHICH' :method
+ # For normal objects, this can just be the memory address.
+ .return self.'WHERE'()
+.end
+
=back
=head2 Private methods
