Kernel: fix kernels compilation and processor types

diff --git a/src/cpfront/posix/486/System/Mod/Kernel.cp b/src/cpfront/posix/486/System/Mod/Kernel.cp
index 2bf92b68237769c6deddf11bdad893684daca151..a53ab07af3967b5b53f73e3912dea550dbb3baf7 100644 (file)
--- a/src/cpfront/posix/486/System/Mod/Kernel.cp
+++ b/src/cpfront/posix/486/System/Mod/Kernel.cp
@@ -589,7 +589,7 @@ MODULE Kernel;
     | 9: eltyp := S.ADR(Char16Type)
     | 10: eltyp := S.ADR(Int64Type)
     | 11: eltyp := S.ADR(ProcType)
-    | 12: eltype := S.ADR(UPtrType)
+    | 12: eltyp := S.ADR(UPtrType)
     ELSE
       ASSERT(~ODD(eltyp), 101)  (* COM interface pointers not supported *)
     END;

diff --git a/src/cpfront/posix/powerpc/System/Mod/Kernel.cp b/src/cpfront/posix/powerpc/System/Mod/Kernel.cp
index f691ecc43674eb3818a2e6ac8102f16492f81862..b76117b2e026685f434778b43f6520d2d78b97f1 100644 (file)
--- a/src/cpfront/posix/powerpc/System/Mod/Kernel.cp
+++ b/src/cpfront/posix/powerpc/System/Mod/Kernel.cp
@@ -608,7 +608,7 @@ MODULE Kernel;
     | 9: eltyp := S.ADR(Char16Type)
     | 10: eltyp := S.ADR(Int64Type)
     | 11: eltyp := S.ADR(ProcType)
-    | 12: eltype := S.ADR(UPtrType)
+    | 12: eltyp := S.ADR(UPtrType)
     ELSE
       ASSERT(~ODD(eltyp), 101)  (* COM interface pointers not supported *)
     END;

diff --git a/src/native/linux/486/System/Mod/Kernel.cp b/src/native/linux/486/System/Mod/Kernel.cp
index 89d2ffd7c5792b93d26a46d193d0dfef99c82e82..637c06de556b8b9b8a598f5a9f66b9d888e62519 100644 (file)
--- a/src/native/linux/486/System/Mod/Kernel.cp
+++ b/src/native/linux/486/System/Mod/Kernel.cp
@@ -15,7 +15,7 @@ MODULE Kernel;
     littleEndian* = TRUE;
     timeResolution* = 1000; (* ticks per second *)
 
-    processor* = 1;  (* generic c *)
+    processor* = 10;  (* 486 *)
 
     objType* = "ocf"; (* file types *)
     symType* = "osf";

diff --git a/src/native/posix/486/System/Mod/Kernel.cp b/src/native/posix/486/System/Mod/Kernel.cp
index 2ffbe43c520daa3c7c64038e9572b6f5c931fe8d..7853c5178860262ae65fb327a594d7b5c459697e 100644 (file)
--- a/src/native/posix/486/System/Mod/Kernel.cp
+++ b/src/native/posix/486/System/Mod/Kernel.cp
@@ -15,7 +15,7 @@ MODULE Kernel;
     littleEndian* = TRUE;
     timeResolution* = 1000; (* ticks per second *)
 
-    processor* = 1;  (* generic c *)
+    processor* = 10;  (* 486 *)
 
     objType* = "ocf"; (* file types *)
     symType* = "osf";
@@ -587,7 +587,7 @@ MODULE Kernel;
     | 9: eltyp := S.ADR(Char16Type)
     | 10: eltyp := S.ADR(Int64Type)
     | 11: eltyp := S.ADR(ProcType)
-    | 12: eltype := S.ADR(UPtrType)
+    | 12: eltyp := S.ADR(UPtrType)
     ELSE
       ASSERT(~ODD(eltyp), 101)  (* COM interface pointers not supported *)
     END;