Author: jonathan
Date: Fri Jul 18 10:05:53 2008
New Revision: 29591
Modified:
trunk/languages/perl6/src/classes/Object.pir
Log:
[rakudo] Implement .WHERE.
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 10:05:53 2008
@@ -322,6 +322,17 @@
.return $P0(self)
.end
+=item WHERE
+
+Gets the memory address of the object.
+
+=cut
+
+.sub 'WHERE' :method
+ $I0 = get_addr self
+ .return ($I0)
+.end
+
=back
=head2 Private methods
