conservatory
/
femtolisp
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix 64-bit builds of tiny interpreters

This commit is contained in:
Lassi Kortela 2020-02-26 11:00:08 +02:00
parent ec7601076a
commit dc90139bc0
3 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tiny/lisp-nontail.c
View File

@ -26,8 +26,13 @@
#include <ctype.h> #include <ctype.h>
#include <sys/types.h> #include <sys/types.h>
#ifdef __LP64__
typedef u_int64_t value_t;
typedef int64_t number_t;
#else
typedef u_int32_t value_t; typedef u_int32_t value_t;
typedef int32_t number_t; typedef int32_t number_t;
#endif
typedef struct { typedef struct {
value_t car; value_t car;

5
tiny/lisp2.c
View File

@ -47,8 +47,13 @@
#include <ctype.h> #include <ctype.h>
#include <sys/types.h> #include <sys/types.h>
#ifdef __LP64__
typedef u_int64_t value_t;
typedef int64_t number_t;
#else
typedef u_int32_t value_t; typedef u_int32_t value_t;
typedef int32_t number_t; typedef int32_t number_t;
#endif
typedef struct { typedef struct {
value_t car; value_t car;

9
tiny/lispf.c
View File

@ -32,12 +32,21 @@
#include <ctype.h> #include <ctype.h>
#include <sys/types.h> #include <sys/types.h>
#ifdef __LP64__
typedef u_int64_t value_t;
#else
typedef u_int32_t value_t; typedef u_int32_t value_t;
#endif
#ifdef FLOAT #ifdef FLOAT
typedef float number_t; typedef float number_t;
#else #else
#ifdef __LP64__
typedef int64_t number_t;
#else
typedef int32_t number_t; typedef int32_t number_t;
#endif #endif
#endif
typedef struct { typedef struct {
value_t car; value_t car;