Allow the SHORTINT to have the size of 2 bytes - fix MIN(SHORTINT) & …

…MAX(SHORTINT) values to be correct.
Oleg-N-Cher · May 21, 2013 · b4c0780 · b4c0780
1 parent 29792fe
commit b4c0780
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 0 deletions.
diff --git a/Ofront/Code/OPM.ocf b/Ofront/Code/OPM.ocf
diff --git a/Ofront/Mod/OPM.odc b/Ofront/Mod/OPM.odc
diff --git a/Ofront/Mod/Text/OPM.txt b/Ofront/Mod/Text/OPM.txt
@@ -526,6 +526,7 @@ MODULE OfrontOPM;	(* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 8.5.95*)
 		MinReal := -MaxReal;
 		MinLReal := -MaxLReal;
 		IF IntSize = 4 THEN MinInt := MinLInt; MaxInt := MaxLInt END ;
+		IF SIntSize = 2 THEN MinSInt := -8000H; MaxSInt := 7FFFH END ;
 		MaxSet := SetSize * 8 - 1;
 		MaxIndex := MaxLInt
 	END GetProperties;