示例#1
0
local void
scobindTestCheckUnique(Stab stab, Symbol sym)
{
	SymeList sl = stabGetMeanings(stab, ablogFalse(), sym);
	testIntEqual("unique", 1, listLength(Syme)(sl));
	testPointerEqual("name", sym, symeId(car(sl)));
}
示例#2
0
文件: syme.c 项目: hemmecke/aldor
Syme
symeCopy(Syme osyme)
{
	Syme	syme = symeAllocCopy(osyme);

	symeSetId(syme, symeId(osyme));
	symeSetLib(syme, symeLib(osyme));
	symeSetHash(syme, symeHash(osyme));
	syme->type = osyme->type;

	if (fintMode == FINT_LOOP)
		symeSetIntStepNo(syme, intStepNo);

	return syme;
}