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

+ Added Public,Alias directives for some calls

Browse Source
This commit is contained in:
michael 1998-07-06 14:29:08 +00:00
parent 9bb3b87cb8
commit bb21590124
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

@ -167,7 +167,7 @@ end;
Procedure AssignAnsiString (Var S1 : AnsiString; S2 : AnsiString); Procedure AssignAnsiString (Var S1 : AnsiString; S2 : AnsiString); [Public, Alias : 'ASSIGN_ANSI_STRING'];
{ {
Assigns S2 to S1 (S1:=S2), taking in account reference counts. Assigns S2 to S1 (S1:=S2), taking in account reference counts.
If S2 is a constant string, a new S1 is allocated on the heap. If S2 is a constant string, a new S1 is allocated on the heap.
@ -325,7 +325,7 @@ end;
Procedure Write_Text_AnsiString (Len : Longint; T : TextRec; Var S : AnsiString); Procedure Write_Text_AnsiString (Len : Longint; T : TextRec; Var S : AnsiString);[Public, alias 'WRITE_TEXT_ANSISTRING'];
{ {
Writes a AnsiString to the Text file T Writes a AnsiString to the Text file T
} }
@ -672,7 +672,10 @@ end;
{ {
$Log$ $Log$
Revision 1.6 1998-06-25 08:41:44 florian Revision 1.7 1998-07-06 14:29:08 michael
+ Added Public,Alias directives for some calls
Revision 1.6 1998/06/25 08:41:44 florian
* better rtti * better rtti
Revision 1.5 1998/06/12 07:39:13 michael Revision 1.5 1998/06/12 07:39:13 michael