FUNCTION "=" (lString1, lString2 : IN lString) RETURN boolean IS
IF lString1 = NULL AND lString2 = NULL THEN
RETURN true;
ELSIF lString1 = NULL OR lString2 = NULL THEN
RETURN false;
END IF;
Run Code Online (Sandbox Code Playgroud)
我正在尝试重载 Ada 中的相等运算符。每次我在函数中使用运算符 '=' 时,它都会导致导致堆栈溢出的递归,而不是使用我需要的 ada 定义的运算符。有没有办法将它与我的重载运算符区分开来?