[openfirmware] r1036 - forth/wrapper

Author: wmb
Date: 2008-12-19 20:06:16 +0100 (Fri, 19 Dec 2008)
New Revision: 1036

Modified:
   forth/wrapper/wrapper.c
Log:
Tweaks to wrapper.c for compilation on ARM.

Modified: forth/wrapper/wrapper.c
===================================================================
--- forth/wrapper/wrapper.c	2008-12-19 07:55:27 UTC (rev 1035)
+++ forth/wrapper/wrapper.c	2008-12-19 19:06:16 UTC (rev 1036)
@@ -130,7 +130,7 @@
 char *host_os = "freebsd";
 #endif

-#ifdef HOSTARM
+#ifdef __arm__
 char *host_cpu = "arm";
 #define HOST_LITTLE_ENDIAN
 #endif
@@ -158,7 +158,6 @@

#ifdef ARM
 char *target_cpu = "arm";
-char *host_cpu = "arm";
 #define CPU_MAGIC 0xe1a00000
 #define START_OFFSET 8
 #endif
@@ -937,7 +936,7 @@

#else

-# if defined(HOST_LITTLE_ENDIAN)
+# if defined(TARGET_POWERPC) && defined(HOST_LITTLE_ENDIAN)
    lbflips((long *)&header, sizeof(header));
 # endif

@@ -1549,6 +1548,7 @@
      1200,     B1200,     1800,     B1800,     2400,     B2400,
      4800,     B4800,     9600,     B9600,    19200,    B19200,
     38400,    B38400,    57600,    B57600,   115200,   B115200,
+#ifdef B230400
    230400,   B230400,

#ifdef B4000000
@@ -1558,6 +1558,7 @@
   2500000,  B2500000,  3000000,  B3000000,  3500000,  B3500000,
   4000000,  B4000000,
 #endif
+#endif
        -1,        -1, 
 };