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

* prevent compiler crash caused by double freeing after reporting not

Browse Source 
overloaded operator errors

git-svn-id: trunk@22833 -
This commit is contained in:
Jonas Maebe 2012-10-23 16:50:30 +00:00
parent 6023f73e2a
commit fd8827d379
3 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -11163,6 +11163,7 @@ tests/test/toperator86.pp svneol=native#text/pascal
tests/test/toperator87.pp svneol=native#text/pascal
tests/test/toperator88.pp svneol=native#text/pascal
tests/test/toperator9.pp svneol=native#text/pascal
tests/test/toperatorerror.pp svneol=native#text/plain
tests/test/tover1.pp svneol=native#text/plain
tests/test/tover2.pp svneol=native#text/plain
tests/test/tover3.pp svneol=native#text/plain

3
compiler/htypechk.pas
View File

@ -827,6 +827,7 @@ implementation
CGMessage(parser_e_operator_not_overloaded);
candidates.free;
ppn.free;
ppn:=nil;
exit;
end;
@ -847,6 +848,7 @@ implementation
CGMessage3(parser_e_operator_not_overloaded_3,ld.typename,arraytokeninfo[optoken].str,rd.typename);
candidates.free;
ppn.free;
ppn:=nil;
exit;
end;
@ -932,6 +934,7 @@ implementation
if (cand_cnt=0) and (optoken=_NE) then
begin
ppn.free;
ppn:=nil;
operpd:=nil;
optoken:=_EQ;
cand_cnt:=search_operator(optoken,true);

10
tests/test/toperatorerror.pp Normal file
View File

@ -0,0 +1,10 @@
{ %fail }
type
tenum=(ea);
var
p: pointer;
e: tenum;
begin
if e<>p then ;
end.