mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-03-09 15:50:02 +00:00
22e044c339
This allows ksh to be compiled with versions of tcc that define __dso_handle in libtcc1.a, i.e., versions as of this commit: https://repo.or.cz/tinycc.git/commit/dd60b20c Older versions of tcc still fail to compile ksh, although now they fail after reaching the libdll feature test. I'm not sure if fixing that is feasible since even if I hack out the failing libdll feature test, ksh fails to link with a '__dso_handle' error. src/lib/libast/comp/atexit.c, src/lib/libast/features/lib, src/lib/libast/vmalloc/vmexit.c: - From what I've been able to gather the only OSes with support for on_exit are Linux and SunOS 4. However, on_exit takes two arguments, so the macro that defines it as taking one argument is incorrect. Since Solaris (SunOS 5) no longer has this call and the macro breaks on Linux, the clean fix is to remove it (atexit(3) is used instead). src/lib/libast/include/ast.h: - When compiling with tcc on FreeBSD, pretend to be gcc 2.95.3 instead of gcc 9.3.0. This stops /usr/include/math.h from activating gcc 3.0+ math compiler builtins that don't exist on tcc, while still identifying as gcc which is needed to avoid other FreeBSD system header breakage. src/cmd/builtin/Mamfile, src/cmd/builtin/features/pty, src/lib/libdll/Mamfile, src/lib/libdll/features/dll: - tcc forbids combining the -c compiler flag with -l* linker flags. Use the -lm flag in the iffe feature tests instead of the Mamfiles. This avoids iffe combining -lm with the -c flag. src/lib/libast/vmalloc/malloc.c: - Fix failure to compile with -D_std_malloc. This patch is from OpenSUSE: https://build.opensuse.org/package/view_file/shells/ksh/ksh93-malloc-hook.dif As it turns out tcc needs this change to build ksh with -D_std_malloc, so it has been applied. Co-authored-by: Martijn Dekker <martijn@inlv.org> Resolves: https://github.com/ksh93/ksh/issues/232
111 lines
2.4 KiB
C
111 lines
2.4 KiB
C
/***********************************************************************
|
|
* *
|
|
* This software is part of the ast package *
|
|
* Copyright (c) 1985-2011 AT&T Intellectual Property *
|
|
* and is licensed under the *
|
|
* Eclipse Public License, Version 1.0 *
|
|
* by AT&T Intellectual Property *
|
|
* *
|
|
* A copy of the License is available at *
|
|
* http://www.eclipse.org/org/documents/epl-v10.html *
|
|
* (with md5 checksum b35adb5213ca9657e911e9befb180842) *
|
|
* *
|
|
* Information and Software Systems Research *
|
|
* AT&T Research *
|
|
* Florham Park NJ *
|
|
* *
|
|
* Glenn Fowler <gsf@research.att.com> *
|
|
* David Korn <dgk@research.att.com> *
|
|
* Phong Vo <kpv@research.att.com> *
|
|
* *
|
|
***********************************************************************/
|
|
#pragma prototyped
|
|
|
|
/*
|
|
* ANSI C atexit()
|
|
* arrange for func to be called LIFO on exit()
|
|
*/
|
|
|
|
#include <ast.h>
|
|
|
|
#if _lib_atexit
|
|
|
|
NoN(atexit)
|
|
|
|
#else
|
|
|
|
#if _lib_onexit
|
|
|
|
extern int onexit(void(*)(void));
|
|
|
|
int
|
|
atexit(void (*func)(void))
|
|
{
|
|
return(onexit(func));
|
|
}
|
|
|
|
#else
|
|
|
|
struct list
|
|
{
|
|
struct list* next;
|
|
void (*func)(void);
|
|
};
|
|
|
|
static struct list* funclist;
|
|
|
|
extern void _exit(int);
|
|
|
|
int
|
|
atexit(void (*func)(void))
|
|
{
|
|
register struct list* p;
|
|
|
|
if (!(p = newof(0, struct list, 1, 0))) return(-1);
|
|
p->func = func;
|
|
p->next = funclist;
|
|
funclist = p;
|
|
return(0);
|
|
}
|
|
|
|
void
|
|
_ast_atexit(void)
|
|
{
|
|
register struct list* p;
|
|
|
|
while (p = funclist)
|
|
{
|
|
funclist = p->next;
|
|
(*p->func)();
|
|
}
|
|
}
|
|
|
|
#if _std_cleanup
|
|
|
|
#if _lib__cleanup
|
|
extern void _cleanup(void);
|
|
#endif
|
|
|
|
void
|
|
exit(int code)
|
|
{
|
|
_ast_atexit();
|
|
#if _lib__cleanup
|
|
_cleanup();
|
|
#endif
|
|
_exit(code);
|
|
}
|
|
|
|
#else
|
|
|
|
void
|
|
_cleanup(void)
|
|
{
|
|
_ast_atexit();
|
|
}
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
#endif
|