mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-07-03 18:42:54 +00:00
Code Issues 1 Releases Wiki Activity

Small changes to help with latest emscripten.

Browse Source
This commit is contained in:
Calvin Rose 2019-07-14 09:58:11 -05:00
parent e528b86a2a
commit 21a355c89f
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/core/vm.c
View File

@ -57,7 +57,11 @@ JANET_THREAD_LOCAL jmp_buf *janet_vm_jmp_buf = NULL;
/* How we dispatch instructions. By default, we use /* How we dispatch instructions. By default, we use
* a switch inside an infinite loop. For GCC/clang, we use * a switch inside an infinite loop. For GCC/clang, we use
* computed gotos. */ * computed gotos. */
#ifdef __GNUC__ #if defined(__GNUC__) && !defined(EMSCRIPTEN)
#define JANET_USE_COMPUTED_GOTOS
#endif
#ifdef JANET_USE_COMPUTED_GOTOS
#define VM_START() { goto *op_lookup[first_opcode]; #define VM_START() { goto *op_lookup[first_opcode];
#define VM_END() } #define VM_END() }
#define VM_OP(op) label_##op : #define VM_OP(op) label_##op :
@ -192,7 +196,7 @@ static Janet call_nonfn(JanetFiber *fiber, Janet callee) {
static JanetSignal run_vm(JanetFiber *fiber, Janet in, JanetFiberStatus status) { static JanetSignal run_vm(JanetFiber *fiber, Janet in, JanetFiberStatus status) {
/* opcode -> label lookup if using clang/GCC */ /* opcode -> label lookup if using clang/GCC */
#ifdef __GNUC__ #ifdef JANET_USE_COMPUTED_GOTOS
static void *op_lookup[255] = { static void *op_lookup[255] = {
&&label_JOP_NOOP, &&label_JOP_NOOP,
&&label_JOP_ERROR, &&label_JOP_ERROR,

6
src/include/janet.h
View File

@ -238,9 +238,9 @@ typedef struct {
#include <stdio.h> #include <stdio.h>
/* Names of all of the types */ /* Names of all of the types */
JANET_API const char *const janet_type_names[16]; JANET_API extern const char *const janet_type_names[16];
JANET_API const char *const janet_signal_names[14]; JANET_API extern const char *const janet_signal_names[14];
JANET_API const char *const janet_status_names[16]; JANET_API extern const char *const janet_status_names[16];
/* Fiber signals */ /* Fiber signals */
typedef enum { typedef enum {