Skip to content

Commit 2dc14c8

Browse files
committed
HPC-GAP fix
1 parent 8ccb68a commit 2dc14c8

File tree

1 file changed

+4
-1
lines changed

1 file changed

+4
-1
lines changed

src/objects.h

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -472,12 +472,15 @@ void MakeImmutable(Obj obj);
472472
** This is an unsafe helper function, for use in functions installed as
473473
** handlers in 'MakeImmutableObjFuncs' for internal objects tracking their
474474
** mutability, i.e., in the range FIRST_IMM_MUT_TNUM to LAST_IMM_MUT_TNUM.
475-
** It only modifies the TNUM, and does not make subobjects immutable.
475+
** It only sets an object flag, and does not make subobjects immutable.
476476
*/
477477
EXPORT_INLINE void MakeImmutableNoRecurse(Obj obj)
478478
{
479479
GAP_ASSERT((FIRST_IMM_MUT_TNUM <= TNUM_OBJ(obj)) && (TNUM_OBJ(obj) <= LAST_IMM_MUT_TNUM));
480480
SET_OBJ_FLAG(obj, OBJ_FLAG_IMMUTABLE);
481+
#ifdef HPCGAP
482+
MakeBagPublic(obj);
483+
#endif
481484
}
482485

483486

0 commit comments

Comments
 (0)