--- freem/src/objects.c 2025/03/09 19:50:47 1.3 +++ freem/src/objects.c 2025/04/10 01:24:38 1.5 @@ -1,5 +1,5 @@ /* - * $Id: objects.c,v 1.3 2025/03/09 19:50:47 snw Exp $ + * $Id: objects.c,v 1.5 2025/04/10 01:24:38 snw Exp $ * implementation of OO support * * @@ -24,6 +24,12 @@ * along with FreeM. If not, see . * * $Log: objects.c,v $ + * Revision 1.5 2025/04/10 01:24:38 snw + * Remove C++ style comments + * + * Revision 1.4 2025/04/09 19:52:02 snw + * Eliminate as many warnings as possible while building with -Wall + * * Revision 1.3 2025/03/09 19:50:47 snw * Second phase of REUSE compliance and header reformat * @@ -135,7 +141,7 @@ short obj_get_attribute(char *inst, char if (merr () == UNDEF || merr () == M6) { if (strcmp (attrib, "CLASS") == 0) { - // non-object variables always belong to the ^%STRING class + /* non-object variables always belong to the ^%STRING class */ snprintf (buf, 9, "^%%STRING"); merr_clear (); @@ -181,9 +187,6 @@ void obj_get_constructor(char *construct freem_ref_t inref; freem_ref_t outref; register int i; - int argct; - - argct = 0; mref_init (&inref, MREF_RT_GLOBAL, ""); internal_to_mref (&inref, class); @@ -198,7 +201,7 @@ void obj_get_constructor(char *construct strcpy (outref.subscripts[i + 1], inref.subscripts[i]); } -// mref_to_internal_prealloc (constructor, &outref); + mref_to_external (&outref, constructor); return;