paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 14:37:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

Some changes to integrate in system unit

Browse Source
This commit is contained in:
michael 1998-06-08 19:35:02 +00:00
parent b36e918420
commit 837c1582a3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/astrings.pp
View File

@ -121,7 +121,7 @@ begin
end; end;
Procedure Decr_Ansi_Ref (Var S : AnsiString); 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;
@ -672,7 +672,10 @@ end;
{ {
$Log$ $Log$
Revision 1.3 1998-06-08 12:38:22 michael Revision 1.4 1998-06-08 19:35:02 michael
Some changes to integrate in system unit
Revision 1.3 1998/06/08 12:38:22 michael
Implemented rtti, inserted ansistrings again Implemented rtti, inserted ansistrings again
Revision 1.2 1998/05/12 10:42:44 peter Revision 1.2 1998/05/12 10:42:44 peter