paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 13:10:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* if the objecttype of the forward declaration mismatches use the objecttype previously parsed; fixes access violation of webtbf/tw11970.pp

Browse Source 
git-svn-id: trunk@34461 -
This commit is contained in:
svenbarth 2016-09-08 18:42:13 +00:00
parent 7dd0130ac2
commit c2fec2e819
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/pdecobj.pas
View File

@ -1347,7 +1347,7 @@ implementation
begin
Message(parser_e_forward_mismatch);
{ recover }
current_structdef:=cobjectdef.create(current_objectdef.objecttype,n,nil,true);
current_structdef:=cobjectdef.create(objecttype,n,nil,true);
include(current_structdef.objectoptions,oo_is_forward);
end
else