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

* fixed internal error with int64 comparisations

Browse Source 
git-svn-id: trunk@3337 -
This commit is contained in:
florian 2006-04-26 18:12:22 +00:00
parent 001ca388eb
commit 6c3ef12cfb
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/arm/narmadd.pas
View File

@ -33,6 +33,7 @@ interface
private
function GetResFlags(unsigned:Boolean):TResFlags;
protected
function pass_1 : tnode;override;
procedure second_addfloat;override;
procedure second_cmpfloat;override;
procedure second_cmpordinal;override;
@ -300,6 +301,21 @@ interface
end;
function tarmaddnode.pass_1 : tnode;
begin
result:=inherited pass_1;
{ handling boolean expressions }
if not(assigned(result)) and
(
not(is_boolean(left.resulttype.def)) or
not(is_boolean(right.resulttype.def)) or
is_dynamic_array(left.resulttype.def)
) then
expectloc:=LOC_FLAGS;
end;
procedure tarmaddnode.second_cmpordinal;
var
unsigned : boolean;