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

* also don't do conversion for chars/booleans (hopefully final change :/)

Browse Source
This commit is contained in:
Jonas Maebe 2000-11-12 15:27:22 +00:00
parent 3e276f278a
commit 72f618d322
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ninl.pas
View File

@ -755,6 +755,8 @@ implementation
{ range/overflow checking doesn't work properly } { range/overflow checking doesn't work properly }
{ with the inc/dec code that's generated (JM) } { with the inc/dec code that's generated (JM) }
((left.resulttype^.deftype = orddef) and ((left.resulttype^.deftype = orddef) and
not(is_char(left.resulttype)) and
not(is_boolean(left.resulttype)) and
(aktlocalswitches * (aktlocalswitches *
[cs_check_overflow,cs_check_range] <> [])) then [cs_check_overflow,cs_check_range] <> [])) then
{ convert to simple add (JM) } { convert to simple add (JM) }
@ -1496,7 +1498,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.17 2000-11-11 21:08:13 jonas Revision 1.18 2000-11-12 15:27:22 jonas
* also don't do conversion for chars/booleans (hopefully final change :/)
Revision 1.17 2000/11/11 21:08:13 jonas
* don't do inc/dec to add/sub conversion for enums * don't do inc/dec to add/sub conversion for enums
Revision 1.16 2000/11/11 16:18:35 peter Revision 1.16 2000/11/11 16:18:35 peter