String bug?

7 Oct 1998

      Hi, I think I've found a bug in the latest beta snapshot of gpc
(linked against gcc 2.8.1). Basically, when assigning one string
to another the result seems to be a null string. A program that isolates
the bug is included below:

program baby;

type BigString = String[200];

type trec      = record
                    s : bigstring;
                    a : integer;
                 end; 
     prec      = ^trec;

var r : prec;
b     : BigString;

begin
   {memmanagerinit(10);}
   b:='Hello world';
   r:=GetMem(sizeof(trec));
   r^.s:=b;
   r^.a:=1245;
   WriteLn(r^.a);
   write('Message ');
   writeln(r^.s);
   writeln('String ',b);
end.

-- 
        Jo

Harmony - the project to create an LGPL Qt clone
http://harmony.ruhr.de

String bug?

Jo Dillon