[fpc-devel] Typed addresses by default

[Micha Nelissen]

Jonas Maebe wrote:
> The problem is that this is something you did not patch, because it did
> not trigger a compiler error. You would have to go over all @-statements

Doing so now. There are actually not that many cases: only 324 :)

Command used:
$ (find -regex '.*\.\(pp\|pas\|inc\)' | xargs grep '@[^,]*+') | less

Possible problems:

./rtl/inc/variant.inc:
Result:=Pointer(ppointer(@variantmanager+i*sizeof(pointer))^)<>Pointer(@invalidvariantop);
./rtl/inc/variant.inc:
ppointer(@variantmanager+i*sizeof(pointer))^:=@invalidvariantopnovariants;
./rtl/inc/genset.inc:    FillChar((@dest+4)^,size-4,0);

Micha