administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

#2579

Browse source
This commit is contained in:
Ivan Bondarev 2021-12-24 15:14:40 +01:00
parent dce5abc6b4
commit c3160fe819
2 changed files with 33 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
NETGenerator/NETGenerator.cs
View file

@ -10757,11 +10757,31 @@ namespace PascalABCCompiler.NETGenerator
else
{
value.condition.visit(this);
tmp_lb = il.DeclareLocal(helper.GetTypeReference(value.type).tp);
il.Emit(OpCodes.Stloc, tmp_lb);
il.Emit(OpCodes.Ldloc, tmp_lb);
il.Emit(OpCodes.Ldnull);
il.Emit(OpCodes.Ceq);
if (value.condition.type.is_nullable_type)
{
tmp_lb = il.DeclareLocal(helper.GetTypeReference(value.type).tp);
il.Emit(OpCodes.Stloc, tmp_lb);
il.Emit(OpCodes.Ldloca, tmp_lb);
MethodInfo mi = null;
TypeInfo cond_ti = helper.GetTypeReference(value.condition.type);
if (value.condition.type is IGenericTypeInstance)
mi = TypeBuilder.GetMethod(cond_ti.tp, typeof(Nullable<>).GetMethod("get_HasValue"));
else
mi = cond_ti.tp.GetMethod("get_HasValue");
il.Emit(OpCodes.Call, mi);
il.Emit(OpCodes.Ldc_I4_0);
il.Emit(OpCodes.Ceq);
}
else
{
tmp_lb = il.DeclareLocal(helper.GetTypeReference(value.type).tp);
il.Emit(OpCodes.Stloc, tmp_lb);
il.Emit(OpCodes.Ldloc, tmp_lb);
il.Emit(OpCodes.Ldnull);
il.Emit(OpCodes.Ceq);
}
}

8
TestSuite/double_question3.pas Normal file
View file

@ -0,0 +1,8 @@
begin
var i: integer?;
var x := i ?? 0;
assert(x.Value = 0);
i := 1;
x := i ?? 0;
assert(x.Value = 1);
end.