Browse Source

[PATCH 11/83] replacing unit-begin with unit initialization. plus cleaning up java (jvm) reference

From 8f9a8d080e2e5fa2950a502a5e366a2cbddc091c Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <[email protected]>
Date: Tue, 3 Sep 2019 15:37:05 -0400

git-svn-id: branches/wasm@45888 -
nickysn 5 years ago
parent
commit
b2a4f2105e

+ 1 - 1
compiler/wasm/aasmcpu.pas

@@ -258,7 +258,7 @@ implementation
       begin
       begin
       end;
       end;
 
 
-begin
+initialization
   cai_cpu:=taicpu;
   cai_cpu:=taicpu;
   cai_align:=tai_align;
   cai_align:=tai_align;
   casmdata:=TAsmData;
   casmdata:=TAsmData;

+ 1 - 1
compiler/wasm/agbinaryen.pas

@@ -607,6 +607,6 @@ implementation
        );
        );
 
 
 
 
-begin
+initialization
   RegisterAssembler(as_wasm_binaryen_info,TBinaryenAssembler);
   RegisterAssembler(as_wasm_binaryen_info,TBinaryenAssembler);
 end.
 end.

+ 1 - 1
compiler/wasm/cpubase.pas

@@ -214,7 +214,7 @@ uses
       NR_FRAME_POINTER_REG = NR_STACK_POINTER_REG;
       NR_FRAME_POINTER_REG = NR_STACK_POINTER_REG;
       RS_FRAME_POINTER_REG = RS_STACK_POINTER_REG;
       RS_FRAME_POINTER_REG = RS_STACK_POINTER_REG;
 
 
-      { Java results are returned on the evaluation stack, not via a register }
+      { WebAssembly results are returned on the evaluation stack, not via a register }
 
 
       { Results are returned in this register (32-bit values) }
       { Results are returned in this register (32-bit values) }
       NR_FUNCTION_RETURN_REG = NR_NO;
       NR_FUNCTION_RETURN_REG = NR_NO;

+ 3 - 3
compiler/wasm/cpupara.pas

@@ -1,5 +1,5 @@
 {
 {
-    Copyright (c) 1998-2010 by Florian Klaempfl, Jonas Maebe
+    Copyright (c) 2019 by Dmtiry Boyarintsev
 
 
     Calling conventions for the WebAssembly
     Calling conventions for the WebAssembly
 
 
@@ -324,6 +324,6 @@ implementation
       end;
       end;
 
 
 
 
-begin
-   ParaManager:=tcpuparamanager.create;
+initialization
+  ParaManager:=tcpuparamanager.create;
 end.
 end.

+ 1 - 1
compiler/wasm/cpupi.pas

@@ -60,6 +60,6 @@ implementation
       end;
       end;
 
 
 
 
-begin
+initialization
   cprocinfo:=tcpuprocinfo;
   cprocinfo:=tcpuprocinfo;
 end.
 end.

+ 1 - 1
compiler/wasm/symcpu.pas

@@ -912,7 +912,7 @@ implementation
         result:=inherited;
         result:=inherited;
     end;
     end;
 
 
-begin
+initialization
   { used tdef classes }
   { used tdef classes }
   cfiledef:=tcpufiledef;
   cfiledef:=tcpufiledef;
   cvariantdef:=tcpuvariantdef;
   cvariantdef:=tcpuvariantdef;