File tree Expand file tree Collapse file tree 1 file changed +4
-1
lines changed
Expand file tree Collapse file tree 1 file changed +4
-1
lines changed Original file line number Diff line number Diff 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*/
477477EXPORT_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
You can’t perform that action at this time.
0 commit comments