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

+ added prefetch(const mem)

Browse Source
This commit is contained in:
florian 2004-02-02 20:39:27 +00:00
parent 9861946639
commit 6cd2cddd33
3 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/generic.inc
View File

@ -55,7 +55,7 @@ var
begin
if count <= 0 then exit;
v := 0;
{ aligned? }
{ aligned? }
if (PtrUInt(@x) mod sizeof(PtrUInt))<>0 then
begin
for i:=0 to count-1 do
@ -1062,6 +1062,8 @@ procedure inclocked(var l:longint);
{_$error Sptr must be defined for each processor }
{$endif ndef FPC_SYSTEM_HAS_SPTR}
procedure prefetch(const mem);[internproc:in_prefetch_var];
{****************************************************************************
Str()
****************************************************************************}
@ -1137,7 +1139,10 @@ end;
{
$Log$
Revision 1.68 2004-01-31 16:14:24 florian
Revision 1.69 2004-02-02 20:39:27 florian
+ added prefetch(const mem)
Revision 1.68 2004/01/31 16:14:24 florian
* alignment handling of generic fillbyte/word fixed
Revision 1.66 2004/01/21 01:25:02 florian

6
rtl/inc/innr.inc
View File

@ -83,6 +83,7 @@ const
in_ln_extended = 126;
in_sin_extended = 127;
in_const_swap_qword = 128;
in_prefetch_var = 129;
{ MMX functions }
{ these contants are used by the mmx unit }
@ -101,7 +102,10 @@ const
{
$Log$
Revision 1.5 2002-11-18 18:33:51 peter
Revision 1.6 2004-02-02 20:39:27 florian
+ added prefetch(const mem)
Revision 1.5 2002/11/18 18:33:51 peter
* Swap(QWord) constant support
Revision 1.4 2002/09/07 15:07:45 peter

8
rtl/inc/systemh.inc
View File

@ -383,6 +383,7 @@ function CompareDWord(const buf1,buf2;len:longint):longint;
procedure MoveChar0(const buf1;var buf2;len:longint);
function IndexChar0(const buf;len:longint;b:char):longint;
function CompareChar0(const buf1,buf2;len:longint):longint;
procedure prefetch(const mem);
{****************************************************************************
@ -721,7 +722,10 @@ const
{
$Log$
Revision 1.83 2004-01-26 11:48:24 florian
Revision 1.84 2004-02-02 20:39:27 florian
+ added prefetch(const mem)
Revision 1.83 2004/01/26 11:48:24 florian
* compilation on arm fixed
Revision 1.82 2004/01/20 23:13:53 hajny
@ -876,4 +880,4 @@ const
instead of direct comparisons of low/high values of orddefs because
qword is a special case
}
}