--- freem/src/objects.c 2025/03/09 15:20:18 1.2 +++ freem/src/objects.c 2025/04/09 19:52:02 1.4 @@ -1,23 +1,11 @@ /* - * * - * * * - * * * - * *************** - * * * * * - * * MUMPS * - * * * * * - * *************** - * * * - * * * - * * - * - * objects.c + * $Id: objects.c,v 1.4 2025/04/09 19:52:02 snw Exp $ * implementation of OO support * * * Author: Serena Willis * Copyright (C) 1998 MUG Deutschland - * Copyright (C) 2023 Coherent Logic Development LLC + * Copyright (C) 2023, 2025 Coherent Logic Development LLC * * * This file is part of FreeM. @@ -35,6 +23,16 @@ * You should have received a copy of the GNU Affero Public License * along with FreeM. If not, see . * + * $Log: objects.c,v $ + * 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 + * + * + * SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC + * SPDX-License-Identifier: AGPL-3.0-or-later **/ #include #include @@ -186,9 +184,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); @@ -203,7 +198,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;