EFUNs: Stricter type for lfun::`/().

Fixes warning in Crypto.DH. Fixes #10045.

EFUNs: Stricter type for lfun::`/().
Fixes warning in Crypto.DH. Fixes #10045.
cc20be7b · Henrik (Grubba) Grubbström · afbedbf3 · cc20be7b
Commit cc20be7b authored Jul 26, 2020 by Henrik (Grubba) Grubbström
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

src/operators.c src/operators.c +3 -2

No files found.
--- a/src/operators.c
+++ b/src/operators.c
@@ -5935,8 +5935,9 @@ multiset & mapping -> mapping
 	    "function(array(0=mixed),array|int|float...:array(array(0)))|"
 	    "function(string,string|int|float...:array(string)) */
  ADD_EFUN2("`/", f_divide,
-	    tOr5(tIfnot(tFuncV(tNone,tNot(tOr(tObj,tMix)),tMix),
-			tFuncV(tNone,tMix,tMix)),
+	    tOr5(tIfnot(tFuncV(tNone,tNot(tObj),tMix),
+			tOr(tFuncArg(tSetvar(1,tObj), tFindLFun(tVar(1), "`/")),
+			    tFuncV(tNot(tObj),tMix,tMix))),
 		 tOr4(tFuncV(tIntPos,tIntPos,tIntPos),
 		      tFuncV(tIntNeg,tIntNeg,tIntPos),
 		      tFuncV(tIntPos,tIntNeg,tIntNeg),