paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 13:28:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

optcse: fix wrong typecast

Browse Source
This commit is contained in:
Jonas Maebe 2021-11-01 13:56:33 +01:00
parent 1b8170d18d
commit 89d2775191
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/optcse.pas
View File

@ -652,7 +652,7 @@ unit optcse;
(vo_is_thread_var in tstaticvarsym(tloadnode(pconstentry(arg)^.valuenode).symtableentry).varoptions) then
begin
hp:=ctypeconvnode.create_internal(cderefnode.create(ctemprefnode.create(pconstentry(arg)^.temp)),pconstentry(arg)^.valuenode.resultdef);
tderefnode(hp).left.fileinfo:=n.fileinfo;
ttypeconvnode(hp).left.fileinfo:=n.fileinfo;
end
else
hp:=ctemprefnode.create(pconstentry(arg)^.temp);