Changeset 3506 for src/Pugs/Types/Code.hs
- Timestamp:
- 05/20/05 17:14:27 (4 years ago)
- svk:copy_cache_prev:
- 5078
- Files:
-
- 1 modified
-
src/Pugs/Types/Code.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Types/Code.hs
r3437 r3506 27 27 code_iType c = case subType c of 28 28 SubBlock -> mkType "Block" 29 SubRoutine -> mkType "Sub"30 SubPrim -> mkType "Sub"31 29 SubMethod -> mkType "Method" 30 _ -> mkType "Sub" 32 31 code_fetch = return 33 32 code_store _ _= retConstError undef
