ftp.nice.ch/pub/next/developer/languages/lisp/gcl.2.2-LISP.I.bs.tar.gz#/gcl-2.2/h/vax.h

This is vax.h in view mode; [Download] [Up]

extern char etext;

/*  More efficient to let this default to 0
#define DBEGIN ((char *)((((unsigned long)(&etext))+(SEGSIZ-1)) & ~(SEGSIZ-1)))
*/
#define VAX
#include "bsd.h"
#undef SFASL

#define ADDITIONAL_FEATURES \
		     ADD_FEATURE("VAX");


#define DATA_BEGIN (char *)((TXTRELOC+header.a_text+(SEGSIZ-1)) & ~(SEGSIZ-1));

#undef   FILECPY_HEADER
#define FILECPY_HEADER \
	if (header.a_magic == ZMAGIC) \
		filecpy(save, original, PAGSIZ - sizeof(header)); \
	filecpy(save, original, header.a_text);


#define	PAGSIZ		1024
#define	SEGSIZ		1024
#define	TXTRELOC	0


/* Begin for cmpinclude */


/* End for cmpinclude */

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.