diff options
Diffstat (limited to 'gs/src/zpacked.c')
| -rw-r--r-- | gs/src/zpacked.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gs/src/zpacked.c b/gs/src/zpacked.c index 4410cd953..3d733c300 100644 --- a/gs/src/zpacked.c +++ b/gs/src/zpacked.c @@ -26,6 +26,7 @@ #include "ivmspace.h" #include "oper.h" #include "store.h" +#include "gxalloc.h" /* - currentpacking <bool> */ private int @@ -104,7 +105,7 @@ make_packed_array(ref * parr, ref_stack_t * pstack, uint size, pref = ref_stack_index(pstack, i - 1); switch (r_btype(pref)) { /* not r_type, opers are special */ case t_name: - if (name_index(pref) >= packed_name_max_index) + if (name_index(imem, pref) >= packed_name_max_index) break; /* can't pack */ idest++; continue; @@ -173,7 +174,7 @@ make_packed_array(ref * parr, ref_stack_t * pstack, uint size, switch (r_btype(pref)) { /* not r_type, opers are special */ case t_name: { - uint nidx = name_index(pref); + uint nidx = name_index(imem, pref); if (nidx >= packed_name_max_index) break; /* can't pack */ @@ -220,7 +221,7 @@ make_packed_array(ref * parr, ref_stack_t * pstack, uint size, while (--i >= 0) { --psrc; --pmove; - packed_get(psrc, pmove); + packed_get(imem, psrc, pmove); } } pshort = pdest += packed_per_ref; |