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

* 1.0.x fix

Browse Source
This commit is contained in:
peter 2005-01-25 18:50:45 +00:00
parent b009240860
commit 6c2c1debcc
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.inc
View File

@ -740,7 +740,7 @@ end;
{$ifdef STR_USES_VALINT} {$ifdef STR_USES_VALINT}
Procedure fpc_AnsiStr_UInt(v : ValUInt;Len : SizeInt; Var S : AnsiString);[Public,Alias : 'FPC_ANSISTR_VALUINT']; {$ifdef hascompilerproc} compilerproc; {$endif} Procedure fpc_AnsiStr_UInt(v : ValUInt;Len : SizeInt; Var S : AnsiString);[Public,Alias : 'FPC_ANSISTR_VALUINT']; {$ifdef hascompilerproc} compilerproc; {$endif}
{$else} {$else}
Procedure fpc_AnsiStr_Longword(v : Longword;Len : SizeInt; Var S : AnsiString);[Public,Alias : 'FPC_ANSISTR_LONGWORD']; {$ifdef hascompilerproc} compilerproc; {$endif} Procedure fpc_AnsiStr_Longword(v : Longword;Len : SizeInt; Var S : AnsiString);[Public,Alias : 'FPC_ANSISTR_CARDINAL']; {$ifdef hascompilerproc} compilerproc; {$endif}
{$endif} {$endif}
Var Var
SS : ShortString; SS : ShortString;
@ -868,7 +868,10 @@ end;
{ {
$Log$ $Log$
Revision 1.52 2005-01-09 10:38:59 florian Revision 1.53 2005-01-25 18:50:45 peter
* 1.0.x fix
Revision 1.52 2005/01/09 10:38:59 florian
* replaced CompareChar by CompareByte, saves one redirection * replaced CompareChar by CompareByte, saves one redirection
Revision 1.51 2004/12/02 17:56:01 peter Revision 1.51 2004/12/02 17:56:01 peter