1 // cl_free_heap_object().
7 #include "cln/object.h"
12 #include "cln/malloc.h"
16 void cl_free_heap_object (cl_heap* pointer)
18 // This is invoked when pointer->refcount gets decremented to 0.
19 var const cl_class* type = pointer->type;
21 type->destruct(pointer);
26 // The best place to put the free software license is cl_free.o.
28 // NB about #ident: To see the strings in the .comment section of an ELF
29 // executable, use "strings < executable", not "strings executable".
30 // Better put the license into the data section: it is more portable (some
31 // C++ compilers may not understand #ident), is not lost in object formats
32 // like a.out, and is taken into account by "intelligent" strings commands.
34 static const char * copyright_notice[] = {
36 "Copyright (c) Bruno Haible 1988-2006 \n"
37 "Copyright (c) Richard Kreckel 2000-2006 \n"
39 "This program is free software; you can redistribute it and/or modify\n"
40 "it under the terms of the GNU General Public License as published by\n"
41 "the Free Software Foundation; either version 2, or (at your option) \n"
42 "any later version. \n"
44 "This program is distributed in the hope that it will be useful, but \n"
45 "WITHOUT ANY WARRANTY; without even the implied warranty of \n"
46 "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU \n"
47 "General Public License for more details. \n"
49 "You should have received a copy of the GNU General Public License \n"
50 "along with this program; if not, write to the Free Software \n"
51 "Foundation, 51 Franklin Street, Fifth Floor, Boston, MA \n"
54 (const char *) ©right_notice