Address of a variable: Difference between revisions
Content added Content deleted
Line 1,265: | Line 1,265: | ||
// Using byref at GemMem8 signature |
// Using byref at GemMem8 signature |
||
declare GetMem8 lib "msvbvm60.GetMem8" {long &addr, long &retValue} |
declare GetMem8 lib "msvbvm60.GetMem8" {long &addr, long &retValue} |
||
declare PutMem8 lib "msvbvm60.PutMem8" {long &addr, retValue as long long} |
|||
long long x=1234567812345678&&, z |
long long x=1234567812345678&&, z |
||
dim k(2,2,2) as long long |
dim k(2,2,2) as long long |
||
Line 1,271: | Line 1,272: | ||
print z=x |
print z=x |
||
print k(1,0,1)=x |
print k(1,0,1)=x |
||
link z to m |
|||
print VarPtr(z)=VarPtr(m) |
|||
checkref(&z) |
checkref(&z) |
||
print z=987654321987654321&& |
|||
sub checkref(&p) |
sub checkref(&p) |
||
print VarPtr(z)=VarPtr(p) |
print VarPtr(z)=VarPtr(p) |
||
call PutMem8(&p, 987654321987654321&&) |
|||
end sub |
end sub |
||
} |
} |