mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-27 07:30:59 -08:00
Code Issues Projects Releases Wiki Activity

Avoid fixing non-pointers by examining tag.

Browse source 
Copied from Perforce
 Change: 15259
 ServerID: perforce.ravenbrook.com
This commit is contained in:
David Moore 1996-02-13 16:36:32 +00:00
parent 3d9c076164
commit ed3f13afd0
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mps/src/fmtdy.c
View file

@ -1,6 +1,6 @@
/* impl.c.fmtdy: DYLAN OBJECT FORMAT IMPLEMENTATION
*
* $HopeName: MMsrc!fmtdy.c(trunk.1) $
* $HopeName: MMsrc!fmtdy.c(trunk.2) $
* Copyright (C) 1996 Harlequin Group, all rights reserved.
*
* All objects, B:
@ -158,6 +158,8 @@ static mps_res_t dylan_scan_contig(mps_ss_t mps_ss,
p = base;
loop: if(p >= limit) goto out;
r = *p++;
if(((mps_word_t)r&3) != 0) /* pointers tagged with 0 */
goto loop; /* not a pointer */
if(!MPS_FIX1(mps_ss, r)) goto loop;
res = MPS_FIX2(mps_ss, p-1);
if(res == MPS_RES_OK) goto loop;
@ -200,6 +202,8 @@ static mps_res_t dylan_scan_pat(mps_ss_t mps_ss,
pat >>= 1;
if(b == 0) goto loop;
r = *(pp-1);
if(((mps_word_t)r&3) != 0) /* pointers tagged with 0 */
goto loop; /* not a pointer */
if(!MPS_FIX1(mps_ss, r)) goto loop;
res = MPS_FIX2(mps_ss, pp-1);
if(res == MPS_RES_OK) goto loop;