Mercurial > hg > xemacs-beta

comparison src/ntheap.c @ 282:c42ec1d1cded r21-0b39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents c5d627a313b1
children 8e84bee8ddd0
comparison
equal deleted inserted replaced
281:090b52736db2 282:c42ec1d1cded
187 { 187 {
188 data_region_base = allocate_heap (); 188 data_region_base = allocate_heap ();
189 if (!data_region_base) 189 if (!data_region_base)
190 return NULL; 190 return NULL;
191 191
192 #ifndef USE_MINIMAL_TAGBITS
192 /* Ensure that the addresses don't use the upper tag bits since 193 /* Ensure that the addresses don't use the upper tag bits since
193 the Lisp type goes there. */ 194 the Lisp type goes there. */
194 if (((unsigned long) data_region_base & ~VALMASK) != 0) 195 #ifdef USE_UNION_TYPE
196 if (((unsigned long) data_region_base & ~((1U << VALBITS) - 1)) != 0)
197 #else
198 if (((unsigned long) data_region_base & ~VALMASK) != 0)
199 #endif
195 { 200 {
196 printf ("Error: The heap was allocated in upper memory.\n"); 201 printf ("Error: The heap was allocated in upper memory.\n");
197 exit (1); 202 exit (1);
198 } 203 }
204 #endif
199 205
200 data_region_end = data_region_base; 206 data_region_end = data_region_base;
201 real_data_region_end = data_region_end; 207 real_data_region_end = data_region_end;
202 data_region_size = get_reserved_heap_size (); 208 data_region_size = get_reserved_heap_size ();
203 } 209 }