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

* Fixed tw11027.

Browse Source 
* Updated tcnvint2 to new rules.

git-svn-id: trunk@10677 -
This commit is contained in:
yury 2008-04-16 08:34:30 +00:00
parent 68572932d4
commit 24be2c31f7
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ncgcnv.pas
View File

@ -447,8 +447,9 @@ interface
second_bool_to_int
else
begin
{ remove nf_explicit to perform full conversion }
exclude(flags, nf_explicit);
if (resultdef.size<>left.resultdef.size) then
{ remove nf_explicit to perform full conversion if boolean sizes are different }
exclude(flags, nf_explicit);
second_int_to_bool;
end;
end;

8
tests/test/cg/tcnvint2.pp
View File

@ -112,12 +112,12 @@ begin
Test('longint -> longbool : Value should be TRUE...',lb1);
{$ifndef tp}
fromint64 := $10000000;
lb1 := longbool(fromint64);
lb1 := longbool(qwordbool(fromint64));
Test('int64 -> longbool : Value should be TRUE...',lb1);
{ does it indirectly, since it might not work in direct mode }
value:=1;
fromint64 := int64(value) shl int64(36) ;
lb1 := longbool(fromint64);
lb1 := longbool(qwordbool(fromint64));
Test('int64 -> longbool : Value should be TRUE...',lb1);
{$endif}
{ left : LOC_REGISTER }
@ -154,9 +154,9 @@ begin
Test('longint -> longbool : Value should be TRUE...',lb1);
{$ifndef tp}
fromint64 := $10000000;
lb1 := longbool(getint64);
lb1 := longbool(qwordbool(getint64));
Test('int64 -> longbool : Value should be TRUE...',lb1);
lb1 := longbool(getint64_2);
lb1 := longbool(qwordbool(getint64_2));
Test('int64 -> longbool : Value should be TRUE...',lb1);
{$endif}
{ left : LOC_FLAGS }