X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FRegs.h;h=f1b8597d60e066d7e91c0df604fd27d29c617af8;hb=7c82b4a858411e7363f46d29bbd297e7880ef625;hp=b65d242b046db2521a82a6c22640cb198a0a8893;hpb=474656aa64e690fc48752eabecf2b76532c31ea7;p=ghc-hetmet.git

diff --git a/ghc/includes/Regs.h b/ghc/includes/Regs.h
index b65d242..f1b8597 100644
--- a/ghc/includes/Regs.h
+++ b/ghc/includes/Regs.h
@@ -98,11 +98,10 @@ typedef struct StgRegTable_ {
   MP_INT          rmp_tmp2;      
   MP_INT          rmp_result1;
   MP_INT          rmp_result2;
+  StgWord         rRet;  // holds the return code of the thread
 #if defined(SMP) || defined(PAR)
   StgSparkPool    rSparks;	/* per-task spark pool */
 #endif
-    // If this flag is set, we are running Haskell code.  Used to detect
-    // uses of 'foreign import unsafe' that should be 'safe'.
 } StgRegTable;
 
 #if IN_STG_CODE