Macintosh-Tools/Retro68
1
0
Fork 0
mirror of https://github.com/autc04/Retro68.git synced 2024-12-25 09:30:58 +00:00
Code Issues Projects Releases Wiki Activity

whitespace

Browse Source
This commit is contained in:
Wolfgang Thaller 2012-04-13 22:03:51 +02:00
parent e0f694a069
commit a609de329b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PrepareHeaders.hs
View File

@ -78,8 +78,8 @@ reg = (reserved tp "__A0" >> return "%%a0")
data TypeCategory = ByteType | WordType | LongType | PointerType | VoidType data TypeCategory = ByteType | WordType | LongType | PointerType | VoidType
deriving(Show, Eq) deriving(Show, Eq)
classifyType tm t | "Ptr" `isSuffixOf` t = Just PointerType classifyType tm t | "Ptr" `isSuffixOf` t = Just PointerType
| "*" `isSuffixOf` t = Just PointerType | "*" `isSuffixOf` t = Just PointerType
| "Handle" `isSuffixOf` t = Just PointerType | "Handle" `isSuffixOf` t = Just PointerType
classifyType tm "unsigned char" = Just ByteType classifyType tm "unsigned char" = Just ByteType
classifyType tm "signed char" = Just ByteType classifyType tm "signed char" = Just ByteType
classifyType tm "char" = Just ByteType classifyType tm "char" = Just ByteType