view tests/mini/phobos/bug71.d @ 969:fe2d9bb7078d

Add some extra debug output that's useful in diagnosing inline assembler bugs.
author Frits van Bommel <fvbommel wxs.nl>
date Mon, 16 Feb 2009 23:56:56 +0100
parents fc098100ecc7
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;
    }
}