diff options
| author | simonmar <unknown> | 2003-02-17 11:42:15 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-02-17 11:42:15 +0000 |
| commit | ce25c4afa4c9ddd5b71b67795cc1ffaf3ac1578f (patch) | |
| tree | c2f6e101a16643d8c8fa8060192a7d72c20b959c /ghc/compiler/ghci/ByteCodeGen.lhs | |
| parent | 6d5de40d6a68dae25cdd4a6f4719cfa3c88caa99 (diff) | |
| download | haskell-ce25c4afa4c9ddd5b71b67795cc1ffaf3ac1578f.tar.gz | |
[project @ 2003-02-17 11:42:15 by simonmar]
Comment change only
Diffstat (limited to 'ghc/compiler/ghci/ByteCodeGen.lhs')
| -rw-r--r-- | ghc/compiler/ghci/ByteCodeGen.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/ghci/ByteCodeGen.lhs b/ghc/compiler/ghci/ByteCodeGen.lhs index b8cbb3705d..d8bb40660e 100644 --- a/ghc/compiler/ghci/ByteCodeGen.lhs +++ b/ghc/compiler/ghci/ByteCodeGen.lhs @@ -788,8 +788,8 @@ doCase d s p (_,scrut) -- Deal with a CCall. -- Taggedly push the args onto the stack R->L, --- deferencing ForeignObj#s and (ToDo: adjusting addrs to point to --- payloads in Ptr/Byte arrays). Then, generate the marshalling +-- deferencing ForeignObj#s and adjusting addrs to point to +-- payloads in Ptr/Byte arrays. Then, generate the marshalling -- (machine) code for the ccall, and create bytecodes to call that and -- then return in the right way. |