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

* fixed compilation on platforms without ansistring support since assigning

Browse Source 
one ansistring to another requires a helper (mantis , patch by
    Koenraad Lelong)

git-svn-id: trunk@20369 -
This commit is contained in:
Jonas Maebe 2012-02-17 13:16:32 +00:00
parent e8dae4f30a
commit aa9aeeada0
1 changed files with 4 additions and 0 deletions

4
rtl/inc/text.inc
View File

@ -1891,11 +1891,13 @@ end;
{$endif FPC_WIDESTRING_EQUAL_UNICODESTRING}
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
procedure ReadAnsiStrFinal(var t: textrec);
begin
{ finalise the temp ansistring }
PAnsiString(@t.userdata[StrPtrIndex])^ := '';
end;
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
procedure ReadStrCommon(var t: textrec; strdata: pchar; len: sizeint);
@ -1938,6 +1940,7 @@ begin
end;
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
function fpc_SetupReadStr_Ansistr(const s: ansistring): PText; [public, alias: 'FPC_SETUPREADSTR_ANSISTR']; compilerproc;
begin
setupreadstrcommon(ReadWriteStrText);
@ -1950,6 +1953,7 @@ begin
end;
function fpc_SetupReadStr_Ansistr_Intern(const s: ansistring): PText; [external name 'FPC_SETUPREADSTR_ANSISTR'];
{$endif FPC_HAS_FEATURE_ANSISTRINGS}
function fpc_SetupReadStr_Shortstr(const s: shortstring): PText; compilerproc;