home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / pascal / 7800 < prev    next >
Encoding:
Text File  |  1993-01-02  |  1.2 KB  |  39 lines
  1. Newsgroups: comp.lang.pascal
  2. Path: sparky!uunet!usc!cs.utexas.edu!torn!news.ccs.queensu.ca!slip201.telnet1.QueensU.CA!dmurdoch
  3. From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
  4. Subject: Bug testers wanted
  5. Message-ID: <dmurdoch.276.725989540@mast.queensu.ca>
  6. Lines: 28
  7. Sender: news@knot.ccs.queensu.ca (Netnews control)
  8. Organization: Queen's University
  9. Date: Sat, 2 Jan 1993 15:45:41 GMT
  10.  
  11. BP 7 uses the 386 registers for faster computations, but some systems have
  12. buggy system software (e.g. from Novell) that trashes them.  On those systems
  13. longint calculations in BP 7 aren't safe.  You can tell if your system has 
  14. the problem by compiling and running the following program; if you've got the
  15. buggy software, it'll print errors every now and then (a few times a minute,
  16. probably).
  17.  
  18. uses crt;
  19. var X,Y,Z : LongInt;
  20.  
  21. begin
  22.   while not keypressed do begin
  23.     X := 20;
  24.     Y := 30;
  25.     Z := X * Y;
  26.     if Z <> 600 then Writeln(Z);
  27.   end;
  28. end;
  29.  
  30. I've written a TSR that should fix this problem, but I don't have the buggy 
  31. software to try it under.  Could anyone who gets errors from the program 
  32. above and is willing to test my fix please let me know, and I'll send a copy 
  33. of my program?
  34.  
  35. Thanks in advance.
  36.  
  37. Duncan Murdoch
  38. dmurdoch@mast.queensu.ca
  39.