Port shared core and platform services to native pointer widths

src/arch/common/system.init.inc

@@ -0,0 +1,33 @@
+// Copyright 2021 Kieron Morris & Aaron Hance
+// Copyright 2026 Aaron Hance
+//
+// Licensed under the Apache License, Version 2.0 (the "License");
+// you may not use this file except in compliance with the License.
+// You may obtain a copy of the License at
+// http://www.apache.org/licenses/LICENSE-2.0
+// Unless required by applicable law or agreed to in writing, software
+// distributed under the License is distributed on an "AS IS" BASIS,
+// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+// See the License for the specific language governing permissions and
+// limitations under the License.
+
+{ Shared dispatch for the table emitted by compile_initcalls.sh.
+  Initializers only register boot work or set globals; they cannot depend on
+  heap, hardware setup, or the alphabetical order of this generated table. }
+var
+    unitsInitialized: boolean;
+
+procedure initializeUnits;
+var
+    i: longint;
+    entry: CodePointer;
+begin
+    if unitsInitialized then exit;
+    unitsInitialized := true;
+
+    for i := 1 to InitFinalTable.TableCount do begin
+        entry := InitFinalTable.Procs[i].InitProc;
+        if entry <> nil then
+            TProcedure(entry)();
+    end;
+end;