|
@@ -404,7 +404,7 @@ end;
|
|
|
{$endif FPC_HAS_ANSISTR_CONCAT_MULTI}
|
|
{$endif FPC_HAS_ANSISTR_CONCAT_MULTI}
|
|
|
|
|
|
|
|
{$ifdef EXTRAANSISHORT}
|
|
{$ifdef EXTRAANSISHORT}
|
|
|
-Procedure AnsiStr_ShortStr_Concat (Var S1: AnsiString; Var S2 : ShortString);
|
|
|
|
|
|
|
+Procedure fpc_AnsiStr_ShortStr_Concat (Var S1: AnsiString; Var S2 : ShortString);
|
|
|
{
|
|
{
|
|
|
Concatenates a Ansi with a short string; : S2 + S2
|
|
Concatenates a Ansi with a short string; : S2 + S2
|
|
|
}
|
|
}
|
florian