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&
    KompilierenMarcaSeparación
proc Test----------------------------------

    parámetros Pointer&
    ENDPROC-------------------------------------
    declarar Dummy&--Damit va lo
    var Demo&=123
    imprimir addr(Demo&),Demo&
    Test(addr(Demo&))
    imprimir addr(Demo&),Demo&
    Test(addr(Demo&))
    imprimir addr(Demo&),Demo&
    waitkey

Hierbei ändert el Adresse, a el Demo&  liegt, por el 1. Proc-Aufruf, allerdings sólo, si la übergebene Valor por Parámetros  ausgelesen se.

Mit XProfan 10 reagiert alles como esperado.
Como stimmt doch qué no ?!

PS: War sí klar, daß ausgerechnet Yo encima algo como stolpere  

SeeYou
Pascal