Commit b26e73d7 authored by Laszlo Domoszlai's avatar Laszlo Domoszlai
Browse files

missing stuff for the previous commit

parent 7180c216
......@@ -16,7 +16,7 @@ typedef struct __attribute__((packed)) CleanString {
} CleanString;
typedef struct __attribute__((packed)) Thunk {
struct Desc* desc; // NULL, if it is a forward pointer
struct Desc* desc;
union {
Thunk* _forward_ptr;
......@@ -24,8 +24,8 @@ typedef struct __attribute__((packed)) Thunk {
double _real; // TODO: move "real" out of here, too long (at least on 32 bits)
char _char;
int _bool;
struct CleanString* _string_ptr;
struct CleanString _string;
//struct CleanString* _string_ptr;
//struct CleanString _string;
Thunk* _args[];
};
} Thunk;
......@@ -43,12 +43,13 @@ int readB(Thunk* thunk);
#define readI(thunk) thunk->_int
#define readB(thunk) thunk->_bool
#define readC(thunk) thunk->_char
#endif
bool is_hnf(Thunk* thunk);
// Thunk is supposed to be in HNF
// Thunk is supposed to be in HNF on the A stack
void print(Thunk* thunk, bool force);
#endif // __THUNK_H
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment