* issue #60: * OPB.Promote: - type conversion for Char & String.

Oleg-N-Cher · Mar 24, 2019 · 2591a61 · 2591a61
1 parent 71db252
commit 2591a61
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 2 deletions.
diff --git a/Bin/ofront+.exe b/Bin/ofront+.exe
diff --git a/Mod/OPB.odc b/Mod/OPB.odc
diff --git a/Mod/OfrontOPB.Mod b/Mod/OfrontOPB.Mod
@@ -507,7 +507,7 @@ MODULE OfrontOPB;	(* RC 6.3.89 / 21.2.94 *)	(* object model 17.1.93 *)
 			ELSE err(100)
 			END
 		END;
-		IF ~(f IN {NilTyp, Pointer, ProcTyp, Comp}) THEN
+		IF ~(f IN {NilTyp, Pointer, ProcTyp, Comp, Char, String}) THEN
 			IF g # new^.form THEN Convert(right, new) END;
 			IF f # new^.form THEN Convert(left, new) END
 		END

diff --git a/Mod/Text/OPB.txt b/Mod/Text/OPB.txt
@@ -601,7 +601,7 @@
 			ELSE err(100)
 			END
 		END;
-		IF ~(f IN {NilTyp, Pointer, ProcTyp, Comp}) THEN
+		IF ~(f IN {NilTyp, Pointer, ProcTyp, Comp, Char, String}) THEN
 			IF g # new^.form THEN Convert(right, new) END;
 			IF f # new^.form THEN Convert(left, new) END
 		END