mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 08:49:25 +02:00
+ initialize some common variables in TZ80AddNode.second_cmp16_32_64bit
git-svn-id: branches/z80@44729 -
This commit is contained in:
parent
f9e4f7b19b
commit
2e6b36f57d
@ -312,7 +312,24 @@ interface
|
|||||||
|
|
||||||
|
|
||||||
procedure TZ80AddNode.second_cmp16_32_64bit;
|
procedure TZ80AddNode.second_cmp16_32_64bit;
|
||||||
|
var
|
||||||
|
truelabel,
|
||||||
|
falselabel: tasmlabel;
|
||||||
|
unsigned : boolean;
|
||||||
begin
|
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);
|
internalerror(2020041601);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user