[Gm2] FpuIO bug?

[John B Wallace Jr]

 The WriteLongInt procedure in the FpuIO module seems to have a problem
 with MIN(LONGINT). The code below demonstrates the problem:

MODULE FpuIOBug;

(***************************************************************************************)
 
(*     NOTE: THIS IS TEST CODE AND MAY BE INCORRECT               *)
(***************************************************************************************)

FROM StrIO IMPORT WriteLn;

FROM FpuIO IMPORT WriteLongInt;

VAR
  i,j : LONGINT;

BEGIN
  i := MAX(LONGINT);
  WriteLongInt(i,0);
  WriteLn;
  j := MIN(LONGINT);
  WriteLongInt(j,0);
  WriteLn;
  j := MIN(LONGINT) + 1;
  WriteLongInt(j,0);
  WriteLn
END FpuIOBug.


I get this output:

9223372036854775807
-'..--).0-*(+,))+(0(
-9223372036854775807


I believe the problem is in the LongIntToStr procedure at Line 397 in 
FpuIO.mod: x := -x


The gm2 version is 08 September 2005.


John Wallace