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

Avoid wrong typecast in DoReplace function as revealed by extcycle

Browse Source 
git-svn-id: trunk@22376 -
This commit is contained in:
pierre 2012-09-12 14:06:48 +00:00
parent 3db493482b
commit fd844d08e0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncgutil.pas
View File

@ -1739,7 +1739,8 @@ implementation
case n.nodetype of
loadn:
begin
if (tabstractvarsym(tloadnode(n).symtableentry).varoptions * [vo_is_dll_var, vo_is_thread_var] = []) and
if tloadnode(n).symtableentry.inheritsfrom(tabstractvarsym) and
(tabstractvarsym(tloadnode(n).symtableentry).varoptions * [vo_is_dll_var, vo_is_thread_var] = []) and
not assigned(tloadnode(n).left) and
((tloadnode(n).symtableentry <> rr^.ressym) or
not(fc_exit in flowcontrol)