Bug fix in cast

This commit is contained in:
ceriel 1989-02-06 14:38:00 +00:00
parent 0ec10de716
commit 732d0eac5c

View file

@ -371,7 +371,7 @@ oldcore(p,size) short *p; int size; {
assert(size<2*MAXSHORT); assert(size<2*MAXSHORT);
#ifdef CORECHECK #ifdef CORECHECK
for (cp=freelist[size/sizeof(short)]; cp != (short *) 0; for (cp=freelist[size/sizeof(short)]; cp != (short *) 0;
cp = (short *) *cp) cp = *(short **) cp)
assert(cp != p); assert(cp != p);
#endif #endif
*(short **) p = freelist[size/sizeof(short)]; *(short **) p = freelist[size/sizeof(short)];