Commit abc0df93 authored by anton's avatar anton

bugfix in m68k/machine.h and 386/machine.h

doc changes in cross.fs and prim
parent 0d4c6ac7
......@@ -26,12 +26,12 @@
#endif
#endif
#include "../generic/machine.h"
#ifndef THREADING_SCHEME
#define THREADING_SCHEME 8
#endif
#include "../generic/machine.h"
/* indirect threading is faster on the Pentium, on the 486 direct
threading is faster. Therefore we leave defining
DIRECT_THREADED to configure */
......
......@@ -37,6 +37,7 @@
#endif
#include "../generic/machine.h"
#include <sys/types.h>
/* Clearing the whole cache is a bit drastic, but this is the only
* cache control available on the apollo and NeXT
......
\ CROSS.FS The Cross-Compiler 06oct92py
\ Idea and implementation: Bernd Paysan (py)
\ Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
......@@ -512,8 +512,8 @@ else if (n>0)
dup 0< IF drop -1 ELSE 0> 1 and THEN ;
toupper c1 -- c2 gforth
""For a character a-z, convert to the equivalent upper-case
character. All other characters are unchanged.""
""If @var{c1} is a lower-case character (in the current locale), @var{c2}
is the equivalent upper-case character. All other characters are unchanged.""
c2 = toupper(c1);
:
dup [char] a - [ char z char a - 1 + ] Literal u< bl and - ;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment