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

* insert type conversions to the prototype type for internal procedures as well, rol/ror/sar and friends require the exact type

Browse Source 
git-svn-id: trunk@17808 -
This commit is contained in:
florian 2011-06-23 20:50:47 +00:00
parent 2f17dbbed3
commit fda10ff098
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ncal.pas
View File

@ -2868,7 +2868,19 @@ implementation
begin
if assigned(left) then
begin
{ ptr and settextbuf needs two args }
{ convert types to those of the prototype, this is required by functions like ror, rol, sar
some use however a dummy type (Typedfile) so this would break them }
if not(tprocdef(procdefinition).extnumber in [fpc_in_Reset_TypedFile,fpc_in_Rewrite_TypedFile]) then
begin
{ bind parasyms to the callparanodes and insert hidden parameters }
bind_parasym;
{ insert type conversions for parameters }
if assigned(left) then
tcallparanode(left).insert_typeconv;
end;
{ ptr and settextbuf need two args }
if assigned(tcallparanode(left).right) then
begin
hpt:=geninlinenode(tprocdef(procdefinition).extnumber,is_const,left);