/* ****************************************************************************
*
* Copyright (c) Microsoft Corporation.
*
* This source code is subject to terms and conditions of the Microsoft Public License. A
* copy of the license can be found in the License.html file at the root of this distribution. If
* you cannot locate the Microsoft Public License, please send an email to
* dlr@microsoft.com. By using this source code in any fashion, you are agreeing to be bound
* by the terms of the Microsoft Public License.
*
* You must not remove this notice, or any other, from this software.
*
*
* ***************************************************************************/
using System;
using System.Collections.Generic;
using System.Diagnostics;
using System.Reflection;
using System.Runtime.CompilerServices;
using Microsoft.Scripting.Runtime;
using Microsoft.Scripting.Utils;
namespace Microsoft.Scripting.Interpreter{
internal abstract class NumericConvertInstruction : Instruction {
internal readonly TypeCode _from, _to;
protected NumericConvertInstruction(TypeCode from, TypeCode to) {
_from = from;
_to = to;
}
public override int ConsumedStack { get { return 1; } }
public override int ProducedStack { get { return 1; } }
public override string ToString() {
return InstructionName + "(" + _from + "->" + _to + ")";
}
[System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1034:NestedTypesShouldNotBeVisible")]
public sealed class Unchecked : NumericConvertInstruction {
public override string InstructionName { get { return "UncheckedConvert"; } }
public Unchecked(TypeCode from, TypeCode to)
: base(from, to) {
}
public override int Run(InterpretedFrame frame) {
frame.Push(Convert(frame.Pop()));
return +1;
}
private object Convert(object obj) {
switch (_from) {
case TypeCode.Byte: return ConvertInt32((Byte)obj);
case TypeCode.SByte: return ConvertInt32((SByte)obj);
case TypeCode.Int16: return ConvertInt32((Int16)obj);
case TypeCode.Char: return ConvertInt32((Char)obj);
case TypeCode.Int32: return ConvertInt32((Int32)obj);
case TypeCode.Int64: return ConvertInt64((Int64)obj);
case TypeCode.UInt16: return ConvertInt32((UInt16)obj);
case TypeCode.UInt32: return ConvertInt64((UInt32)obj);
case TypeCode.UInt64: return ConvertUInt64((UInt64)obj);
case TypeCode.Single: return ConvertDouble((Single)obj);
case TypeCode.Double: return ConvertDouble((Double)obj);
default: throw Assert.Unreachable;
}
}
private object ConvertInt32(int obj) {
unchecked {
switch (_to) {
case TypeCode.Byte: return (Byte)obj;
case TypeCode.SByte: return (SByte)obj;
case TypeCode.Int16: return (Int16)obj;
case TypeCode.Char: return (Char)obj;
case TypeCode.Int32: return (Int32)obj;
case TypeCode.Int64: return (Int64)obj;
case TypeCode.UInt16: return (UInt16)obj;
case TypeCode.UInt32: return (UInt32)obj;
case TypeCode.UInt64: return (UInt64)obj;
case TypeCode.Single: return (Single)obj;
case TypeCode.Double: return (Double)obj;
default: throw Assert.Unreachable;
}
}
}
private object ConvertInt64(Int64 obj) {
unchecked {
switch (_to) {
case TypeCode.Byte: return (Byte)obj;
case TypeCode.SByte: return (SByte)obj;
case TypeCode.Int16: return (Int16)obj;
case TypeCode.Char: return (Char)obj;
case TypeCode.Int32: return (Int32)obj;
case TypeCode.Int64: return (Int64)obj;
case TypeCode.UInt16: return (UInt16)obj;
case TypeCode.UInt32: return (UInt32)obj;
case TypeCode.UInt64: return (UInt64)obj;
case TypeCode.Single: return (Single)obj;
case TypeCode.Double: return (Double)obj;
default: throw Assert.Unreachable;
}
}
}
private object ConvertUInt64(UInt64 obj) {
unchecked {
switch (_to) {
case TypeCode.Byte: return (Byte)obj;
case TypeCode.SByte: return (SByte)obj;
case TypeCode.Int16: return (Int16)obj;
case TypeCode.Char: return (Char)obj;
case TypeCode.Int32: return (Int32)obj;
case TypeCode.Int64: return (Int64)obj;
case TypeCode.UInt16: return (UInt16)obj;
case TypeCode.UInt32: return (UInt32)obj;
case TypeCode.UInt64: return (UInt64)obj;
case TypeCode.Single: return (Single)obj;
case TypeCode.Double: return (Double)obj;
default: throw Assert.Unreachable;
}
}
}
private object ConvertDouble(Double obj) {
unchecked {
switch (_to) {
case TypeCode.Byte: return (Byte)obj;
case TypeCode.SByte: return (SByte)obj;
case TypeCode.Int16: return (Int16)obj;
case TypeCode.Char: return (Char)obj;
case TypeCode.Int32: return (Int32)obj;
case TypeCode.Int64: return (Int64)obj;
case TypeCode.UInt16: return (UInt16)obj;
case TypeCode.UInt32: return (UInt32)obj;
case TypeCode.UInt64: return (UInt64)obj;
case TypeCode.Single: return (Single)obj;
case TypeCode.Double: return (Double)obj;
default: throw Assert.Unreachable;
}
}
}
}
[System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1034:NestedTypesShouldNotBeVisible")]
public sealed class Checked : NumericConvertInstruction {
public override string InstructionName { get { return "CheckedConvert"; } }
public Checked(TypeCode from, TypeCode to)
: base(from, to) {
}
public override int Run(InterpretedFrame frame) {
frame.Push(Convert(frame.Pop()));
return +1;
}
private object Convert(object obj) {
switch (_from) {
case TypeCode.Byte: return ConvertInt32((Byte)obj);
case TypeCode.SByte: return ConvertInt32((SByte)obj);
case TypeCode.Int16: return ConvertInt32((Int16)obj);
case TypeCode.Char: return ConvertInt32((Char)obj);
case TypeCode.Int32: return ConvertInt32((Int32)obj);
case TypeCode.Int64: return ConvertInt64((Int64)obj);
case TypeCode.UInt16: return ConvertInt32((UInt16)obj);
case TypeCode.UInt32: return ConvertInt64((UInt32)obj);
case TypeCode.UInt64: return ConvertUInt64((UInt64)obj);
case TypeCode.Single: return ConvertDouble((Single)obj);
case TypeCode.Double: return ConvertDouble((Double)obj);
default: throw Assert.Unreachable;
}
}
private object ConvertInt32(int obj) {
checked {
switch (_to) {
case TypeCode.Byte: return (Byte)obj;
case TypeCode.SByte: return (SByte)obj;
case TypeCode.Int16: return (Int16)obj;
case TypeCode.Char: return (Char)obj;
case TypeCode.Int32: return (Int32)obj;
case TypeCode.Int64: return (Int64)obj;
case TypeCode.UInt16: return (UInt16)obj;
case TypeCode.UInt32: return (UInt32)obj;
case TypeCode.UInt64: return (UInt64)obj;
case TypeCode.Single: return (Single)obj;
case TypeCode.Double: return (Double)obj;
default: throw Assert.Unreachable;
}
}
}
private object ConvertInt64(Int64 obj) {
checked {
switch (_to) {
case TypeCode.Byte: return (Byte)obj;
case TypeCode.SByte: return (SByte)obj;
case TypeCode.Int16: return (Int16)obj;
case TypeCode.Char: return (Char)obj;
case TypeCode.Int32: return (Int32)obj;
case TypeCode.Int64: return (Int64)obj;
case TypeCode.UInt16: return (UInt16)obj;
case TypeCode.UInt32: return (UInt32)obj;
case TypeCode.UInt64: return (UInt64)obj;
case TypeCode.Single: return (Single)obj;
case TypeCode.Double: return (Double)obj;
default: throw Assert.Unreachable;
}
}
}
private object ConvertUInt64(UInt64 obj) {
checked {
switch (_to) {
case TypeCode.Byte: return (Byte)obj;
case TypeCode.SByte: return (SByte)obj;
case TypeCode.Int16: return (Int16)obj;
case TypeCode.Char: return (Char)obj;
case TypeCode.Int32: return (Int32)obj;
case TypeCode.Int64: return (Int64)obj;
case TypeCode.UInt16: return (UInt16)obj;
case TypeCode.UInt32: return (UInt32)obj;
case TypeCode.UInt64: return (UInt64)obj;
case TypeCode.Single: return (Single)obj;
case TypeCode.Double: return (Double)obj;
default: throw Assert.Unreachable;
}
}
}
private object ConvertDouble(Double obj) {
checked {
switch (_to) {
case TypeCode.Byte: return (Byte)obj;
case TypeCode.SByte: return (SByte)obj;
case TypeCode.Int16: return (Int16)obj;
case TypeCode.Char: return (Char)obj;
case TypeCode.Int32: return (Int32)obj;
case TypeCode.Int64: return (Int64)obj;
case TypeCode.UInt16: return (UInt16)obj;
case TypeCode.UInt32: return (UInt32)obj;
case TypeCode.UInt64: return (UInt64)obj;
case TypeCode.Single: return (Single)obj;
case TypeCode.Double: return (Double)obj;
default: throw Assert.Unreachable;
}
}
}
}
}
}
|