void GCLargeAlloc::Free(const void *item)
{
LargeBlock *b = GetBlockHeader(item);
if(b->flags & kHasWeakRef)
b->gc->ClearWeakRef(GetUserPointer(item));
LargeBlock **prev = &m_blocks;
while(*prev)
{
if(b == *prev)
{
*prev = b->next;
m_gc->FreeBlock(b, b->GetNumBlocks());
return;
}
prev = &(*prev)->next;
}
GCAssertMsg(false, "Bad free!");
}
BOOL
DSM_Load (BOOL curious)
{
int t;
DSMINST s;
SAMPLE *q;
int cursmp = 0, curpat = 0, track = 0;
blocklp = 0;
blockln = 12;
if (!GetBlockHeader ())
return 0;
if (memcmp (blockid, SONGID, 4))
{
_mm_errno = MMERR_LOADING_HEADER;
return 0;
}
_mm_read_UBYTES (mh->songname, 28, modreader);
mh->version = _mm_read_I_UWORD (modreader);
mh->flags = _mm_read_I_UWORD (modreader);
mh->reserved2 = _mm_read_I_ULONG (modreader);
mh->numord = _mm_read_I_UWORD (modreader);
mh->numsmp = _mm_read_I_UWORD (modreader);
mh->numpat = _mm_read_I_UWORD (modreader);
mh->numtrk = _mm_read_I_UWORD (modreader);
mh->globalvol = _mm_read_UBYTE (modreader);
mh->mastervol = _mm_read_UBYTE (modreader);
mh->speed = _mm_read_UBYTE (modreader);
mh->bpm = _mm_read_UBYTE (modreader);
_mm_read_UBYTES (mh->panpos, DSM_MAXCHAN, modreader);
_mm_read_UBYTES (mh->orders, DSM_MAXORDERS, modreader);
/* set module variables */
of.initspeed = mh->speed;
of.inittempo = mh->bpm;
of.modtype = strdup (DSM_Version);
of.numchn = mh->numtrk;
of.numpat = mh->numpat;
of.numtrk = of.numchn * of.numpat;
of.songname = DupStr (mh->songname, 28, 1); /* make a cstr of songname */
of.reppos = 0;
for (t = 0; t < DSM_MAXCHAN; t++)
of.panning[t] = mh->panpos[t] == DSM_SURROUND ? PAN_SURROUND :
mh->panpos[t] < 0x80 ? (mh->panpos[t] << 1) : 255;
if (!AllocPositions (mh->numord))
return 0;
of.numpos = 0;
for (t = 0; t < mh->numord; t++)
{
of.positions[of.numpos] = mh->orders[t];
if (mh->orders[t] < 254)
of.numpos++;
}
of.numins = of.numsmp = mh->numsmp;
if (!AllocSamples ())
return 0;
if (!AllocTracks ())
return 0;
if (!AllocPatterns ())
return 0;
while (cursmp < of.numins || curpat < of.numpat)
{
if (!GetBlockHeader ())
return 0;
if (!memcmp (blockid, INSTID, 4) && cursmp < of.numins)
{
q = &of.samples[cursmp];
/* try to read sample info */
_mm_read_UBYTES (s.filename, 13, modreader);
s.flags = _mm_read_I_UWORD (modreader);
s.volume = _mm_read_UBYTE (modreader);
s.length = _mm_read_I_ULONG (modreader);
s.loopstart = _mm_read_I_ULONG (modreader);
s.loopend = _mm_read_I_ULONG (modreader);
s.reserved1 = _mm_read_I_ULONG (modreader);
s.c2spd = _mm_read_I_UWORD (modreader);
s.period = _mm_read_I_UWORD (modreader);
_mm_read_UBYTES (s.samplename, 28, modreader);
q->samplename = DupStr (s.samplename, 28, 1);
q->seekpos = _mm_ftell (modreader);
q->speed = s.c2spd;
q->length = s.length;
q->loopstart = s.loopstart;
q->loopend = s.loopend;
q->volume = s.volume;
if (s.flags & 1)
q->flags |= SF_LOOP;
if (s.flags & 2)
q->flags |= SF_SIGNED;
/* (s.flags&4) means packed sample,
but did they really exist in dsm ? */
cursmp++;
}
else if (!memcmp (blockid, PATTID, 4) && curpat < of.numpat)
{
DSM_ReadPattern ();
for (t = 0; t < of.numchn; t++)
if (!(of.tracks[track++] = DSM_ConvertTrack (&dsmbuf[t * 64])))
return 0;
curpat++;
}
}
return 1;
}
