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

* fixed web bug #1735 (argument of inc/dec must be made unique) ("merged")

Browse Source
This commit is contained in:
Jonas Maebe 2001-12-28 14:09:21 +00:00
parent 92977ca6ee
commit ad0fc51cf6
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/ninl.pas
View File

@ -1648,7 +1648,10 @@ implementation
if (left.resulttype.def.deftype in [enumdef,pointerdef]) or if (left.resulttype.def.deftype in [enumdef,pointerdef]) or
is_ordinal(left.resulttype.def) then is_ordinal(left.resulttype.def) then
begin begin
{ two paras ? } { value of left gets changed -> must be unique }
{ (bug 1735) (JM) }
set_unique(tcallparanode(left).left);
{ two paras ? }
if assigned(tcallparanode(left).right) then if assigned(tcallparanode(left).right) then
begin begin
{ insert a type conversion } { insert a type conversion }
@ -2321,7 +2324,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.66 2001-12-10 14:26:22 jonas Revision 1.67 2001-12-28 14:09:21 jonas
* fixed web bug 1735 (argument of inc/dec must be made unique) ("merged")
Revision 1.66 2001/12/10 14:26:22 jonas
- removed unnecessary resulttypepass call - removed unnecessary resulttypepass call
Revision 1.65 2001/12/04 15:59:03 jonas Revision 1.65 2001/12/04 15:59:03 jonas