fix allocation arrays of untagged pointers

diff --git a/src/cpfront/posix/486/System/Mod/Kernel.cp b/src/cpfront/posix/486/System/Mod/Kernel.cp
index 87ea635fc7524de0eca557d825ed0fc6dfee3f8c..2bf92b68237769c6deddf11bdad893684daca151 100644 (file)
--- a/src/cpfront/posix/486/System/Mod/Kernel.cp
+++ b/src/cpfront/posix/486/System/Mod/Kernel.cp
@@ -589,9 +589,9 @@ MODULE Kernel;
     | 9: eltyp := S.ADR(Char16Type)
     | 10: eltyp := S.ADR(Int64Type)
     | 11: eltyp := S.ADR(ProcType)
     | 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
     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;
     END;
     t := S.VAL(Type, eltyp);
     headSize := 4 * nofdim + 12;

diff --git a/src/cpfront/posix/powerpc/System/Mod/Kernel.cp b/src/cpfront/posix/powerpc/System/Mod/Kernel.cp
index 5656ed0d724933234231188ee13b18e089bc6a43..f691ecc43674eb3818a2e6ac8102f16492f81862 100644 (file)
--- 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)
     | 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
     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;
     END;
     t := S.VAL(Type, eltyp);
     headSize := 4 * nofdim + 12;

diff --git a/src/native/linux/486/System/Mod/Kernel.cp b/src/native/linux/486/System/Mod/Kernel.cp
index 339c640058e4331b420c560eda57e85186474d25..89d2ffd7c5792b93d26a46d193d0dfef99c82e82 100644 (file)
--- a/src/native/linux/486/System/Mod/Kernel.cp
+++ b/src/native/linux/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)
     | 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
     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;
     END;
     t := S.VAL(Type, eltyp);
     headSize := 4 * nofdim + 12;

diff --git a/src/native/posix/486/System/Mod/Kernel.cp b/src/native/posix/486/System/Mod/Kernel.cp
index 93ccf251f7e6b00207a1dbe799004268b0f7b6ae..2ffbe43c520daa3c7c64038e9572b6f5c931fe8d 100644 (file)
--- 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)
     | 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
     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;
     END;
     t := S.VAL(Type, eltyp);
     headSize := 4 * nofdim + 12;