1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-01 22:05:08 +00:00
freebsd-ports/lang/gcl/files/patch-ai
1999-11-25 18:34:01 +00:00

121 lines
3.0 KiB
Plaintext

--- h/FreeBSD.h.orig Tue Nov 17 18:51:53 1998
+++ h/FreeBSD.h Thu Nov 25 01:17:34 1999
@@ -1,92 +1,41 @@
/*
- * FreeBSD.h for gcl 1.1
+ * FreeBSD.h for gcl 2.3
*
- * Ported by Jeffrey Hsu (hsu@freebsd.org).
+ * Ported by Jeffrey Hsu (hsu@freebsd.org) for gcl 1.1
* Looked at previous versions by Hsu, Werkowsksi, Tobin, and Mogart.
*
+ * Updated to work with gcl 2.3 and FreeBSD 4.0/ELF by
+ * Justin Seger (jseger@FreeBSD.org).
+ *
*/
-#include "bsd.h"
-
-#undef LD_COMMAND
-#define LD_COMMAND(command,main,start,input,ldarg,output) \
- sprintf(command, "ld -dc -N -x -A %s -T %x %s %s -o %s", \
- main,start,input,ldarg,output)
-
-#define ADDITIONAL_FEATURES \
- ADD_FEATURE("386BSD");\
- ADD_FEATURE("FreeBSD");
-
-
-#define I386
-#define IEEEFLOAT
-
-/* we don't need to worry about zeroing fp->_base, to prevent what??? */
-#define FCLOSE_SETBUF_OK
-
-#undef HAVE_XDR
-
-#define USE_ATT_TIME
-
-#undef LISTEN_FOR_INPUT
-#define LISTEN_FOR_INPUT(fp) \
- if ((fp)->_r <=0 && (c=0, ioctl((fp)->_file, FIONREAD, &c), c<=0)) \
- return(FALSE)
-
-#ifdef IN_GBC
#include <sys/types.h>
-#endif
-#define DATA_BEGIN (char *) N_DATADDR(header);
-#define A_TEXT_OFFSET(x) (sizeof (struct exec))
-#define A_TEXT_SEEK(hdr) (N_TXTOFF(hdr) + A_TEXT_OFFSET(hdr))
-#define start_of_data() &etext
-#define start_of_text() ((char *)(sizeof(struct exec) + getpagesize()))
-
-#define UNIXSAVE "unexec.c"
-#ifdef UNIXSAVE
- extern char etext;
+#ifdef IN_UNIXSAVE
+ #undef IN_UNIXSAVE
+ #define WAS_IN_UNIXSAVE
#endif
-#define RELOC_FILE "rel_sun3.c" /* for SFASL - enabled in bsd.h */
+#include "386-linux.h"
-#ifdef CLOCKS_PER_SEC
-#define HZ CLOCKS_PER_SEC
-#else
-#define HZ 128
+#ifdef WAS_IN_UNIXSAVE
+ #define IN_UNIXSAVE
#endif
-#define ss_base ss_sp
-/* begin for GC */
-#define PAGEWIDTH 12 /* i386 sees 4096 byte pages */
-/* end for GC */
-
-#define SIG_STACK_SIZE (SIGSTKSZ/sizeof(double))
-#define SETUP_SIG_STACK \
-{ \
- static struct sigaltstack estack; \
- estack.ss_sp = estack_buf; \
- estack.ss_size = SIGSTKSZ; \
- estack.ss_flags = 0; \
- if (sigaltstack(&estack, 0) < 0) \
- perror("sigaltstack"); \
-}
-
-#define INSTALL_SEGMENTATION_CATCHER \
- (void) gcl_signal(SIGSEGV, segmentation_catcher); \
- (void) gcl_signal(SIGBUS, segmentation_catcher)
-
-/*
- * The next two defines are for SGC,
- * one of which needs to go in cmpinclude.h.
- */
-#define SIGPROTV SIGBUS
-
-/* Begin for cmpinclude */
-#define SGC /* can mprotect pages and so selective gc will work */
+#undef INSTALL_MPROTECT_HANDLER
+#undef GET_FAULT_ADDR
+#undef LISTEN_FOR_INPUT
-/* End for cmpinclude */
+#define LISTEN_FOR_INPUT(fp) \
+ if ((fp)->_r <=0 && (c=0, ioctl((fp)->_file, FIONREAD, &c), c<=0)) \
+ return(FALSE)
-#if defined(IN_UNIXTIME)
-# include <time.h>
+#if 0
+{\
+ int fd = (fp)->_file;\
+ static struct timeval tv = {0,0};\
+ static fd_set rmask; FD_ZERO(&rmask); FD_SET(fd,&rmask);\
+ select(fd+1,&rmask,NULL,NULL,&tv);\
+ return (FD_ISSET(fd,&rmask));\
+}
#endif