void DoShift( void )
{
stack_entry *left;
int shift;
left = StkEntry( 1 );
RValue( ExprSP );
ConvertTo( ExprSP, TK_INTEGER, TM_SIGNED, 0 );
shift = I32FetchTrunc( ExprSP->v.sint );
RValue( left );
switch( left->info.kind ) {
case TK_BOOL:
case TK_ENUM:
case TK_CHAR:
case TK_INTEGER:
if( shift >= 0 ) {
U64ShiftL( &left->v.uint, shift, &left->v.uint );
} else if( (left->info.modifier & TM_MOD_MASK) == TM_UNSIGNED ) {
U64ShiftR( &left->v.uint, -shift, &left->v.uint );
} else {
I64ShiftR( &left->v.sint, -shift, &left->v.sint );
}
break;
default:
Error( ERR_NONE, LIT_ENG( ERR_ILL_TYPE ) );
break;
}
CombineEntries( left, left, ExprSP );
}
OVL_EXTERN bool ConvR10( stack_entry *entry, conv_class from )
{
xreal tmp;
switch( from ) {
case U1:
case U2:
case U4:
case U8:
//NYI: 64 bit support
DToLD( U32FetchTrunc( entry->v.uint ), &tmp );
break;
case I1:
case I2:
case I4:
case I8:
//NYI: 64 bit support
DToLD( I32FetchTrunc( entry->v.sint ), &tmp );
break;
case F4:
case F8:
case F10:
tmp = entry->v.real;
break;
case C8:
case C16:
case C20:
tmp = entry->v.cmplx.re;
break;
default:
return( FALSE );
}
entry->v.real = tmp;
return( TRUE );
}
static ssl_value MechNum( unsigned select, ssl_value parm )
{
switch( select ) {
case 0:
Num = SSL2INT( parm );
break;
case 1:
Num += SSL2INT( parm );
break;
case 2:
PushInt( Num );
break;
case 3:
/* need to check that top stack entry is an integer value here? */
Num = I32FetchTrunc( ExprSP->v.sint );
PopEntry();
break;
}
return( 0 );
}
OVL_EXTERN bool ConvNP4( stack_entry *entry, conv_class from )
{
addr48_off tmp;
switch( from ) {
case U1:
case U2:
case U4:
case U8:
//NYI: 64 bit offsets
tmp = U32FetchTrunc( entry->v.uint );
break;
case I1:
case I2:
case I4:
case I8:
//NYI: 64 bit offsets
tmp = I32FetchTrunc( entry->v.sint );
break;
case NP2:
case NP4:
case FP4:
case FP6:
tmp = entry->v.addr.mach.offset;
break;
default:
return( FALSE );
}
if( (entry->flags & SF_CONST) && tmp == 0 ) {
entry->v.addr = NilAddr;
} else {
entry->v.addr = DefAddrSpaceForAddr( Context.execution );
}
entry->v.addr.mach.offset = tmp;
return( TRUE );
}
OVL_EXTERN bool ConvC20( stack_entry *entry, conv_class from )
{
xcomplex tmp;
DToLD( 0.0, &tmp.im );
switch( from ) {
case U1:
case U2:
case U4:
case U8:
//NYI: 64 bit support
DToLD( U32FetchTrunc( entry->v.uint ), &tmp.re );
break;
case I1:
case I2:
case I4:
case I8:
DToLD( I32FetchTrunc( entry->v.sint ), &tmp.re );
break;
case F4:
case F8:
case F10:
tmp.re = entry->v.real;
break;
case C8:
case C16:
case C20:
tmp = entry->v.cmplx;
break;
default:
return( false );
}
entry->v.cmplx = tmp;
return( true );
}
/*
* ConvertTo -- convert 'entry' to the given 'class'.
* 'entry' should be an rvalue.
*/
void ConvertTo( stack_entry *entry, type_kind k, type_modifier m, unsigned s )
{
conv_class from;
char *dest;
if( s == 0 && k == TK_INTEGER ) {
s = DefaultSize( DK_INT );
}
if( entry->info.kind == k
&& entry->info.modifier == m
&& entry->info.size == s ) return;
from = ConvIdx( &entry->info );
switch( from ) {
case U1:
U32ToU64( U8FetchTrunc( entry->v.uint ), &entry->v.uint );
break;
case U2:
U32ToU64( U16FetchTrunc( entry->v.uint ), &entry->v.uint );
break;
case U4:
U32ToU64( U32FetchTrunc( entry->v.uint ), &entry->v.uint );
break;
case I1:
I32ToI64( I8FetchTrunc( entry->v.uint ), &entry->v.uint );
break;
case I2:
I32ToI64( I16FetchTrunc( entry->v.uint ), &entry->v.uint );
break;
case I4:
I32ToI64( I32FetchTrunc( entry->v.uint ), &entry->v.uint );
break;
case F4:
DToLD( (float)LDToD( &entry->v.real ), &entry->v.real );
break;
case F8:
DToLD( (double)LDToD( &entry->v.real ), &entry->v.real );
break;
case C8:
DToLD( (float)LDToD( &entry->v.cmplx.re ), &entry->v.cmplx.re );
DToLD( (float)LDToD( &entry->v.cmplx.im ), &entry->v.cmplx.im );
break;
case C16:
DToLD( (double)LDToD( &entry->v.cmplx.re ), &entry->v.cmplx.re );
DToLD( (double)LDToD( &entry->v.cmplx.im ), &entry->v.cmplx.im );
break;
case NP2:
case FP4:
entry->v.addr.mach.offset &= 0xffff;
break;
case STR:
if( k != TK_STRING ) {
Error( ERR_NONE, LIT( ERR_TYPE_CONVERSION ) );
}
if( s > entry->info.size ) {
/* have to expand string */
_ChkAlloc( dest, s, LIT( ERR_NO_MEMORY_FOR_EXPR ) );
memcpy( dest, entry->v.string.loc.e[0].u.p, entry->info.size );
memset( &dest[entry->info.size], ' ', s - entry->info.size );
if( AllocatedString( entry ) ) {
_Free( entry->v.string.allocated );
}
entry->v.string.allocated = dest;
LocationCreate( &entry->v.string.loc, LT_INTERNAL, dest );
}
break;
default:
break;
}
entry->info.kind = k;
entry->info.modifier = m;
entry->info.size = s;
if( !ConvFunc[ ConvIdx( &entry->info ) ]( entry, from ) ) {
Error( ERR_NONE, LIT( ERR_TYPE_CONVERSION ) );
}
entry->th = NULL;
}
