Simon Marlow wrote:

> I'm not a sparc expert, would anyone like to suggest a patch?


 From the top of my head (sorry, I forgot my SUN Enterprise Server at work :-):


/* the flush instruction works on double words */
inline void flushCacheOnSPARC(int64_t* from, int64_t* to) {
   while (from < to) {
     asm("flush %0" : : "r" (from++));
   }

   /* it could take up to 5 instructions until the flush is visible */
   asm("nop" : : );
   asm("nop" : : );
   asm("nop" : : );
   asm("nop" : : );
   asm("nop" : : );
}


Cheers,
    S.

_______________________________________________
Glasgow-haskell-bugs mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs

Reply via email to