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

* allow more operations on integers with a typecast to pointer

Browse Source
This commit is contained in:
peter 2005-02-14 16:45:00 +00:00
parent 540c2c5bea
commit 3af83637d8
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/htypechk.pas
View File

@ -995,10 +995,16 @@ implementation
if is_class_or_interface(hp.resulttype.def) then if is_class_or_interface(hp.resulttype.def) then
gotderef:=true; gotderef:=true;
end; end;
muln,
divn,
andn,
xorn,
orn,
notn,
subn, subn,
addn : addn :
begin begin
{ Allow add/sub operators on a pointer, or an integer { Allow operators on a pointer, or an integer
and a pointer typecast and deref has been found } and a pointer typecast and deref has been found }
if ((hp.resulttype.def.deftype=pointerdef) or if ((hp.resulttype.def.deftype=pointerdef) or
(is_integer(hp.resulttype.def) and gotpointer)) and (is_integer(hp.resulttype.def) and gotpointer)) and
@ -2029,7 +2035,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.115 2005-02-13 20:33:57 peter Revision 1.116 2005-02-14 16:45:00 peter
* allow more operations on integers with a typecast to pointer
Revision 1.115 2005/02/13 20:33:57 peter
* allow nil^ passed to var parameter * allow nil^ passed to var parameter
Revision 1.114 2005/02/02 22:16:39 florian Revision 1.114 2005/02/02 22:16:39 florian