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

* don't allow assign to void type (merged)

Browse Source
This commit is contained in:
peter 2001-02-20 21:46:26 +00:00
parent b47af8e4dd
commit b10905f2bd
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/htypechk.pas
View File

@ -584,6 +584,11 @@ implementation
gotpointer:=false; gotpointer:=false;
gotwith:=false; gotwith:=false;
hp:=p; hp:=p;
if is_void(hp.resulttype) then
begin
CGMessagePos(hp.fileinfo,type_e_argument_cant_be_assigned);
exit;
end;
while assigned(hp) do while assigned(hp) do
begin begin
{ property allowed? calln has a property check itself } { property allowed? calln has a property check itself }
@ -906,7 +911,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.21 2001-02-04 11:12:17 jonas Revision 1.22 2001-02-20 21:46:26 peter
* don't allow assign to void type (merged)
Revision 1.21 2001/02/04 11:12:17 jonas
* fixed web bug 1377 & const pointer arithmtic * fixed web bug 1377 & const pointer arithmtic
Revision 1.20 2000/12/09 13:04:05 florian Revision 1.20 2000/12/09 13:04:05 florian