From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Wed, 5 Feb 2020 15:17:53 +0000 (+0300)
Subject: fix allocation arrays of untagged pointers
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=b90cbbdc859d9aa7436fe5a6e5ae1fc3d76965d1;p=cpc.git

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 87ea635..2bf92b6 100644
--- 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)
-    | 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;
diff --git a/src/cpfront/posix/powerpc/System/Mod/Kernel.cp b/src/cpfront/posix/powerpc/System/Mod/Kernel.cp
index 5656ed0..f691ecc 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: 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;
diff --git a/src/native/linux/486/System/Mod/Kernel.cp b/src/native/linux/486/System/Mod/Kernel.cp
index 339c640..89d2ffd 100644
--- 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)
-    | 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;
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;