public override void EmitStore(ILGenerator gen, IList<FieldBuilder> fields, Expression value)
{
gen.Emit(OpCodes.Ldarg_0);
// Emit the code to generate the value for the given expression
value.Emit(gen);
// Convert booleans (which are used internally for Booleans) to doubles
// which is how they are stored in TIBasic. Plus it needs to be negated.
if (value.GetBasicType() == BasicType.Boolean)
{
gen.Emit(OpCodes.Conv_R8);
gen.Emit(OpCodes.Neg);
}
gen.Emit(OpCodes.Stfld, fields[symbolIndex]);
}
public override void EmitStore(ILGenerator gen,
IList<FieldBuilder> fields, Expression value)
{
this.location.EmitLoad(gen, fields);
foreach (Expression expr in exprs)
{
expr.Emit(gen);
gen.Emit(OpCodes.Conv_I4);
}
value.Emit(gen);
if (value.GetBasicType() == BasicType.Boolean)
{
gen.Emit(OpCodes.Conv_R8);
gen.Emit(OpCodes.Neg);
}
gen.Emit(OpCodes.Call, setMethod);
}
