casting pointer constants

any pointer constants (those that are generated by the linker, fail to be recognized as constants if cast)

```
sub MySub() 
  print "Hello" 
end sub
static shared as any ptr pSub = @MySub '<- works
static shared as any ptr pSub2 = cptr(any ptr,@MySub) 
```