mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-13 12:29:14 +02:00
[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 <skalogryz.lists@gmail.com> Date: Tue, 3 Sep 2019 15:37:05 -0400 git-svn-id: branches/wasm@45888 -
This commit is contained in:
parent
75b7396c09
commit
b2a4f2105e
@ -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;
|
||||||
|
@ -607,6 +607,6 @@ implementation
|
|||||||
);
|
);
|
||||||
|
|
||||||
|
|
||||||
begin
|
initialization
|
||||||
RegisterAssembler(as_wasm_binaryen_info,TBinaryenAssembler);
|
RegisterAssembler(as_wasm_binaryen_info,TBinaryenAssembler);
|
||||||
end.
|
end.
|
||||||
|
@ -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;
|
||||||
|
@ -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
|
initialization
|
||||||
ParaManager:=tcpuparamanager.create;
|
ParaManager:=tcpuparamanager.create;
|
||||||
end.
|
end.
|
||||||
|
@ -60,6 +60,6 @@ implementation
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
begin
|
initialization
|
||||||
cprocinfo:=tcpuprocinfo;
|
cprocinfo:=tcpuprocinfo;
|
||||||
end.
|
end.
|
||||||
|
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user