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

- removed some unneeded and sometimes wrong typecasts (could be

Browse Source 
typeconv nodes as well rather than direct setelementn)

git-svn-id: trunk@6186 -
This commit is contained in:
Jonas Maebe 2007-01-25 15:19:47 +00:00
parent ee2a4bc8f2
commit d3ea2fa9e3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nadd.pas
View File

@ -1804,8 +1804,8 @@ implementation
if assigned(tsetelementnode(right).right) then
addstatement(newstatement,ccallnode.createintern('fpc_varset_set_range',
ccallparanode.create(cordconstnode.create(resultdef.size,sinttype,false),
ccallparanode.create(ctypeconvnode.create_internal(tsetelementnode(tsetelementnode(right).right),sinttype),
ccallparanode.create(ctypeconvnode.create_internal(tsetelementnode(tsetelementnode(right).left),sinttype),
ccallparanode.create(ctypeconvnode.create_internal(tsetelementnode(right).right,sinttype),
ccallparanode.create(ctypeconvnode.create_internal(tsetelementnode(right).left,sinttype),
ccallparanode.create(ctemprefnode.create(temp),
ccallparanode.create(left,nil))))))
)