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

* first (modified, added a comment) patch by Rika to improve generic Index*, part of #39996

Browse Source
This commit is contained in:
florian 2022-11-17 23:10:00 +01:00
parent 5e0eb521c4
commit c1ec558d0a
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/inc/generic.inc
View File

@ -358,7 +358,8 @@ begin
begin
if unaligned(psrc^)=b then
begin
result:=psrc-pword(@buf);
{ the result is always >=0 so avoid handling of negative values }
result:=PtrUint(pointer(psrc)-pointer(@buf)) div sizeof(word);
exit;
end;
inc(psrc);
@ -369,7 +370,8 @@ begin
begin
if psrc^=b then
begin
result:=psrc-pword(@buf);
{ the result is always >=0 so avoid handling of negative values }
result:=PtrUint(pointer(psrc)-pointer(@buf)) div sizeof(word);
exit;
end;
inc(psrc);
@ -399,7 +401,8 @@ begin
begin
if unaligned(psrc^)=b then
begin
result:=psrc-pdword(@buf);
{ the result is always >=0 so avoid handling of negative values }
result:=PtrUint(pointer(psrc)-pointer(@buf)) div sizeof(DWord);
exit;
end;
inc(psrc);
@ -410,7 +413,8 @@ begin
begin
if psrc^=b then
begin
result:=psrc-pdword(@buf);
{ the result is always >=0 so avoid handling of negative values }
result:=PtrUint(pointer(psrc)-pointer(@buf)) div sizeof(DWord);
exit;
end;
inc(psrc);
@ -440,7 +444,8 @@ begin
begin
if unaligned(psrc^)=b then
begin
result:=psrc-pqword(@buf);
{ the result is always >=0 so avoid handling of negative values }
result:=PtrUint(pointer(psrc)-pointer(@buf)) div sizeof(QWord);
exit;
end;
inc(psrc);
@ -451,7 +456,8 @@ begin
begin
if psrc^=b then
begin
result:=psrc-pqword(@buf);
{ the result is always >=0 so avoid handling of negative values }
result:=PtrUint(pointer(psrc)-pointer(@buf)) div sizeof(QWord);
exit;
end;
inc(psrc);