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

+ initialize some common variables in TZ80AddNode.second_cmp16_32_64bit

Browse Source 
git-svn-id: branches/z80@44729 -
This commit is contained in:
nickysn 2020-04-16 03:11:35 +00:00
parent f9e4f7b19b
commit 2e6b36f57d
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/z80/nz80add.pas
View File

@ -312,7 +312,24 @@ interface
procedure TZ80AddNode.second_cmp16_32_64bit;
var
truelabel,
falselabel: tasmlabel;
unsigned : boolean;
begin
truelabel:=nil;
falselabel:=nil;
pass_left_right;
unsigned:=not(is_signed(left.resultdef)) or
not(is_signed(right.resultdef));
{ we have LOC_JUMP as result }
current_asmdata.getjumplabel(truelabel);
current_asmdata.getjumplabel(falselabel);
location_reset_jump(location,truelabel,falselabel);
// todo: implement the rest
internalerror(2020041601);
end;