diff options
| author | Camil Staps | 2016-07-01 09:11:02 +0200 |
|---|---|---|
| committer | Camil Staps | 2016-07-01 09:11:02 +0200 |
| commit | 55e6cadc298beda9d079d99147b3cb0f50ce25ec (patch) | |
| tree | dd28e78845843d2dff7d2b3daa2b60f5520e8b7e /Descriptors.icl | |
| parent | Fixes (diff) | |
Printing
Diffstat (limited to 'Descriptors.icl')
| -rw-r--r-- | Descriptors.icl | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/Descriptors.icl b/Descriptors.icl deleted file mode 100644 index 5874136..0000000 --- a/Descriptors.icl +++ /dev/null @@ -1,25 +0,0 @@ -implementation module ABC.Descriptors - -import StdEnv - -import ABC.Machine -import ABC.Misc - -d_ap_entry :: Desc -> InstrId -d_ap_entry (Desc e _ _) = e - -d_arity :: Desc -> Arity -d_arity (Desc _ a _) = a - -d_name :: Desc -> String -d_name (Desc _ _ n) = n - -:: DescStore :== [Desc] - -ds_get :: DescId DescStore -> Desc -ds_get 0 [d:_] = d -ds_get _ [] = abortn "ds_get: index too large" -ds_get i [_:s] = ds_get (i-1) s - -ds_init :: [Desc] -> DescStore -ds_init ds = ds |