Changeset 2126

Timestamp:

Jan 20, 2011 12:28:37 AM (2 years ago)

Author:

wmb

Message:

Mostly-cosmetic changes to the wrapper. You can turn on simulator sign-on chattiness by defining VERBOSE.

File:

• forth/wrapper/wrapper.c (modified) (3 diffs)

forth/wrapper/wrapper.c

@@ -348 +348 @@
 
 #if defined(PPCSIM) || defined (ARMSIM)
-  /* These are not INTERNAL because the PowerPC simulator uses then */
-         long   c_key();
-         long   s_bye();
-         void   simulate();
-         void   restoremode();
+  /* These are not INTERNAL because the simulators use then */
+           long c_key();
+           long s_bye();
+           void simulate();
+           void restoremode();
 #else
   INTERNAL long c_key();
@@ -1003 +1003 @@
         dictsize += 16;         /* Allow for alignment */
 
-# ifdef PPCSIM
+# ifdef VERBOSE
+#  ifdef PPCSIM
         printf("PowerPC Instruction Set Simulator\n");
         printf("Copyright 1994 FirmWorks   All rights reserved\n");
+#  elif ARMSIM
+        printf("ARM Instruction Set Simulator\n");
+        printf("Copyright 1994 FirmWorks   All rights reserved\n");
+        printf("Copyright 2010 Apple, Inc. All rights reserved\n");
+#  endif
 # endif
 
@@ -1064 +1070 @@
                  argc, argv, 1 /* 0=POWER, 1=PowerPC */);
 #elif defined(ARMSIM)
-        // printf("loadaddr = 0x%x\n",loadaddr);
         simulate(0L, loadaddr, loadaddr, functions,
          ((long)loadaddr+dictsize - 16) & ~15, argc, argv);