Variable of type 'address' assigned to type 'pointer' gives wrong compiled code (6510)

[zzarko]

Trying to compile this code for C64:

program ErrorAddress;

var
	const adr: address = $1234;
	ptr: pointer;

begin
	ptr := adr;
end.

I get this as output:

main_block_begin_
	; LineNumber: 8
	lda $34
	ldx $12
	sta ptr
	stx ptr+1
	; LineNumber: 9
main_block_end_

I was expecting #$34 and #$12. I also tried to put ptr := ^adr, but that gives error during parsing. In the end, problem was solved by changing type from address to integer, but that is not ideal, as some operations require address (e.g. CopyFullScreen does not work with integer type).