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

* a_cmp_stack_label renamed a_cmp_stack_stack

Browse Source 
git-svn-id: branches/wasm@48038 -
This commit is contained in:
nickysn 2021-01-04 13:33:40 +00:00
parent 0a0ec1de65
commit 5145681ccd
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/wasm32/hlcgcpu.pas
View File

@ -178,7 +178,7 @@ uses
{ this routine expects that all values are already massaged into the { this routine expects that all values are already massaged into the
required form (sign bits xor'ed for gt/lt comparisons for OS_32/OS_64, required form (sign bits xor'ed for gt/lt comparisons for OS_32/OS_64,
see http://stackoverflow.com/questions/4068973/c-performing-signed-comparison-in-unsigned-variables-without-casting ) } see http://stackoverflow.com/questions/4068973/c-performing-signed-comparison-in-unsigned-variables-without-casting ) }
procedure a_cmp_stack_label(list : TAsmlist; size: tdef; cmp_op: topcmp; lab: tasmlabel); procedure a_cmp_stack_stack(list : TAsmlist; size: tdef; cmp_op: topcmp; lab: tasmlabel);
{ these 2 routines perform the massaging expected by the previous one } { these 2 routines perform the massaging expected by the previous one }
procedure maybe_adjust_cmp_stackval(list : TAsmlist; size: tdef; cmp_op: topcmp); procedure maybe_adjust_cmp_stackval(list : TAsmlist; size: tdef; cmp_op: topcmp);
function maybe_adjust_cmp_constval(size: tdef; cmp_op: topcmp; a: tcgint): tcgint; function maybe_adjust_cmp_constval(size: tdef; cmp_op: topcmp; a: tcgint): tcgint;
@ -803,7 +803,7 @@ implementation
*) *)
end; end;
procedure thlcgwasm.a_cmp_stack_label(list: TAsmlist; size: tdef; cmp_op: topcmp; lab: tasmlabel); procedure thlcgwasm.a_cmp_stack_stack(list: TAsmlist; size: tdef; cmp_op: topcmp; lab: tasmlabel);
const const
opcmp32: array[topcmp] of tasmop = ( opcmp32: array[topcmp] of tasmop = (
A_None, { OC_NONE, } A_None, { OC_NONE, }
@ -832,7 +832,7 @@ implementation
cgsize: tcgsize; cgsize: tcgsize;
begin begin
// WASM doesn't have compare+jump (to label) operation // WASM doesn't have compare+jump (to label) operation
// thus even though this is a_cmp_stack_label() // thus even though this is a_cmp_stack_stack()
// label operrand is ommited // label operrand is ommited
// //
// todo: it should NOT be ommitted when we're leaving a block // todo: it should NOT be ommitted when we're leaving a block
@ -1337,7 +1337,7 @@ implementation
a_load_ref_stack(list,size,tmpref,prepare_stack_for_ref(list,tmpref,false)); a_load_ref_stack(list,size,tmpref,prepare_stack_for_ref(list,tmpref,false));
maybe_adjust_cmp_stackval(list,size,cmp_op); maybe_adjust_cmp_stackval(list,size,cmp_op);
a_load_const_stack(list,size,maybe_adjust_cmp_constval(size,cmp_op,a),def2regtyp(size)); a_load_const_stack(list,size,maybe_adjust_cmp_constval(size,cmp_op,a),def2regtyp(size));
a_cmp_stack_label(list,size,cmp_op,l); a_cmp_stack_stack(list,size,cmp_op,l);
end; end;
procedure thlcgwasm.a_cmp_const_reg_label(list: TAsmList; size: tdef; cmp_op: topcmp; a: tcgint; reg: tregister; l: tasmlabel); procedure thlcgwasm.a_cmp_const_reg_label(list: TAsmList; size: tdef; cmp_op: topcmp; a: tcgint; reg: tregister; l: tasmlabel);
@ -1345,7 +1345,7 @@ implementation
a_load_reg_stack(list,size,reg); a_load_reg_stack(list,size,reg);
maybe_adjust_cmp_stackval(list,size,cmp_op); maybe_adjust_cmp_stackval(list,size,cmp_op);
a_load_const_stack(list,size,maybe_adjust_cmp_constval(size,cmp_op,a),def2regtyp(size)); a_load_const_stack(list,size,maybe_adjust_cmp_constval(size,cmp_op,a),def2regtyp(size));
a_cmp_stack_label(list,size,cmp_op,l); a_cmp_stack_stack(list,size,cmp_op,l);
end; end;
procedure thlcgwasm.a_cmp_ref_reg_label(list: TAsmList; size: tdef; cmp_op: topcmp; const ref: treference; reg: tregister; l: tasmlabel); procedure thlcgwasm.a_cmp_ref_reg_label(list: TAsmList; size: tdef; cmp_op: topcmp; const ref: treference; reg: tregister; l: tasmlabel);
@ -1363,7 +1363,7 @@ implementation
Internalerror(2019083003); Internalerror(2019083003);
end; end;
maybe_adjust_cmp_stackval(list,size,cmp_op); maybe_adjust_cmp_stackval(list,size,cmp_op);
a_cmp_stack_label(list,size,cmp_op,l); a_cmp_stack_stack(list,size,cmp_op,l);
end; end;
procedure thlcgwasm.a_cmp_reg_ref_label(list: TAsmList; size: tdef; cmp_op: topcmp; reg: tregister; const ref: treference; l: tasmlabel); procedure thlcgwasm.a_cmp_reg_ref_label(list: TAsmList; size: tdef; cmp_op: topcmp; reg: tregister; const ref: treference; l: tasmlabel);
@ -1376,7 +1376,7 @@ implementation
maybe_adjust_cmp_stackval(list,size,cmp_op); maybe_adjust_cmp_stackval(list,size,cmp_op);
a_load_reg_stack(list,size,reg); a_load_reg_stack(list,size,reg);
maybe_adjust_cmp_stackval(list,size,cmp_op); maybe_adjust_cmp_stackval(list,size,cmp_op);
a_cmp_stack_label(list,size,cmp_op,l); a_cmp_stack_stack(list,size,cmp_op,l);
end; end;
procedure thlcgwasm.a_cmp_reg_reg_label(list: TAsmList; size: tdef; cmp_op: topcmp; reg1, reg2: tregister; l: tasmlabel); procedure thlcgwasm.a_cmp_reg_reg_label(list: TAsmList; size: tdef; cmp_op: topcmp; reg1, reg2: tregister; l: tasmlabel);
@ -1385,7 +1385,7 @@ implementation
maybe_adjust_cmp_stackval(list,size,cmp_op); maybe_adjust_cmp_stackval(list,size,cmp_op);
a_load_reg_stack(list,size,reg1); a_load_reg_stack(list,size,reg1);
maybe_adjust_cmp_stackval(list,size,cmp_op); maybe_adjust_cmp_stackval(list,size,cmp_op);
a_cmp_stack_label(list,size,cmp_op,l); a_cmp_stack_stack(list,size,cmp_op,l);
end; end;
procedure thlcgwasm.a_jmp_always(list: TAsmList; l: tasmlabel); procedure thlcgwasm.a_jmp_always(list: TAsmList; l: tasmlabel);