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

* fixed typo :(

Browse Source
This commit is contained in:
Jonas Maebe 2000-06-12 13:17:56 +00:00
parent 93f4c7a312
commit e714b0e188
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/i386/stringss.inc
View File

@ -18,7 +18,7 @@
function strpas(p : pchar) : string;
begin
{$ifndef NEWATT}
strpasopt:='';
strpas:='';
{$endif}
asm
{$ifdef NEWATT}
@ -109,7 +109,10 @@ end ['EDI','EAX','ECX'];
{
$Log$
Revision 1.11 2000-06-12 08:33:26 jonas
Revision 1.12 2000-06-12 13:17:56 jonas
* fixed typo :(
Revision 1.11 2000/06/12 08:33:26 jonas
* new fixed and faster strpas (previous version only returned the first
254 chars when the pchar was aligned on a 4 byte boundary and was >=
255 chars)