summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/luatexdir/lua51/lcoco.h
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/lua51/lcoco.h')
-rw-r--r--Build/source/texk/web2c/luatexdir/lua51/lcoco.h88
1 files changed, 0 insertions, 88 deletions
diff --git a/Build/source/texk/web2c/luatexdir/lua51/lcoco.h b/Build/source/texk/web2c/luatexdir/lua51/lcoco.h
deleted file mode 100644
index b38659eb693..00000000000
--- a/Build/source/texk/web2c/luatexdir/lua51/lcoco.h
+++ /dev/null
@@ -1,88 +0,0 @@
-/*
-** Lua/Coco glue.
-** Copyright (C) 2004-2008 Mike Pall. See copyright notice in lcoco.c
-*/
-
-#if defined(__OpenBSD__)
-#if defined(__i386) || defined(__i386__)
-#else
-#undef COCO_DISABLE
-#define COCO_DISABLE
-#define lcoco_h
-#endif
-#endif
-
-#if defined(linux) && defined(powerpc)
-#undef COCO_DISABLE
-#define COCO_DISABLE
-#define lcoco_h
-#endif
-
-
-#ifndef lcoco_h
-#define lcoco_h
-
-#define LUACOCO_VERSION "Coco 1.1.5"
-#define LUACOCO_VERSION_NUM 10105
-
-/* Exported C API to add a C stack to a coroutine. */
-LUA_API lua_State *lua_newcthread(lua_State *L, int cstacksize);
-
-/* Internal support routines. */
-LUAI_FUNC void luaCOCO_free(lua_State *L);
-LUAI_FUNC int luaCOCO_resume(lua_State *L, int nargs);
-LUAI_FUNC int luaCOCO_yield(lua_State *L);
-LUAI_FUNC int luaCOCO_cstacksize(int cstacksize);
-
-/* Forward declaration. */
-typedef struct coco_State coco_State;
-
-/* These are redefined below. */
-#undef LUAI_EXTRASPACE
-#undef luai_userstateopen
-/* luai_userstateclose unused */
-#undef luai_userstatethread
-#undef luai_userstatefree
-#undef luai_userstateresume
-#undef luai_userstateyield
-
-/* Use Windows Fibers (Win98+). */
-#if defined(_WIN32)
-
-/* Fibers allocate their own stack. The whole Coco state is in front of L. */
-struct coco_State {
- void *fib; /* Own fiber (if any). */
- void *back; /* Fiber to switch back to. */
- int nargs; /* Number of arguments to pass. */
- int dummy_align;
-};
-
-#define L2COCO(L) (&((coco_State *)(L))[-1])
-#define LHASCOCO(L) (L2COCO(L)->fib)
-#define LUAI_EXTRASPACE sizeof(coco_State)
-#define luai_userstateopen(L) L2COCO(L)->fib = NULL
-#define luai_userstatethread(L,L1) L2COCO(L1)->fib = NULL
-#define COCO_USE_FIBERS
-
-#else /* !defined(_WIN32) */
-
-/* The Coco state depends on the context switch method used. See lcoco.c. */
-/* It's stored at the end of the stack. Only need a pointer in front of L. */
-#define L2COCO(L) (((coco_State **)(L))[-1])
-#define LHASCOCO(L) (L2COCO(L))
-/* This wastes some space on 32 bit systems, but gets better alignment. */
-#define LUAI_EXTRASPACE sizeof(LUAI_USER_ALIGNMENT_T)
-#define luai_userstateopen(L) L2COCO(L) = NULL
-#define luai_userstatethread(L,L1) L2COCO(L1) = NULL
-
-#endif /* !defined(_WIN32) */
-
-#define luai_userstatefree(L) if (LHASCOCO(L)) luaCOCO_free(L)
-#define luai_userstateresume(L, nargs) \
- if (LHASCOCO(L)) return luaCOCO_resume(L, nargs)
-#define luai_userstateyield(L, nresults) \
- do { if (LHASCOCO(L)) { \
- L->base = L->top - (nresults); /* Protect stack slots below. */ \
- return luaCOCO_yield(L); } } while (0)
-
-#endif