
  PROCEDURE [INLINE] jsp$set_relink_lock
    (    ijl_ord: jmt$ijl_ordinal);

?? PUSH (LISTEXT := ON) ??

    VAR
      old_traps: 0 .. 3,
      lock_already_set: boolean;

    REPEAT
      i#mtr_disable_traps (old_traps);
      #TEST_SET (jsv$ijl_relink_lock.lock, lock_already_set);
      IF lock_already_set THEN
        i#mtr_restore_traps (old_traps);
        { maybe wait or something later }
      IFEND;
    UNTIL NOT lock_already_set;

    jsv$ijl_relink_lock.lock_owner := ijl_ord;
    i#mtr_restore_traps (old_traps);

  PROCEND jsp$set_relink_lock;

?? POP ??

