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 strnew<>nil then
strmove(strnew,p,len);
end;
Is the above source only used in Turbo Compatibility Mode,
or always? Also in Lazarus?
regards,
Klaus
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
