SharedObj = object
  len*: Natural
  size*: Natural
  sptr*: pointer

aLock: Lock

proc incCount() {...}{.raises: [], tags: [].}

proc incDataCount() {...}{.raises: [], tags: [].}

proc incSeqDataCount() {...}{.raises: [], tags: [].}

proc decCount() {...}{.raises: [], tags: [].}

proc decDataCount() {...}{.raises: [], tags: [].}

proc decSeqDataCount() {...}{.raises: [], tags: [].}

proc freeSharedData(ssptr: ptr SharedObj) {...}{.raises: [], tags: [].}

proc freeShared(ssptr: ptr SharedObj) {...}{.raises: [], tags: [].}

proc newShared(): ptr SharedObj {...}{.raises: [], tags: [].}

proc initShared(ssptr: ptr SharedObj): ptr SharedObj {...}{.raises: [], tags: [].}

proc initSharedData(ssptr: ptr SharedObj; len, size: Natural) {...}{.raises: [], tags: [].}