MAINSAIL Language Manual, Section 47.52

previous   next   top   contents   index   framed top   this page unframed


47.52. $storeSized

$ALWAYSINLINE
PROCEDURE   $storeSized (ADDRESS a;
                         
BOOLEAN val;
                         
OPTIONAL INTEGER dspl,type);

$ALWAYSINLINE
PROCEDURE   $storeSized (ADDRESS a;
                         
INTEGER val;
                         
OPTIONAL INTEGER dspl,type);

$ALWAYSINLINE
PROCEDURE   $storeSized (ADDRESS a;
                         
LONG INTEGER val;
                         
OPTIONAL INTEGER dspl,type);

$ALWAYSINLINE
PROCEDURE   $storeSized (ADDRESS a;
                         
BITS val;
                         
OPTIONAL INTEGER dspl,type);

$ALWAYSINLINE
PROCEDURE   $storeSized (ADDRESS a;
                         
LONG BITS val;
                         
OPTIONAL INTEGER dspl,type);

If type is an extended type code corresponding to val's base type, $storeSized stores val at displace(a,dspl) using the size implied by type; otherwise, it stores val using the size of val's base type.

For example, if i is an INTEGER:

$storeSized(a,i,0,$integerSigned1Code)

truncates i to 1 byte (possibly resulting in an INTEGER overflow if ACHECK is in effect) and stores the result in the 1 byte at a.

Either of:

$storeSized(a,i,0,charadrCode)

or:

$storeSized(a,i)

is equivalent to:

store(a,i)

previous   next   top   contents   index   framed top   this page unframed

MAINSAIL Language Manual, Section 47.52