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

- removed the unused 's: topsize' parameter to TSdccSdasZ80Assembler.WriteOper

Browse Source 
git-svn-id: branches/z80@44586 -
This commit is contained in:
nickysn 2020-04-04 23:04:35 +00:00
parent 1b06b649a7
commit c0b4e5c994
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/z80/agsdasz80.pas
View File

@ -47,7 +47,7 @@ unit agsdasz80;
procedure WriteSection(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder;secalign:longint;
secflags:TSectionFlags=[];secprogbits:TSectionProgbits=SPB_None);
procedure WriteInstruction(hp: taicpu);
procedure WriteOper(const o:toper;s : topsize; opcode: tasmop;ops:longint;dest : boolean);
procedure WriteOper(const o:toper; opcode: tasmop;ops:longint;dest : boolean);
procedure WriteOper_jmp(const o:toper; ai : taicpu);
public
procedure WriteTree(p : TAsmList); override;
@ -308,14 +308,13 @@ unit agsdasz80;
if is_calljmp(hp.opcode) then
WriteOper_jmp(taicpu(hp).oper[i]^,hp)
else
WriteOper(taicpu(hp).oper[i]^,S_B{taicpu(hp).opsize},hp.opcode,taicpu(hp).ops,(i=2));
WriteOper(taicpu(hp).oper[i]^,hp.opcode,taicpu(hp).ops,(i=2));
end;
end;
writer.AsmLn;
end;
procedure TSdccSdasZ80Assembler.WriteOper(const o: toper; s: topsize;
opcode: tasmop; ops: longint; dest: boolean);
procedure TSdccSdasZ80Assembler.WriteOper(const o: toper; opcode: tasmop; ops: longint; dest: boolean);
var
need_plus: Boolean;
begin