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

* procvar compare with 2 ints did not check the integer size

Browse Source
This commit is contained in:
peter 2002-12-27 15:26:12 +00:00
parent 42af4ce5b9
commit 39473f1e59
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/defcmp.pas
View File

@ -1100,7 +1100,10 @@ implementation
false,true,convtype,hpd); false,true,convtype,hpd);
if (eq>te_incompatible) and if (eq>te_incompatible) and
(eq<te_equal) and (eq<te_equal) and
not(convtype in [tc_equal,tc_int_2_int]) then not(
(convtype in [tc_equal,tc_int_2_int]) and
(def1.paratype.def.size=def2.paratype.def.size)
) then
begin begin
eq:=te_incompatible; eq:=te_incompatible;
end; end;
@ -1193,7 +1196,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.10 2002-12-23 22:22:16 peter Revision 1.11 2002-12-27 15:26:12 peter
* procvar compare with 2 ints did not check the integer size
Revision 1.10 2002/12/23 22:22:16 peter
* don't allow implicit bool->int conversion * don't allow implicit bool->int conversion
Revision 1.9 2002/12/18 21:37:36 peter Revision 1.9 2002/12/18 21:37:36 peter