Author: petdance
Date: Tue Jun 5 12:57:21 2007
New Revision: 18827
Modified:
trunk/include/parrot/objects.h
trunk/src/objects.c
Log:
Fixed PARROT_APIness of two funcs in object.c
Modified: trunk/include/parrot/objects.h
==============================================================================
--- trunk/include/parrot/objects.h (original)
+++ trunk/include/parrot/objects.h Tue Jun 5 12:57:21 2007
@@ -30,7 +30,7 @@
/* HEADERIZER BEGIN: src/objects.c */
-void Parrot_ComposeRole( Interp *interp,
+PARROT_API void Parrot_ComposeRole( Interp *interp,
PMC *role,
PMC *exclude,
int got_exclude,
@@ -145,7 +145,9 @@
void destroy_object_cache( Interp *interp );
void mark_object_cache( Interp *interp );
-PARROT_API STRING* readable_name( Interp *interp, PMC *name );
+PARROT_API STRING* readable_name( Interp *interp, PMC *name /*NN*/ )
+ __attribute__nonnull__(2);
+
/* HEADERIZER END: src/objects.c */
/* Objects, classes and PMCarrays all use the same data scheme:
Modified: trunk/src/objects.c
==============================================================================
--- trunk/src/objects.c (original)
+++ trunk/src/objects.c Tue Jun 5 12:57:21 2007
@@ -113,7 +113,7 @@
PARROT_API
PMC*
-Parrot_find_vtable_meth(Interp *interp, PMC *pmc, STRING *meth)
+Parrot_find_vtable_meth(Interp *interp, PMC *pmc /*NN*/, STRING *meth)
{
INTVAL i, n;
PMC *ns, *mro, *self_class;
@@ -161,7 +161,7 @@
PARROT_API
STRING*
-readable_name(Interp *interp, PMC *name)
+readable_name(Interp *interp, PMC *name /*NN*/)
{
STRING *join_on;
PMC *array;
@@ -413,7 +413,7 @@
PARROT_API
PMC *
-Parrot_single_subclass(Interp *interp, PMC *base_class, PMC *name)
+Parrot_single_subclass(Interp *interp, PMC *base_class, PMC *name /*NULLOK*/)
{
PMC *child_class, *parents, *temp_pmc, *mro;
SLOTTYPE *child_class_array;
@@ -1908,6 +1908,7 @@
*/
+PARROT_API
void
Parrot_ComposeRole(Interp *interp, PMC *role,
PMC *exclude, int got_exclude,
