Coerce an expression into a PROG logical code pointer (LCPTR).
Syntax |
 |
During the
evaluation of the parameter to this function, the search path used for
procedure name lookups is restricted to the program file (PROG).
Formal Declaration |
|
Parameters |
|
- value
An expression to be coerced. All types are valid.
Table 8-9 Derivation of PROG LGRP Bit Pattern
| Parameter Type | Action |
|---|
| 0.1 if TRUE, 0.0 if FALSE. |
| Set the SID part to zero.
Right justify the original value in the low-order 32 bits of the offset part
with zero fill. |
| Set the SID part to zero.
Right justify the original value in the low-order 32 bits of the offset part
with sign extension. |
| Transfer both parts of the address unchanged. |
| Transfer the SID part unchanged. Transfer the low-order 32 bits of
the offset part. |
| Transfer the ASCII bit pattern for the last eight characters in the
string. Strings shorter than eight characters are treated as if they were
extended on the left with nulls.
|
Examples |
|
%cmdebug > wl prog(12.304)
PROG %12.304
|
Coerce the simple long pointer into a PROG logical code pointer.
%cmdebug > wl prog( sort )
PROG %2.346
|
Print the address of the procedure named sort. Note that the search path
used for procedure name lookups is restricted to the program file (PROG).
%cmdebug > wl prog(pub(24.630))
PROG %24.630
|
The coercion simply changes the associated logical file. The pointer's bit pattern remains unchanged.
$nmdat > wl prog( 1 )
PROG $0.1
$nmdat > wl prog( ffff )
PROG $0.ffff
$nmdat > wl prog( 1234abcd )
PROG $0.1234abcd
$nmdat > wl prog( -1 )
PROG $0.ffffffff
$nmdat > wl prog( 1234.5678 )
PROG $1234.5678
$nmdat > wl prog( true )
PROG $0.1
$nmdat > wl prog( "ABCDEFG" )
PROG $414243.44454647
$nmdat > wl prog( grp(1.2) )
PROG $1.2
|
Limitations, Restrictions |
|
none
