diff options
| author | Richard M. Stallman | 1995-11-10 15:56:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-11-10 15:56:08 +0000 |
| commit | 519418b37a65db6064cb624ec034cb80fb709fe4 (patch) | |
| tree | 0cb90e95018c839c4809fb034a382963bca7f64d /src | |
| parent | 118d6ca9bb232571c23149140706cb80ac5f2f3c (diff) | |
| download | emacs-519418b37a65db6064cb624ec034cb80fb709fe4.tar.gz emacs-519418b37a65db6064cb624ec034cb80fb709fe4.zip | |
(oblookup): Clear ARRAY_MARK_FLAG in obsize.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c index c1de692edfd..67d2b7fee21 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1961,6 +1961,8 @@ oblookup (obarray, ptr, size) | |||
| 1961 | obarray = check_obarray (obarray); | 1961 | obarray = check_obarray (obarray); |
| 1962 | obsize = XVECTOR (obarray)->size; | 1962 | obsize = XVECTOR (obarray)->size; |
| 1963 | } | 1963 | } |
| 1964 | /* This is sometimes needed in the middle of GC. */ | ||
| 1965 | obsize &= ~ARRAY_MARK_FLAG; | ||
| 1964 | /* Combining next two lines breaks VMS C 2.3. */ | 1966 | /* Combining next two lines breaks VMS C 2.3. */ |
| 1965 | hash = hash_string (ptr, size); | 1967 | hash = hash_string (ptr, size); |
| 1966 | hash %= obsize; | 1968 | hash %= obsize; |