Hi,

TurboPascal and Delphi differ in the way they do strnew. Delphi allocates additional two bytes preceding the first character to store the length of the string.

The turbo pascal docs say:
The allocated space is StrLen(Str) + 1 bytes long.

The delphi docs say:
A 16-bit number giving the total amount of memory allocated is stored in the two bytes preceding the first character; it is equal to Size+2.

The file trunk/rtl/inc/strings.pp contains code that looks compatible with turbo pascal:

     function strnew(p : pchar) : pchar;
       var
          len : SizeInt;
       begin
          strnew:=nil;
          if (p=nil) or (p^=#0) then
            exit;
          len:=strlen(p)+1;
          getmem(strnew,len);
          if strnewnil then
            strmove(strnew,p,len);
       end;

Is the above source only used in Turbo Compatibility Mode, or always? Also in Lazarus?

regards,
Klaus

It should be used in TP mode, it makes no sense to use it in Delphi mode. Actually, this call is very much deprecated.

Michael.

Note that Delphi stores the size of every allocation at $-4. (and maybe $-2 in 16-bit Delphi). However this is done by the heapmanager, not strnew.

If this is meant, it can still be perfectly compatible.