Merge pull request #1644 from GillesDuvert/enable_NULL_as_ReturnValue

see #1357
gnudatalanguage · Sep 29, 2023 · c564be5 · c564be5
2 parents 70b6513 + 9b6ab33
commit c564be5
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/prognode_lexpr.cpp b/src/prognode_lexpr.cpp
@@ -216,6 +216,7 @@ BaseGDL** SYSVARNode::LExpr( BaseGDL* right)
 		true,false);
 
 	BaseGDL** res=this->LEval(); //l_sys_var(this);
+	if (*res == NullGDL::GetSingleInstance()) return NULL;  //!NULL is a SYSVAR so this is the only place for !NULL=something.
 	Guard<BaseGDL> conv_guard; //( rConv);
 	BaseGDL* rConv = right;
 	if( !(*res)->EqType( right))