コード例 #1
0
ファイル: poolmfs.c プロジェクト: clojit/rust-mps-obj
static void MFSFinish(Inst inst)
{
  Pool pool = MustBeA(AbstractPool, inst);
  MFS mfs = MustBeA(MFSPool, pool);

  MFSFinishTracts(pool, MFSTractFreeVisitor, UNUSED_POINTER);

  mfs->sig = SigInvalid;

  NextMethod(Inst, MFSPool, finish)(inst);
}
コード例 #2
0
ファイル: poolmfs.c プロジェクト: BarAgent/mps-temporary
static void MFSFinish(Pool pool)
{
  MFS mfs;

  AVERT(Pool, pool);
  mfs = PoolPoolMFS(pool);
  AVERT(MFS, mfs);

  MFSFinishTracts(pool, MFSTractFreeVisitor, NULL, 0);

  mfs->sig = SigInvalid;
}
コード例 #3
0
ファイル: poolmfs.c プロジェクト: CarterTsai/clasp
static void MFSFinish(Pool pool)
{
  MFS mfs;

  AVERT(Pool, pool);
  mfs = PoolPoolMFS(pool);
  AVERT(MFS, mfs);

  MFSFinishTracts(pool, MFSTractFreeVisitor, UNUSED_POINTER, UNUSED_SIZE);

  mfs->sig = SigInvalid;
}