Add files via upload

Author: tebe6502

src/CHANGELOG

@@ -1,3 +1,6 @@
+15.08.2022
+- poprawiona procedura ExpandExpression, uwzglednia VARTYPE = BOOLEANTOK, np.: 'boolean := (shortint + shorint > 0)
+
 12.08.2022
 - poprawione reset POKEY-a (src\targets\generate_program_prolog.inc)
 

src/mp.pas

@@ -35955,6 +35955,9 @@ procedure ExpandExpression(var ValType: Byte; RightValType, VarType: Byte);
       if VarType <> 0 then
        if DataSize[VarType] > m then m:=DataSize[VarType];	// okreslamy najwiekszy wspolny typ
 
+      if VarType = BOOLEANTOK then inc(m);		// dla sytuacji np.: boolean := (shortint + shorint > 0)
+
+
       if (ValType in SignedOrdinalTypes) or (RightValType in SignedOrdinalTypes) then
        sign:=true
       else