paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 08:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed twasmreader.HandlePlainInstruction to return an instruction

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-07-15 16:34:17 +03:00
parent c1c1d46c15
commit 8e79108e51
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/wasm32/rawasmtext.pas
View File

@ -62,7 +62,7 @@ Unit rawasmtext;
function is_valtype(const s: string):boolean;
procedure HandleInstruction;
procedure HandleFoldedInstruction;
procedure HandlePlainInstruction;
function HandlePlainInstruction: TWasmInstruction;
procedure HandleBlockInstruction;virtual;abstract;
public
function Assemble: tlinkedlist;override;
@ -683,15 +683,14 @@ Unit rawasmtext;
end;
procedure twasmreader.HandlePlainInstruction;
var
instr: TWasmInstruction;
function twasmreader.HandlePlainInstruction: TWasmInstruction;
begin
result:=nil;
case actasmtoken of
AS_OPCODE:
begin
instr:=TWasmInstruction.create(TWasmOperand);
instr.opcode:=actopcode;
result:=TWasmInstruction.create(TWasmOperand);
result.opcode:=actopcode;
Consume(AS_OPCODE);
case actopcode of
{ instructions, which require 0 operands }
@ -759,15 +758,15 @@ Unit rawasmtext;
begin
if actasmtoken=AS_INTNUM then
begin
instr.operands[1].opr.typ:=OPR_CONSTANT;
instr.operands[1].opr.val:=actinttoken;
result.operands[1].opr.typ:=OPR_CONSTANT;
result.operands[1].opr.val:=actinttoken;
Consume(AS_INTNUM);
end
else
begin
{ error: expected integer }
instr.Free;
instr:=nil;
result.Free;
result:=nil;
Consume(AS_INTNUM);
end;
end;