Do nothing program does something???

kc7rad at vegasnet.net kc7rad at vegasnet.net
Sat Nov 21 07:35:58 CET 1998


The following program displays 'Linux' as if I did a
writeln('Linux') when it is run.  I am running an
older ver of Slackware & GPC beta.  Any ideas?

Ken L.

%<-----------------------------------------------
program uname;

const
   BuffSize = 2048;

var
   read_fp  : file;
   buffer   : array[1..BuffSize+1] of char;
   chars_read : integer;

procedure memset(cPtr : PChar; SetVal : char; size : integer); C;

begin

(*   memset(buffer, char($00), BuffSize);*)

(* This strange program looks like it is
   doing a writeln('Linux') when run! *)

end.   




More information about the Gpc mailing list