diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-03-27 20:54:49 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-03-27 20:54:49 +0000 |
| commit | fd518ed2a3fe50238e0e9e7947e33cc9d5de9bce (patch) | |
| tree | 384d4e0a74cd0019dbf20394f2eeb9b83b24b1cc /devel/compiler/Compile.hs | |
| parent | 7c30d211c3eda504668c0eab51e99d6e52db2127 (diff) | |
primitive pattern matching
Diffstat (limited to 'devel/compiler/Compile.hs')
| -rw-r--r-- | devel/compiler/Compile.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/devel/compiler/Compile.hs b/devel/compiler/Compile.hs index 7ebb65f0e..f21fca632 100644 --- a/devel/compiler/Compile.hs +++ b/devel/compiler/Compile.hs @@ -27,9 +27,10 @@ compDef d = case d of addOper f exp DPar p cs -> do v <- sizeParType cs - addTypedef p $ TVal $ toInteger $ fst v + let ty = TBas p + addParsize ty $ fst v vals <- allParVals cs - addPartype (TBas p) vals + addPartype ty vals mapM_ (uncurry addParVal) (zip vals (map VPar [0..])) DOpty a ty -> do addTypedef a ty |