Commit a7f52dac authored by jwilke's avatar jwilke

Just some nice casts.

parent 26f42a58
......@@ -147,7 +147,7 @@ void relocate(Cell *image, const char *bitstring, int size, Label symbols[])
image[i]+=(Cell)image;
}
}
((ImageHeader*)(image))->base = image;
((ImageHeader*)(image))->base = (Address) image;
}
UCell checksum(Label symbols[])
......@@ -313,7 +313,7 @@ int go_forth(Address image, int stack, Cell *entries)
if (rp <= rp0 && rp > (Cell *)(image_header->return_stack_base+5)) {
/* no rstack overflow or underflow */
rp0 = rp;
*--rp0 = ip;
*--rp0 = (int) ip;
}
else /* I love non-syntactic ifdefs :-) */
#endif
......
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