1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
 herr_t
 ss_pers_unique(ss_pers_t *pers                  /* Persistent object to make unique */
                )
 {
     SS_ENTER(ss_pers_unique, herr_t);
     ss_persobj_t *persobj = ss_pers_deref(pers);

     if (!persobj) SS_ERROR(NOTFOUND);
     if (0==(persobj->mapidx & SS_TABLE_INDIRECT)) SS_ERROR_FMT(USAGE, ("only new objects can be marked as unique"));
     persobj->saf_each = sslib_g.serial++;
     persobj->dirty = TRUE;
     persobj->synced = FALSE;

  SS_CLEANUP:
     SS_LEAVE(0);
 }