[project @ 2006-01-17 16:13:18 by simonmar]

[ghc-hetmet.git] / ghc / compiler / cmm / CmmLex.x

diff --git a/ghc/compiler/cmm/CmmLex.x b/ghc/compiler/cmm/CmmLex.x
index ff98508..c2efd17 100644 (file)
--- a/ghc/compiler/cmm/CmmLex.x
+++ b/ghc/compiler/cmm/CmmLex.x
@@ -98,6 +98,7 @@ $white_no_nl+         ;
   CurrentTSO           { global_reg CurrentTSO }
   CurrentNursery       { global_reg CurrentNursery }
   HpAlloc              { global_reg HpAlloc }
+  BaseReg              { global_reg BaseReg }
   
   $namebegin $namechar*        { name }
   
@@ -226,10 +227,10 @@ tok_decimal span buf len
   = return (L span (CmmT_Int  $! parseInteger buf len 10 octDecDigit))
 
 tok_octal span buf len 
-  = return (L span (CmmT_Int  $! parseInteger (stepOn buf) (len-1) 8 octDecDigit))
+  = return (L span (CmmT_Int  $! parseInteger (offsetBytes 1 buf) (len-1) 8 octDecDigit))
 
 tok_hexadecimal span buf len 
-  = return (L span (CmmT_Int  $! parseInteger (stepOnBy 2 buf) (len-2) 16 hexDigit))
+  = return (L span (CmmT_Int  $! parseInteger (offsetBytes 2 buf) (len-2) 16 hexDigit))
 
 tok_float str = CmmT_Float $! readRational str