paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 19:49:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tai_impexp renamed tai_export_name

Browse Source 
* ait_importexport renamed ait_export_name
This commit is contained in:
Nikolay Nikolov 2021-09-26 18:35:10 +03:00
parent 2940d0f45f
commit 346b57e238
5 changed files with 20 additions and 22 deletions

6
compiler/aasmtai.pas
View File

@ -92,7 +92,7 @@ interface
ait_llvmmetadatarefoperand, { llvm metadata referece: !metadataname !id }
{$endif}
{$ifdef wasm}
ait_importexport,
ait_export_name,
ait_local,
ait_functype,
ait_tagtype,
@ -242,7 +242,7 @@ interface
'llvmmetadatarefop',
{$endif}
{$ifdef wasm}
'importexport',
'export_name',
'local',
'functype',
'tagtype',
@ -363,7 +363,7 @@ interface
ait_llvmmetadatarefoperand,
{$endif llvm}
{$ifdef wasm}
ait_importexport,ait_local,ait_functype,ait_tagtype,ait_import_module,ait_import_name,
ait_export_name,ait_local,ait_functype,ait_tagtype,ait_import_module,ait_import_name,
{$endif wasm}
ait_seh_directive,
ait_cfi,

6
compiler/aggas.pas
View File

@ -820,7 +820,7 @@ implementation
end;
procedure WriteImportExport(hp:tai_impexp);
procedure WriteImportExport(hp:tai_export_name);
var
symstypestr: string;
begin
@ -1645,8 +1645,8 @@ implementation
end;
ait_functype:
WriteFuncTypeDirective(tai_functype(hp));
ait_importexport:
WriteImportExport(tai_impexp(hp));
ait_export_name:
WriteImportExport(tai_export_name(hp));
ait_tagtype:
WriteTagType(tai_tagtype(hp));
ait_import_module:

2
compiler/systems/t_wasi.pas
View File

@ -241,7 +241,7 @@ var
nm : TSymStr;
begin
nm := tprocdef(tprocsym(hp.sym).ProcdefList[0]).mangledname;
current_asmdata.asmlists[al_exports].Concat(tai_impexp.create(hp.name^, nm, ie_Func));
current_asmdata.asmlists[al_exports].Concat(tai_export_name.create(hp.name^, nm, ie_Func));
end;
procedure texportlibwasi.exportvar(hp: texported_item);

10
compiler/wasm32/aasmcpu.pas
View File

@ -83,11 +83,9 @@ uses
ie_Global // global variables
);
// the actual use is defined by the assembly section used
{ tai_export_name }
{ timpexp_ai }
tai_impexp = class(tai)
tai_export_name = class(tai)
extname : ansistring; // external name
intname : ansistring; // internal name
symstype: TImpExpType;
@ -208,11 +206,11 @@ uses
{ timpexp_ai }
constructor tai_impexp.create(const aextname, aintname: ansistring;
constructor tai_export_name.create(const aextname, aintname: ansistring;
asymtype: timpexptype);
begin
inherited create;
typ := ait_importexport;
typ := ait_export_name;
extname := aextname;
intname := aintname;
symstype:= asymtype;

18
compiler/wasm32/agwat.pas
View File

@ -853,7 +853,7 @@ implementation
procedure TWabtTextAssembler.WriteExports(p: TAsmList);
var
hp: tai;
x: tai_impexp;
x: tai_export_name;
cnt: integer;
begin
if not Assigned(p) then Exit;
@ -863,12 +863,12 @@ implementation
cnt := 0;
while Assigned(hp) do begin
case hp.typ of
ait_importexport:
ait_export_name:
inc(cnt);
else
;
end;
hp := tai_impexp(hp.Next);
hp := tai_export_name(hp.Next);
end;
// writting out table, so wat2wasm can create reallocation symbols
@ -880,16 +880,16 @@ implementation
hp:=tai(p.First);
while Assigned(hp) do begin
case hp.typ of
ait_importexport:
ait_export_name:
begin
x:=tai_impexp(hp);
x:=tai_export_name(hp);
writer.AsmWrite(#9#9);
writer.AsmWriteLn(GetWasmName(x.intname));
end;
else
;
end;
hp := tai_impexp(hp.Next);
hp := tai_export_name(hp.Next);
end;
writer.AsmWriteLn(#9') ');
@ -897,9 +897,9 @@ implementation
hp:=tai(p.First);
while Assigned(hp) do begin
case hp.typ of
ait_importexport:
ait_export_name:
begin
x:=tai_impexp(hp);
x:=tai_export_name(hp);
writer.AsmWrite(#9#9'(export "');
writer.AsmWrite(x.extname);
writer.AsmWrite('" (');
@ -916,7 +916,7 @@ implementation
else
;
end;
hp := tai_impexp(hp.Next);
hp := tai_export_name(hp.Next);
end;
end;