diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-03-13 15:25:53 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-03-13 15:25:53 +0300 |
| commit | 50972d6f7c53d32d324eb5ca96d0a3f8794bdb38 (patch) | |
| tree | 192edd0ac368e0f3afb49e397d9266a6a8af2bc0 /rts/Interpreter.c | |
| parent | 02b3dad195488c9b0f7457e46319cb3f485570ca (diff) | |
| download | haskell-50972d6f7c53d32d324eb5ca96d0a3f8794bdb38.tar.gz | |
Comment improvements on interpreter breakpoint IO action
[skip ci]
Diffstat (limited to 'rts/Interpreter.c')
| -rw-r--r-- | rts/Interpreter.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c index 0e80593d07..9eb6560a8c 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -289,7 +289,7 @@ static StgWord app_ptrs_itbl[] = { }; HsStablePtr rts_breakpoint_io_action; // points to the IO action which is executed on a breakpoint - // it is set in main/GHC.hs:runStmt + // it is set in main/GHC.hs:runStmt Capability * interpretBCO (Capability* cap) @@ -1098,10 +1098,10 @@ run_BCO: // Arrange the stack to call the breakpoint IO action, and // continue execution of this BCO when the IO action returns. // - // ioAction :: Bool -- exception? + // ioAction :: Int# -- the breakpoint index + // -> Int# -- the module uniq + // -> Bool -- exception? // -> HValue -- the AP_STACK, or exception - // -> Int -- the breakpoint index (arg2) - // -> Int -- the module uniq (arg3) // -> IO () // ioAction = (StgClosure *) deRefStablePtr ( @@ -1111,7 +1111,7 @@ run_BCO: SpW(10) = (W_)obj; SpW(9) = (W_)&stg_apply_interp_info; SpW(8) = (W_)new_aps; - SpW(7) = (W_)False_closure; // True <=> a breakpoint + SpW(7) = (W_)False_closure; // True <=> an exception SpW(6) = (W_)&stg_ap_ppv_info; SpW(5) = (W_)BCO_LIT(arg3_module_uniq); SpW(4) = (W_)&stg_ap_n_info; |