From: simonmar <unknown>
Date: Mon, 17 Dec 2001 16:01:44 +0000 (+0000)
Subject: [project @ 2001-12-17 16:01:44 by simonmar]
X-Git-Tag: Approximately_9120_patches~376
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1a3dfff8bd35301fd59a44a8db1edfd20c849095;p=ghc-hetmet.git

[project @ 2001-12-17 16:01:44 by simonmar]
comment wibbles
---

diff --git a/ghc/compiler/absCSyn/MachOp.hs b/ghc/compiler/absCSyn/MachOp.hs
index 75994bc..9222f8e 100644
--- a/ghc/compiler/absCSyn/MachOp.hs
+++ b/ghc/compiler/absCSyn/MachOp.hs
@@ -19,10 +19,10 @@ import Outputable
 
    Nomenclature: all ops indicate width and signedness, where
    appropriate.  Widths: 8/16/32/64 means the given size, obviously.
-   Nat means the native word size.  Signedness: S means signed, U
-   means unsigned.  For operations where signedness is irrelevant or
-   makes no difference (for example integer add), the signedness
-   component is omitted.
+   Nat means the operation works on STG word sized objects.
+   Signedness: S means signed, U means unsigned.  For operations where
+   signedness is irrelevant or makes no difference (for example
+   integer add), the signedness component is omitted.
 
    An exception: NatP is a ptr-typed native word.  From the point of
    view of the native code generators this distinction is irrelevant,
@@ -160,8 +160,8 @@ data MachOp
   | MO_32U_to_NatU
 
   -- Reading/writing arrays
-  | MO_ReadOSBI Int PrimRep   -- [base_ptr, index_value]
-  | MO_WriteOSBI Int PrimRep  -- [base_ptr, index_value, value_to_write]
+  | MO_ReadOSBI Int PrimRep   -- args: [base_ptr, index_value]
+  | MO_WriteOSBI Int PrimRep  -- args: [base_ptr, index_value, value_to_write]
     -- Read/write a value :: the PrimRep
     -- at byte address 
     --    sizeof(machine_word)*Int + base_ptr + sizeof(PrimRep)*index_value