cvsuser 03/07/16 07:21:21
Modified: . object.ops
Log:
Get it to compile
Revision Changes Path
1.4 +3 -13 parrot/object.ops
Index: object.ops
===================================================================
RCS file: /cvs/public/parrot/object.ops,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- object.ops 16 Jul 2003 12:53:01 -0000 1.3
+++ object.ops 16 Jul 2003 14:21:21 -0000 1.4
@@ -69,13 +69,13 @@
=item B<newclass>(out PMC, in STR)
Creates a new Parrot-style class, named $2, and puts the new PMC for it
-into $1. (This
-is a real out--the contents of $1 is ignored, and the pointer for the new
-PMC is put in there)
+into $1. (This is a real out--the contents of $1 are ignored and the
+pointer for the new PMC is put in there).
=cut
inline op newclass(out PMC, in STR) {
+ $1 = Parrot_new_class(interpreter, $2);
goto NEXT();
}
@@ -117,16 +117,6 @@
}
$1 = Parrot_single_subclass(interpreter, class, NULL);
goto NEXT();
-}
-
-=item B<newclass>(out PMC, in STR)
-
-Create a new base class named $2
-
-=cut
-
-inline op newclass(out PMC, in STR) {
- $1 = Parrot_new_class(interpreter, $2)
}
=item B<findclass>(out INT, in STR)
