From ed2c19293aacb11ae85e4ad45e341638d4773c78 Mon Sep 17 00:00:00 2001 From: nickysn Date: Sun, 19 Apr 2020 04:54:38 +0000 Subject: [PATCH] - removed getopstr - unused function, causing warning git-svn-id: branches/z80@44834 - --- compiler/z80/agsdasz80.pas | 30 ------------------------------ 1 file changed, 30 deletions(-) diff --git a/compiler/z80/agsdasz80.pas b/compiler/z80/agsdasz80.pas index 06b8f1e75b..896d1b908a 100644 --- a/compiler/z80/agsdasz80.pas +++ b/compiler/z80/agsdasz80.pas @@ -530,36 +530,6 @@ unit agsdasz80; end; - function getopstr(const o:toper) : string; - var - hs : string; - first : boolean; - r : tsuperregister; - begin - //case o.typ of - // top_reg: - // getopstr:=gas_regname(o.reg); - // top_const: - // getopstr:=tostr(longint(o.val)); - // top_ref: - // if o.ref^.refaddr=addr_full then - // begin - // hs:=ReplaceForbiddenAsmSymbolChars(o.ref^.symbol.name); - // if o.ref^.offset>0 then - // hs:=hs+'+'+tostr(o.ref^.offset) - // else - // if o.ref^.offset<0 then - // hs:=hs+tostr(o.ref^.offset); - // getopstr:=hs; - // end - // else - // getopstr:=getreferencestring(o.ref^); - // else - // internalerror(2002070604); - //end; - end; - - procedure doalign(alignment: byte; use_op: boolean; fillop: byte; maxbytes: byte; out last_align: longint;lasthp:tai); var i: longint;