+ added prefetch(const mem)

rtl/inc/generic.inc

@@ -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

rtl/inc/innr.inc

@@ -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

rtl/inc/systemh.inc

@@ -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
 
-}
+}