- fixed: OP_LO was missing a read barrier.

This commit is contained in:
Christoph Oelckers 2016-11-17 20:41:59 +01:00
parent 3bcd85eb8a
commit e4dfb13d25

View file

@ -175,7 +175,7 @@ begin:
OP(LO): OP(LO):
ASSERTA(a); ASSERTA(B); ASSERTKD(C); ASSERTA(a); ASSERTA(B); ASSERTKD(C);
GETADDR(PB,KC,X_READ_NIL); GETADDR(PB,KC,X_READ_NIL);
reg.a[a] = *(DObject **)ptr; reg.a[a] = GC::ReadBarrier(*(DObject **)ptr);
reg.atag[a] = ATAG_OBJECT; reg.atag[a] = ATAG_OBJECT;
NEXTOP; NEXTOP;
OP(LO_R): OP(LO_R):