; IDL Version 6.4, Microsoft Windows (Win32 x86 m32)
; Journal File for prech@HLX01
; Working directory: K:\z-Milady\idl_
; Date: Wed Dec 11 17:29:27 2013
 
help, /heap
a=10
paa= ptr_new(a)
print, paa
;<PtrHeapVar1>
print, *paa
;      10
*paa = 20
print, *paa
;      20
pab= ptr_new(a, /no_copy)
print, *pab
;      10
pac= ptr_new()
pac = pab
pad= ptr_new()
pae= ptr_new(/allocate_heap)
print, *pac
;      10
print, *pad
; Unable to dereference NULL pointer: PAD.
print, *pae
; PRINT: Variable is undefined: <PtrHeapVar3>.
 *pae = 30
print, *pae
;      30
 *pad = 30
; Unable to dereference NULL pointer: PAD.
paf= ptr_new(/allocate_heap)
print, ptr_valid(paa)
;   1
print, ptr_valid(paf)
;   1
print, size(*paf)
;           0           0           0
print, size(*paa)
;           0           2           1
print, ptr_valid(pad)
;   0
par= ptrarr(2,5)
print, par
;<NullPointer><NullPointer>
;<NullPointer><NullPointer>
;<NullPointer><NullPointer>
;<NullPointer><NullPointer>
;<NullPointer><NullPointer>
print, ptr_valid(par)
;   0   0
;   0   0
;   0   0
;   0   0
;   0   0
par1= ptrarr(2,5, /al)
print, par1
;<PtrHeapVar5><PtrHeapVar6>
;<PtrHeapVar7><PtrHeapVar8>
;<PtrHeapVar9><PtrHeapVar10>
;<PtrHeapVar11><PtrHeapVar12>
;<PtrHeapVar13><PtrHeapVar14>
print, ptr_valid(par1)
;   1   1
;   1   1
;   1   1
;   1   1
;   1   1
help, /heap
*paf = pab
help, /heap
*paa = pab
help, /heap
paa = pab
help, /heap
online_help, /topics
heap_gc, /ptr
help, /heap
pae = pab
print, ptr_valid(/cast)
;<PtrHeapVar2><PtrHeapVar3><PtrHeapVar4><PtrHeapVar5><PtrHeapVar6><PtrHeapVar7><PtrHeapVar8><PtrHeapVar9><PtrHeapVar10><PtrHeapVar11><PtrHeapVar12><PtrHeapVar13><PtrHeapVar14>
xx= ptr_valid(/cast)
print, *xx(1)
;      30
help, /heap
ptr_free, paa
help, /heap
print, ptr_valid(paa)
;   0