XProfan

window 10,10-500,500
declare Demo&,Dummy&--Geht
declare Demo&,Dummy%--Geht nicht
declare Demo&----------Geht nicht

proc Test----------------------------------

    parameters Text$,Pointer&
    long Pointer&,0=123
    endproc-------------------------------------
    Test(Text,addr(Demo&))
    print Test 1:,Demo&
    Test(Text,addr(Demo&))
    print Test 2:,Demo&
    KompilierenMarkierenSeparieren
proc Test----------------------------------

    parameters Pointer&
    endproc-------------------------------------
    declare Dummy&--Damit geht es
    var Demo&=123
    print addr(Demo&),Demo&
    Test(addr(Demo&))
    print addr(Demo&),Demo&
    Test(addr(Demo&))
    print addr(Demo&),Demo&
    waitkey

Hierbei ändert sich die Adresse, an der Demo&  liegt, durch den 1. Proc-Aufruf, allerdings nur, wenn der übergebene Wert per Parameters  ausgelesen wird.

Mit XProfan 10 reagiert alles wie erwartet.
Da stimmt doch was nicht ?!

PS: War ja klar, daß ausgerechnet ich circa sowas stolpere  

SeeYou
Pascal