[JEDI.NET-commits] main/run Jedi.System.IO.pas,1.1,1.2

[Marcel B. <jed...@us...>]

Update of /cvsroot/jedidotnet/main/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2875/main/run

Modified Files:
	Jedi.System.IO.pas 
Log Message:
Mantis #2129: * and / operators of StoredExtended were wrong

Index: Jedi.System.IO.pas
===================================================================
RCS file: /cvsroot/jedidotnet/main/run/Jedi.System.IO.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Jedi.System.IO.pas	29 Jul 2004 09:35:56 -0000	1.1
--- Jedi.System.IO.pas	30 Sep 2004 16:45:19 -0000	1.2
***************
*** 245,254 ****
  class operator StoredExtended.Multiply(const A: StoredExtended; const B: Extended): StoredExtended;
  begin
!   Result := Extended(A) + B;
  end;
  
  class operator StoredExtended.Divide(const A: StoredExtended; const B: Extended): StoredExtended;
  begin
!   Result := Extended(A) - B;
  end;
  
--- 245,254 ----
  class operator StoredExtended.Multiply(const A: StoredExtended; const B: Extended): StoredExtended;
  begin
!   Result := Extended(A) * B;
  end;
  
  class operator StoredExtended.Divide(const A: StoredExtended; const B: Extended): StoredExtended;
  begin
!   Result := Extended(A) / B;
  end;