mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 07:09:09 +02:00
* don't allow assign to void type (merged)
This commit is contained in:
parent
b47af8e4dd
commit
b10905f2bd
@ -584,6 +584,11 @@ implementation
|
||||
gotpointer:=false;
|
||||
gotwith:=false;
|
||||
hp:=p;
|
||||
if is_void(hp.resulttype) then
|
||||
begin
|
||||
CGMessagePos(hp.fileinfo,type_e_argument_cant_be_assigned);
|
||||
exit;
|
||||
end;
|
||||
while assigned(hp) do
|
||||
begin
|
||||
{ property allowed? calln has a property check itself }
|
||||
@ -906,7 +911,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.20 2000/12/09 13:04:05 florian
|
||||
|
Loading…
Reference in New Issue
Block a user