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

+ added method make_simple_ref (empty for now, but will be implemented later)

Browse Source 
git-svn-id: branches/z80@44640 -
This commit is contained in:
nickysn 2020-04-07 23:12:33 +00:00
parent 7fd807905f
commit 5e94fbff54
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/z80/cgcpu.pas
View File

@ -103,6 +103,8 @@ unit cgcpu;
procedure a_adjust_sp(list: TAsmList; value: longint); procedure a_adjust_sp(list: TAsmList; value: longint);
procedure make_simple_ref(list:TAsmList;var ref: treference);
protected protected
procedure a_op_reg_reg_internal(list: TAsmList; Op: TOpCG; size: TCGSize; src, srchi, dst, dsthi: TRegister); procedure a_op_reg_reg_internal(list: TAsmList; Op: TOpCG; size: TCGSize; src, srchi, dst, dsthi: TRegister);
procedure a_op_const_reg_internal(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; reg, reghi: TRegister); procedure a_op_const_reg_internal(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; reg, reghi: TRegister);
@ -1616,6 +1618,11 @@ unit cgcpu;
end; end;
procedure tcgz80.make_simple_ref(list: TAsmList; var ref: treference);
begin
end;
procedure tcgz80.g_proc_entry(list : TAsmList;localsize : longint;nostackframe:boolean); procedure tcgz80.g_proc_entry(list : TAsmList;localsize : longint;nostackframe:boolean);
var var
regsize,stackmisalignment: longint; regsize,stackmisalignment: longint;