X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=blobdiff_plain;f=src%2Fnative%2Fposix%2F486%2FSystem%2FMod%2FKernel.cp;h=2ffbe43c520daa3c7c64038e9572b6f5c931fe8d;hp=93ccf251f7e6b00207a1dbe799004268b0f7b6ae;hb=b90cbbdc859d9aa7436fe5a6e5ae1fc3d76965d1;hpb=f2367fdce1d3ed0d4caeabca10d83c8d2c03b43e

diff --git a/src/native/posix/486/System/Mod/Kernel.cp b/src/native/posix/486/System/Mod/Kernel.cp
index 93ccf25..2ffbe43 100644
--- a/src/native/posix/486/System/Mod/Kernel.cp
+++ b/src/native/posix/486/System/Mod/Kernel.cp
@@ -587,9 +587,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: eltype := 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;