projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add an ArchUnknown constructor to the arch type
[ghc-hetmet.git]
/
compiler
/
utils
/
Platform.hs
diff --git
a/compiler/utils/Platform.hs
b/compiler/utils/Platform.hs
index
7b2502d
..
e4f97bd
100644
(file)
--- a/
compiler/utils/Platform.hs
+++ b/
compiler/utils/Platform.hs
@@
-31,7
+31,8
@@
data Platform
-- about what instruction set extensions an architecture might support.
--
data Arch
-- about what instruction set extensions an architecture might support.
--
data Arch
- = ArchX86
+ = ArchUnknown
+ | ArchX86
| ArchX86_64
| ArchPPC
| ArchPPC_64
| ArchX86_64
| ArchPPC
| ArchPPC_64
@@
-80,7
+81,7
@@
defaultTargetArch = ArchPPC_64
#elif sparc_TARGET_ARCH
defaultTargetArch = ArchSPARC
#else
#elif sparc_TARGET_ARCH
defaultTargetArch = ArchSPARC
#else
-#error "Platform.buildArch: undefined"
+defaultTargetArch = ArchUnknown
#endif
#endif