Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!usc!orion.oac.uci.edu!uci-ics!milne
From: milne@ics.uci.edu (Alastair Milne)
Newsgroups: comp.lang.pascal
Subject: Re: TP bug???
Message-ID: <2588590B.19990@paris.ics.uci.edu>
Date: 15 Dec 89 02:38:03 GMT
References: <RON.89Dec13163843@clarity.Princeton.EDU>
Distribution: comp
Lines: 32

ron@clarity.Princeton.EDU (Ronald Beekelaar) writes:


>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.

    It crashed mine too.  Specifically, the progress window was advancing its
    lines compiled count, when the environment's whole display was suddenly 
    scrolled away by a mass of text (white on black, rather than the colours
    of the environment's display), mixing a previous editor bufferload with 
    garbage characters.  The scrolling stopped, and everything was frozen.
    I had to reboot.

>-------------
>Unit mycolor;
>Uses Crt;
>Interface
>Function color(fore, back: byte): byte;
>Implementation
>Const stringcolor: byte = color(blue, red);
			   ^^^^^ I believe this function call is illegal.
			   I've heard of graceless error handling, but this
			   is a new level.
			   I wonder if the compiler is actually trying to run
			   this function before it has even been generated.
>Function color(fore, back: byte): byte;
>   begin
>      color:= (fore and $8F) + (back and $70)
>   end;
>End.

    Alastair Milne