DEADSOFTWARE

Build with help make
[gpcp-linux.git] / gpcp / PeUtilForNET.cp
index 246f1fc371d74934a8e330120fce015871215837..e7f26daa677bd26ccaba17161b90c6d55fa6babd 100644 (file)
@@ -2457,7 +2457,7 @@ MODULE PeUtil;
     VAR xtn : ANYPTR;\r
   BEGIN (* returns Api.Type descriptor for this type *)\r
     IF tTy.tgXtn = NIL THEN Mu.MkTypeName(tTy, os) END;\r
-    IF (tTy IS TypeDesc.Opaque) & (tTy.tgXtn = NIL) THEN os.RescueOpaque(tTy(TypeDesc.Opaque)) END;\r
+    IF (tTy IS Ty.Opaque) & (tTy.tgXtn = NIL) THEN os.RescueOpaque(tTy(Ty.Opaque)) END;\r
     xtn := tTy.tgXtn;\r
     IF xtn = NIL THEN\r
       IF tTy.xName # NIL THEN tTy.TypeErrStr(236, tTy.xName);\r