Ejemplo n.º 1
0
void    FCMakeSCB( void ) {
//===================

    cg_name     len;
    cg_name     ptr;

    ptr = XPop();
    len = XPop();
    XPush( ptr );
    MakeSCB( GetPtr(), len );
}
Ejemplo n.º 2
0
void    FCSubscript( void ) {
//=====================

// Do a subscript operation.

    sym_id      arr;

    arr = GetPtr();
    if( Options & OPT_BOUNDS ) {
        DbSubscript( arr );
    } else {
        if( _AdvRequired( arr->u.ns.si.va.u.dim_ext ) ) {
            VariableDims( arr );
        } else {
            ConstDims( arr );
        }
    }
    if( arr->u.ns.u1.s.typ == FT_CHAR ) {
        MakeSCB( GetPtr(), ArrayEltSize( arr ) );
    }
}