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

* remove accidently committed debug statement

Browse Source
This commit is contained in:
florian 2025-01-12 11:32:34 +01:00
parent dc2c6c8996
commit 5bb4049737
3 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/riscv/aoptcpurv.pas
View File

@ -37,7 +37,6 @@ uses
aasmtai, aasmcpu;
type
TRVCpuAsmOptimizer = class(TAsmOptimizer)
function InstructionLoadsFromReg(const reg: TRegister; const hp: tai): boolean; override;
function RegLoadedWithNewValue(reg: tregister; hp: tai): boolean; override;

1
compiler/riscv/cpubase.pas
View File

@ -43,6 +43,7 @@ uses
A_FMV_S,A_FABS_S,A_FNEG_S,A_FMV_D,A_FABS_D,A_FNEG_D,A_FNEG_Q,
A_BEQZ,A_BNEZ,A_BLEZ,A_BGEZ,A_BLTZ,A_BGTZ,A_BGT,A_BLE,
A_BGTU,A_BLEU,A_J,A_JR,A_RET,A_TAIL,
{ normal opcodes }
A_LUI,A_AUIPC,A_JAL,A_JALR,
A_Bxx,A_LB,A_LH,A_LW,A_LBU,A_LHU,

2
compiler/riscv64/cgcpu.pas
View File

@ -122,8 +122,6 @@ implementation
((tcgsize2unsigned[fromsize]<>fromsize) and ((tcgsize2unsigned[tosize]=tosize)) and
(tcgsize2size[fromsize] < tcgsize2size[tosize]) and (tcgsize2size[tosize] <> sizeof(pint)) ) then
begin
if 8*(8-tcgsize2size[tosize])=64 then
writeln;
if tcgsize2size[fromsize]<tcgsize2size[tosize] then
begin
list.Concat(taicpu.op_reg_reg_const(A_SLLI,reg2,reg1,8*(8-tcgsize2size[fromsize])));