paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 09:31:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

* added missing getcopy for previous addition

Browse Source
This commit is contained in:
Jonas Maebe 2000-10-15 08:38:46 +00:00
parent 8a381b9ec3
commit 54ce0b8a7d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ninl.pas
View File

@ -688,7 +688,7 @@ implementation
hpp := cordconstnode.create(1,s32bitdef); hpp := cordconstnode.create(1,s32bitdef);
{ addition/substraction depending on inc/dec } { addition/substraction depending on inc/dec }
if inlinenumber = in_inc_x then if inlinenumber = in_inc_x then
hp := caddnode.create(addn,tcallparanode(left).left,hpp) hp := caddnode.create(addn,tcallparanode(left).left.getcopy,hpp)
else else
hp := caddnode.create(subn,tcallparanode(left).left.getcopy,hpp); hp := caddnode.create(subn,tcallparanode(left).left.getcopy,hpp);
{ assign result of addition } { assign result of addition }
@ -1412,7 +1412,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.8 2000-10-14 18:27:53 jonas Revision 1.9 2000-10-15 08:38:46 jonas
* added missing getcopy for previous addition
Revision 1.8 2000/10/14 18:27:53 jonas
* merged fix for inc/dec on 64bit types from tcinl * merged fix for inc/dec on 64bit types from tcinl
Revision 1.7 2000/10/14 10:14:50 peter Revision 1.7 2000/10/14 10:14:50 peter