RosettaCodeData/Task/Pointers-and-references/Phix/pointers-and-references-1.phix
2017-09-25 22:28:19 +02:00

5 lines
169 B
Text

atom addr = allocate(8) -- (assumes 32 bit)
poke4(addr,{NULL,SOME_CONSTANT})
c_proc(xSome_External_Routine,{addr,addr+4})
?peek4s({addr,2}) -- prints {x,y}
free(addr)