paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 06:49:47 +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; function strpas(p : pchar) : string;
begin begin
{$ifndef NEWATT} {$ifndef NEWATT}
strpasopt:=''; strpas:='';
{$endif} {$endif}
asm asm
{$ifdef NEWATT} {$ifdef NEWATT}
@ -109,7 +109,10 @@ end ['EDI','EAX','ECX'];
{ {
$Log$ $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 * 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 >= 254 chars when the pchar was aligned on a 4 byte boundary and was >=
255 chars) 255 chars)