projects
/
muddle-interpreter.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Define UVECTOR and ATOM
[muddle-interpreter.git]
/
src
/
print.c
diff --git
a/src/print.c
b/src/print.c
index 8f089a3fbd3126615addcf43d9249b5a4065293d..3a5866ad0f29234031a7b28aec51d60434578582 100644
(file)
--- a/
src/print.c
+++ b/
src/print.c
@@
-27,12
+27,12
@@
License along with this file. If not, see
static void
print_vector_body (const vector_object * o)
{
static void
print_vector_body (const vector_object * o)
{
- const object *p = HEAP_OBJECT (o->body);
+ const object *p = HEAP_OBJECT (o->
val.
body);
if (!p)
return;
if (!p)
return;
- if (o->len)
+ if (o->
val.
len)
print_object (&p[0]);
print_object (&p[0]);
- for (uint32_t i = 1; i < o->len; i++)
+ for (uint32_t i = 1; i < o->
val.
len; i++)
{
printf (" ");
print_object (&p[i]);
{
printf (" ");
print_object (&p[i]);
@@
-42,7
+42,7
@@
print_vector_body (const vector_object * o)
static void
print_list_body (const list_object * o)
{
static void
print_list_body (const list_object * o)
{
- const pool_object *p = POOL_OBJECT (o->head);
+ const pool_object *p = POOL_OBJECT (o->
val.
head);
if (!p)
return;
print_object ((const object *) p);
if (!p)
return;
print_object ((const object *) p);
@@
-59,10
+59,10
@@
print_object (const object * o)
switch (o->type)
{
case EVALTYPE_FIX32:
switch (o->type)
{
case EVALTYPE_FIX32:
- printf ("%d", o->fix32.val);
+ printf ("%d", o->fix32.val
.n
);
break;
case EVALTYPE_FIX64:
break;
case EVALTYPE_FIX64:
- printf ("%ld", o->fix64.val);
+ printf ("%ld", o->fix64.val
.n
);
break;
case EVALTYPE_LIST:
printf ("(");
break;
case EVALTYPE_LIST:
printf ("(");