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

+ Added aliases for Incr/Decr ref.

Browse Source
This commit is contained in:
michael 1998-06-12 07:39:13 +00:00
parent 7b28eed642
commit 8068589c3c
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/astrings.pp
View File

@ -121,7 +121,7 @@ begin
end; end;
Procedure Decr_Ansi_Ref (Var S : AnsiString);[alias : 'DECR_ANSI_REF']; Procedure Decr_Ansi_Ref (Var S : AnsiString);[Alias : 'DECR_ANSI_REF'];
{ {
Decreases the ReferenceCount of a non constant ansistring; Decreases the ReferenceCount of a non constant ansistring;
If the reference count is zero, deallocate the string; If the reference count is zero, deallocate the string;
@ -136,7 +136,7 @@ Begin
DisposeAnsiString (S); { Remove...} DisposeAnsiString (S); { Remove...}
end; end;
Procedure Incr_Ansi_Ref (Var S : AnsiString); Procedure Incr_Ansi_Ref (Var S : AnsiString);[Alias : 'INCR_ANSI_REF'];
Begin Begin
If Pointer(S)=Nil then exit; If Pointer(S)=Nil then exit;
@ -672,7 +672,10 @@ end;
{ {
$Log$ $Log$
Revision 1.4 1998-06-08 19:35:02 michael Revision 1.5 1998-06-12 07:39:13 michael
+ Added aliases for Incr/Decr ref.
Revision 1.4 1998/06/08 19:35:02 michael
Some changes to integrate in system unit Some changes to integrate in system unit
Revision 1.3 1998/06/08 12:38:22 michael Revision 1.3 1998/06/08 12:38:22 michael