diff options
| -rw-r--r-- | includes/rts/storage/Closures.h | 3 | ||||
| -rw-r--r-- | utils/genapply/Main.hs | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/includes/rts/storage/Closures.h b/includes/rts/storage/Closures.h index 7db67c708e..3e90306b65 100644 --- a/includes/rts/storage/Closures.h +++ b/includes/rts/storage/Closures.h @@ -260,6 +260,9 @@ typedef struct { * info table describes the pointerhood of the arguments). * * The stack frame size is also cached in the frame for convenience. + * + * The only RET_FUN is stg_gc_fun, which is created by __stg_gc_fun, + * both in HeapStackCheck.cmm. */ typedef struct { const StgInfoTable* info; diff --git a/utils/genapply/Main.hs b/utils/genapply/Main.hs index 71b84fde79..7038dc5c09 100644 --- a/utils/genapply/Main.hs +++ b/utils/genapply/Main.hs @@ -903,7 +903,7 @@ genStackApply regstatus args = -- -- These code fragments are used to save registers on the stack at a heap -- check failure in the entry code for a function. We also have to save R1 --- and the return address (stg_gc_fun_info) on the stack. See stg_gc_fun_gen +-- and the return address (stg_gc_fun_info) on the stack. See __stg_gc_fun -- in HeapStackCheck.cmm for more details. mkStackSaveEntryLabel :: [ArgRep] -> Doc |