X-Git-Url: http://deadsoftware.ru/gitweb?p=gpcp-linux.git;a=blobdiff_plain;f=gpcp%2FPeUtilForNET.cp;h=e7f26daa677bd26ccaba17161b90c6d55fa6babd;hp=246f1fc371d74934a8e330120fce015871215837;hb=260845b9e011cfc81092e2b3125af210f830274f;hpb=62331d49cf25b79b4c97bf715a3ef23443b789f6

diff --git a/gpcp/PeUtilForNET.cp b/gpcp/PeUtilForNET.cp
index 246f1fc..e7f26da 100644
--- a/gpcp/PeUtilForNET.cp
+++ b/gpcp/PeUtilForNET.cp
@@ -2457,7 +2457,7 @@ MODULE PeUtil;
     VAR xtn : ANYPTR;
   BEGIN (* returns Api.Type descriptor for this type *)
     IF tTy.tgXtn = NIL THEN Mu.MkTypeName(tTy, os) END;
-    IF (tTy IS TypeDesc.Opaque) & (tTy.tgXtn = NIL) THEN os.RescueOpaque(tTy(TypeDesc.Opaque)) END;
+    IF (tTy IS Ty.Opaque) & (tTy.tgXtn = NIL) THEN os.RescueOpaque(tTy(Ty.Opaque)) END;
     xtn := tTy.tgXtn;
     IF xtn = NIL THEN
       IF tTy.xName # NIL THEN tTy.TypeErrStr(236, tTy.xName);