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

* setlength export declaration for 1.0.2 fixed

Browse Source
This commit is contained in:
florian 2000-10-23 14:00:59 +00:00
parent d592b8b678
commit fc777c9970
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/systemh.inc
View File

@ -268,7 +268,7 @@ function strlen(p:pchar):longint;
{ Shortstring functions } { Shortstring functions }
{$ifdef ver1_0} {$ifdef ver1_0}
Procedure SetLength (Var S : ShortString; l : Longint); Procedure SetLength (Var S : ShortString; l : TStrLenInt);
{$endif ver1_0} {$endif ver1_0}
Function Copy(const s:shortstring;index:StrLenInt;count:StrLenInt):shortstring; Function Copy(const s:shortstring;index:StrLenInt;count:StrLenInt):shortstring;
Procedure Delete(Var s:shortstring;index:StrLenInt;count:StrLenInt); Procedure Delete(Var s:shortstring;index:StrLenInt;count:StrLenInt);
@ -484,7 +484,10 @@ const
{ {
$Log$ $Log$
Revision 1.6 2000-10-21 18:20:17 florian Revision 1.7 2000-10-23 14:00:59 florian
* setlength export declaration for 1.0.2 fixed
Revision 1.6 2000/10/21 18:20:17 florian
* a lot of small changes: * a lot of small changes:
- setlength is internal - setlength is internal
- win32 graph unit extended - win32 graph unit extended
@ -502,4 +505,4 @@ const
Revision 1.2 2000/07/13 11:33:45 michael Revision 1.2 2000/07/13 11:33:45 michael
+ removed logs + removed logs
} }