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

- space removed

Browse Source
This commit is contained in:
mazen 2003-01-07 22:04:12 +00:00
parent c20be82919
commit 9e5d6dc00b
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/generic.inc
View File

@ -118,7 +118,7 @@ begin
while (bytearray(buf)[I]<>b) and (I<Len) do while (bytearray(buf)[I]<>b) and (I<Len) do
inc(I); inc(I);
if (i=Len) then if (i=Len) then
i:=-1; {Can't use 0, since it is a possible value} i:=-1; {Can't use 0, since it is a possible value}
IndexByte:=I; IndexByte:=I;
end; end;
{$endif not FPC_SYSTEM_HAS_INDEXBYTE} {$endif not FPC_SYSTEM_HAS_INDEXBYTE}
@ -965,7 +965,10 @@ end;
{ {
$Log$ $Log$
Revision 1.46 2003-01-06 23:04:21 mazen Revision 1.47 2003-01-07 22:04:12 mazen
- space removed
Revision 1.46 2003/01/06 23:04:21 mazen
* functions headers modified in generic.inc to make it possible compiling sparc * functions headers modified in generic.inc to make it possible compiling sparc
RTL based on generic code RTL based on generic code