view test/bug71.d @ 113:27b9f749d9fe trunk

[svn r117] Initial working implementation of interfaces. Groundwork for all the different types of class/interface casts laid out.
author lindquist
date Sat, 24 Nov 2007 06:33:00 +0100
parents 288fe1029e1f
children
line wrap: on
line source

module bug71;

void main()
{
    static TypeInfo skipCI(TypeInfo valti)
    {
      while (1)
      {
    if (valti.classinfo.name.length == 18 &&
        valti.classinfo.name[9..18] == "Invariant")
        valti = (cast(TypeInfo_Invariant)valti).next;
    else if (valti.classinfo.name.length == 14 &&
        valti.classinfo.name[9..14] == "Const")
        valti = (cast(TypeInfo_Const)valti).next;
    else
        break;
      }
      return valti;
    }
}