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

- removed never used function.

Browse Source 
git-svn-id: trunk@23697 -
This commit is contained in:
sergei 2013-03-05 18:05:52 +00:00
parent f4b6625145
commit a1b50f643e
1 changed files with 0 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/mips/cgcpu.pas
View File

@ -263,43 +263,6 @@ uses
end;{ case }
end;
function f_TOp64CG2AsmOp(op: TOpCG): TAsmOp;
begin
case op of
OP_ADD: { simple addition }
f_TOp64CG2AsmOp := A_DADDU;
OP_AND: { simple logical and }
f_TOp64CG2AsmOp := A_AND;
OP_DIV: { simple unsigned division }
f_TOp64CG2AsmOp := A_DDIVU;
OP_IDIV: { simple signed division }
f_TOp64CG2AsmOp := A_DDIV;
OP_IMUL: { simple signed multiply }
f_TOp64CG2AsmOp := A_DMULO;
OP_MUL: { simple unsigned multiply }
f_TOp64CG2AsmOp := A_DMULOU;
OP_NEG: { simple negate }
f_TOp64CG2AsmOp := A_DNEGU;
OP_NOT: { simple logical not }
f_TOp64CG2AsmOp := A_NOT;
OP_OR: { simple logical or }
f_TOp64CG2AsmOp := A_OR;
OP_SAR: { arithmetic shift-right }
f_TOp64CG2AsmOp := A_DSRA;
OP_SHL: { logical shift left }
f_TOp64CG2AsmOp := A_DSLL;
OP_SHR: { logical shift right }
f_TOp64CG2AsmOp := A_DSRL;
OP_SUB: { simple subtraction }
f_TOp64CG2AsmOp := A_DSUBU;
OP_XOR: { simple exclusive or }
f_TOp64CG2AsmOp := A_XOR;
else
InternalError(2007010702);
end;{ case }
end;
procedure TCGMIPS.make_simple_ref(list: tasmlist; var ref: treference);
var