Avoid potentially empty struct.

[p5sagit/p5-mst-13.2.git] / vos / compile_perl.cm

diff --git a/vos/compile_perl.cm b/vos/compile_perl.cm
index 367b079..c5c7c1e 100644 (file)
--- a/vos/compile_perl.cm
+++ b/vos/compile_perl.cm
@@ -38,6 +38,21 @@
  &display_line GCC is not supported by the alpha version of POSIX support.
  &return e$translation_failed
 &end
+&if &cpu& = mc68020 & &version& = ga
+&then &do
+ &display_line The mc68020 CPU is not supported by the GA version of POSIX support.
+ &return e$translation_failed
+&end
+&if &cpu& = i80860 & &version& = ga
+&then &do
+ &display_line The i80860 CPU is not supported by the GA version of POSIX support.
+ &return e$translation_failed
+&end
+&if &cpu& = pa8000 & &compiler& = gcc
+&then &do
+ &display_line The pa8000 CPU is not supported by the GNU GCC compiler.
+ &return e$translation_failed
+&end
 &if ^ (exists obj&obj& -directory)
 &then !create_dir obj&obj&
 &