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

- removed getopstr - unused function, causing warning

Browse Source 
git-svn-id: branches/z80@44834 -
This commit is contained in:
nickysn 2020-04-19 04:54:38 +00:00
parent fb9d7c1289
commit ed2c19293a
1 changed files with 0 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/z80/agsdasz80.pas
View File

@ -530,36 +530,6 @@ unit agsdasz80;
end; 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); procedure doalign(alignment: byte; use_op: boolean; fillop: byte; maxbytes: byte; out last_align: longint;lasthp:tai);
var var
i: longint; i: longint;