mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-09 22:09:25 +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
|
||||
end;
|
||||
|
||||
begin
|
||||
initialization
|
||||
cai_cpu:=taicpu;
|
||||
cai_align:=tai_align;
|
||||
casmdata:=TAsmData;
|
||||
|
@ -607,6 +607,6 @@ implementation
|
||||
);
|
||||
|
||||
|
||||
begin
|
||||
initialization
|
||||
RegisterAssembler(as_wasm_binaryen_info,TBinaryenAssembler);
|
||||
end.
|
||||
|
@ -214,7 +214,7 @@ uses
|
||||
NR_FRAME_POINTER_REG = NR_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) }
|
||||
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
|
||||
|
||||
@ -324,6 +324,6 @@ implementation
|
||||
end;
|
||||
|
||||
|
||||
begin
|
||||
ParaManager:=tcpuparamanager.create;
|
||||
initialization
|
||||
ParaManager:=tcpuparamanager.create;
|
||||
end.
|
||||
|
@ -60,6 +60,6 @@ implementation
|
||||
end;
|
||||
|
||||
|
||||
begin
|
||||
initialization
|
||||
cprocinfo:=tcpuprocinfo;
|
||||
end.
|
||||
|
@ -912,7 +912,7 @@ implementation
|
||||
result:=inherited;
|
||||
end;
|
||||
|
||||
begin
|
||||
initialization
|
||||
{ used tdef classes }
|
||||
cfiledef:=tcpufiledef;
|
||||
cvariantdef:=tcpuvariantdef;
|
||||
|
Loading…
Reference in New Issue
Block a user