From b90cbbdc859d9aa7436fe5a6e5ae1fc3d76965d1 Mon Sep 17 00:00:00 2001 From: DeaDDooMER Date: Wed, 5 Feb 2020 18:17:53 +0300 Subject: [PATCH] fix allocation arrays of untagged pointers --- src/cpfront/posix/486/System/Mod/Kernel.cp | 4 ++-- src/cpfront/posix/powerpc/System/Mod/Kernel.cp | 4 ++-- src/native/linux/486/System/Mod/Kernel.cp | 4 ++-- src/native/posix/486/System/Mod/Kernel.cp | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) 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; -- 2.29.2