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

* no longer allow assignments to pointer expressions (unless there's a

Browse Source 
deref), reported by John Lee
This commit is contained in:
Jonas Maebe 2002-01-16 09:33:46 +00:00
parent 7c570fb338
commit a921654f56
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/htypechk.pas
View File

@ -787,8 +787,9 @@ implementation
begin
{ Allow add/sub operators on a pointer, or an integer
and a pointer typecast and deref has been found }
if (hp.resulttype.def.deftype=pointerdef) or
(is_integer(hp.resulttype.def) and gotpointer and gotderef) then
if ((hp.resulttype.def.deftype=pointerdef) or
(is_integer(hp.resulttype.def) and gotpointer)) and
gotderef then
valid_for_assign:=true
else
CGMessagePos(hp.fileinfo,type_e_variable_id_expected);
@ -937,7 +938,11 @@ implementation
end.
{
$Log$
Revision 1.40 2001-12-31 16:59:41 peter
Revision 1.41 2002-01-16 09:33:46 jonas
* no longer allow assignments to pointer expressions (unless there's a
deref), reported by John Lee
Revision 1.40 2001/12/31 16:59:41 peter
* protected/private symbols parsing fixed
Revision 1.39 2001/11/08 21:55:36 marco