paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 09:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small fixes for the new ansistring temp. management

Browse Source
This commit is contained in:
florian 1999-05-17 22:41:24 +00:00
parent 8706cd801f
commit 85916705f2
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/astrings.inc
View File

@ -159,7 +159,12 @@ Var
Size,Location : Longint; Size,Location : Longint;
begin begin
DisposeAnsiString(S3); if S3<>nil then
begin
AnsiStr_Decr_Ref(S3);
S3:=nil;
end;
if (S1=Nil) then if (S1=Nil) then
AnsiStr_Assign(S3,S2) AnsiStr_Assign(S3,S2)
else else
@ -250,6 +255,11 @@ Procedure PChar_To_AnsiStr(var a : ansistring;p : pchar);[Public,Alias : 'FPC_PC
Var Var
L : Longint; L : Longint;
begin begin
if pointer(a)<>nil then
begin
AnsiStr_Decr_Ref(Pointer(a));
pointer(a):=nil;
end;
if (not assigned(p)) or (p[0]=#0) Then if (not assigned(p)) or (p[0]=#0) Then
Pointer(a):=nil Pointer(a):=nil
else else
@ -770,7 +780,10 @@ end;
{ {
$Log$ $Log$
Revision 1.24 1999-05-17 21:52:35 florian Revision 1.25 1999-05-17 22:41:24 florian
* small fixes for the new ansistring temp. management
Revision 1.24 1999/05/17 21:52:35 florian
* most of the Object Pascal stuff moved to the system unit * most of the Object Pascal stuff moved to the system unit
Revision 1.23 1999/05/06 09:05:11 peter Revision 1.23 1999/05/06 09:05:11 peter