diff --git a/compiler/htypechk.pas b/compiler/htypechk.pas index 0cbc874ff0..0e46bb1965 100644 --- a/compiler/htypechk.pas +++ b/compiler/htypechk.pas @@ -995,10 +995,16 @@ implementation if is_class_or_interface(hp.resulttype.def) then gotderef:=true; end; + muln, + divn, + andn, + xorn, + orn, + notn, subn, addn : 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 } if ((hp.resulttype.def.deftype=pointerdef) or (is_integer(hp.resulttype.def) and gotpointer)) and @@ -2029,7 +2035,10 @@ implementation end. { $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 Revision 1.114 2005/02/02 22:16:39 florian