X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fcpfront%2Fposix%2Fpowerpc%2FSystem%2FMod%2FKernel.cp;h=b76117b2e026685f434778b43f6520d2d78b97f1;hb=4bf6d419bd3ba4bc8902de1607e60fdced58590d;hp=5656ed0d724933234231188ee13b18e089bc6a43;hpb=2f6052eb7f36254f3f459addb169dd7c07786cf7;p=cpc.git

diff --git a/src/cpfront/posix/powerpc/System/Mod/Kernel.cp b/src/cpfront/posix/powerpc/System/Mod/Kernel.cp
index 5656ed0..b76117b 100644
--- a/src/cpfront/posix/powerpc/System/Mod/Kernel.cp
+++ b/src/cpfront/posix/powerpc/System/Mod/Kernel.cp
@@ -608,9 +608,9 @@ MODULE Kernel;
     | 9: eltyp := S.ADR(Char16Type)
     | 10: eltyp := S.ADR(Int64Type)
     | 11: eltyp := S.ADR(ProcType)
-    | 12: HALT(101)  (* COM interface pointers not supported *)
+    | 12: eltyp := S.ADR(UPtrType)
     ELSE
-      ASSERT(~ODD(eltyp), 102)  (* COM interface pointers not supported *)
+      ASSERT(~ODD(eltyp), 101)  (* COM interface pointers not supported *)
     END;
     t := S.VAL(Type, eltyp);
     headSize := 4 * nofdim + 12;