Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!wuarchive!udel!princeton!phoenix!phoenix.princeton.edu!ron
From: ron@clarity.Princeton.EDU (Ronald Beekelaar)
Newsgroups: comp.lang.pascal
Subject: TP bug???
Message-ID: <RON.89Dec13163843@clarity.Princeton.EDU>
Date: 13 Dec 89 21:38:43 GMT
Sender: news@phoenix.Princeton.EDU
Distribution: comp
Organization: Cognitive Science Lab.  Princeton University.
Lines: 36


I was trying to compile the following TP code, but everytime the compiler hang
and even ctrl-break didn't work anymore. I had to reboot the computer.

The following code is not the actually code. I just typed this as an example
of what the code looked like, that I tried to compile. I am using TP 5.0.

-------------
Unit mycolor;

Uses Crt;

Interface

Function color(fore, back: byte): byte;



Implementation

Const stringcolor: byte = color(blue, red);

Function color(fore, back: byte): byte;
   begin
      color:= (fore and $8F) + (back and $70)
   end;


End.
-----------


--
------
ron
------