+extern void globals_init(void);
+
+#else /* LANGUAGE_ASSEMBLY */
+
+# ifdef LISP_FEATURE_MIPS
+# ifdef __linux__
+# define EXTERN(name,bytes) .globl name
+# else
+# define EXTERN(name,bytes) .extern name bytes
+# endif
+# endif
+/**/
+# ifdef LISP_FEATURE_SPARC
+# ifdef SVR4
+# define EXTERN(name,bytes) .global name
+# else
+# define EXTERN(name,bytes) .global _ ## name
+# endif
+# endif
+/**/
+# ifdef LISP_FEATURE_ALPHA
+# ifdef __linux__
+# define EXTERN(name,bytes) .globl name
+# endif
+# endif
+/**/
+# ifdef LISP_FEATURE_PPC
+# ifdef LISP_FEATURE_DARWIN
+# define EXTERN(name,bytes) .globl _ ## name
+# else
+# define EXTERN(name,bytes) .globl name
+# endif
+# endif
+/**/
+# if defined(LISP_FEATURE_X86) || defined(LISP_FEATURE_X86_64)
+# define EXTERN(name,bytes) .global name
+# endif
+
+# if defined(LISP_FEATURE_ALPHA) || defined(LISP_FEATURE_X86_64)
+# define POINTERSIZE 8
+# else
+# define POINTERSIZE 4
+# endif
+
+#ifdef FOREIGN_FUNCTION_CALL_FLAG
+EXTERN(foreign_function_call_active, 4)