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

* small fixes to ansicompare

Browse Source
This commit is contained in:
florian 1998-10-20 12:46:11 +00:00
parent 033303c21d
commit 1e126715b8
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.pp
View File

@ -315,7 +315,7 @@ procedure dummy;assembler;
end;
{$ASMMODE ATT}
Function AnsiCompare (Var S1,S2 : Pointer): Longint;
Function AnsiCompare(S1,S2 : Pointer): Longint;[Public,Alias : 'FPC_ANSICOMPARE'];
{
Compares 2 AnsiStrings;
The result is
@ -708,7 +708,10 @@ end;
{
$Log$
Revision 1.18 1998-09-28 14:02:34 michael
Revision 1.19 1998-10-20 12:46:11 florian
* small fixes to ansicompare
Revision 1.18 1998/09/28 14:02:34 michael
+ AnsiString changes
Revision 1.17 1998/09/27 22:44:50 florian