19 |
|
#include "otypes.h" |
20 |
|
|
21 |
|
#ifndef OSTSIZ |
22 |
+ |
#ifdef BIGMEM |
23 |
+ |
#define OSTSIZ 56437 /* object table size (a prime!) */ |
24 |
+ |
#else |
25 |
|
#define OSTSIZ 12329 /* object table size (a prime!) */ |
26 |
|
#endif |
27 |
+ |
#endif |
28 |
|
|
29 |
|
static OBJECT *ostable[OSTSIZ]; /* the object set table */ |
30 |
|
|
50 |
|
{ |
51 |
|
register int i; |
52 |
|
|
53 |
< |
for (i = (*os++)--; i > 0 && *os < obj; i--, os++) |
54 |
< |
; |
53 |
> |
i = (*os)--; |
54 |
> |
os++; |
55 |
> |
while (i > 0 && *os < obj) { |
56 |
> |
i--; |
57 |
> |
os++; |
58 |
> |
} |
59 |
|
while (--i > 0) { |
60 |
|
os[0] = os[1]; |
61 |
|
os++; |
193 |
|
{ |
194 |
|
int n; |
195 |
|
register OBJECT *os; |
196 |
< |
register OBJECT i, t; |
196 |
> |
register OBJECT i, s; |
197 |
|
|
198 |
|
for (n = 0; n < OSTSIZ; n++) { |
199 |
|
if ((os = ostable[n]) == NULL) |
200 |
|
continue; |
201 |
|
while ((i = *os++) > 0) |
202 |
|
while (i--) { |
203 |
< |
t = *os++; |
204 |
< |
if (t >= orig && t < orig+nobjs) { |
205 |
< |
t = objptr(t)->otype; |
206 |
< |
if (!issurface(t)) |
207 |
< |
return(1); |
200 |
< |
} |
203 |
> |
s = *os; |
204 |
> |
if (s >= orig && s < orig+nobjs && |
205 |
> |
!issurface(objptr(s)->otype)) |
206 |
> |
return(1); |
207 |
> |
os++; |
208 |
|
} |
209 |
|
} |
210 |
|
return(0); |