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))); }
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; }