paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 21:32:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix shortstr_to_ansistring for 1.0.x

Browse Source
This commit is contained in:
peter 2004-10-31 16:21:30 +00:00
parent 5ef188da6f
commit cc431c4375
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/astrings.inc
View File

@ -249,8 +249,13 @@ end;
{ old style helper }
{$ifndef hascompilerproc}
Procedure fpc_ShortStr_To_AnsiStr (Var S1 : Pointer; Const S2 : ShortString);[Public, alias: 'FPC_SHORTSTR_TO_ANSISTR'];
Var
Size : SizeInt;
begin
s1 := pointer(fpc_ShortStr_To_AnsiStr(s2));
Size:=Length(S2);
Setlength (ansistring(s1),Size);
if Size>0 then
Move(S2[1],s1^,Size);
end;
{$endif hascompilerproc}
@ -864,7 +869,10 @@ end;
{
$Log$
Revision 1.48 2004-10-24 20:01:41 peter
Revision 1.49 2004-10-31 16:21:30 peter
* fix shortstr_to_ansistring for 1.0.x
Revision 1.48 2004/10/24 20:01:41 peter
* saveregisters calling convention is obsolete
Revision 1.47 2004/07/12 17:58:19 peter