245 |
exit (1); |
exit (1); |
246 |
} |
} |
247 |
|
|
248 |
|
#if defined (NO_UNION_TYPE) && !defined (USE_LSB_TAG) |
249 |
/* Ensure that the addresses don't use the upper tag bits since |
/* Ensure that the addresses don't use the upper tag bits since |
250 |
the Lisp type goes there. */ |
the Lisp type goes there. */ |
251 |
if (((unsigned long) data_region_base & ~VALMASK) != 0) |
if (((unsigned long) data_region_base & ~VALMASK) != 0) |
253 |
printf ("Error: The heap was allocated in upper memory.\n"); |
printf ("Error: The heap was allocated in upper memory.\n"); |
254 |
exit (1); |
exit (1); |
255 |
} |
} |
256 |
|
#endif |
257 |
data_region_end = data_region_base; |
data_region_end = data_region_base; |
258 |
real_data_region_end = data_region_end; |
real_data_region_end = data_region_end; |
259 |
} |
} |