version 1.113, 2003/01/02 16:48:12
|
version 1.116, 2003/01/08 09:53:07
|
Line 1473 f_addr = (Float *)((((Cell)c_addr)+(size
|
Line 1473 f_addr = (Float *)((((Cell)c_addr)+(size
|
: |
: |
[ 1 floats 1- ] Literal + [ -1 floats ] Literal and ; |
[ 1 floats 1- ] Literal + [ -1 floats ] Literal and ; |
|
|
>body ( xt -- a_addr ) core to_body |
|
"" Get the address of the body of the word represented by @i{xt} (the address |
|
of the word's data field)."" |
|
a_addr = PFA(xt); |
|
: |
|
2 cells + ; |
|
|
|
\ threading stuff is currently only interesting if we have a compiler |
\ threading stuff is currently only interesting if we have a compiler |
\fhas? standardthreading has? compiler and [IF] |
\fhas? standardthreading has? compiler and [IF] |
|
|
Line 1886 flag = FLAG(!fnmatch(pattern, string, 0)
|
Line 1879 flag = FLAG(!fnmatch(pattern, string, 0)
|
newline ( -- c_addr u ) gforth |
newline ( -- c_addr u ) gforth |
""String containing the newline sequence of the host OS"" |
""String containing the newline sequence of the host OS"" |
char newline[] = { |
char newline[] = { |
#if defined(unix) || defined(__MACH__) |
#if DIRSEP=='/' |
/* Darwin/MacOS X sets __MACH__, but not unix. */ |
/* Unix */ |
'\n' |
'\n' |
#else |
#else |
|
/* DOS, Win, OS/2 */ |
'\r','\n' |
'\r','\n' |
#endif |
#endif |
}; |
}; |
Line 2486 f = forget_dyncode(c_code);
|
Line 2480 f = forget_dyncode(c_code);
|
decompile-prim ( a_code -- a_prim ) gforth-internal decompile_prim |
decompile-prim ( a_code -- a_prim ) gforth-internal decompile_prim |
""a_prim is the code address of the primitive that has been |
""a_prim is the code address of the primitive that has been |
compile_prim1ed to a_code"" |
compile_prim1ed to a_code"" |
a_prim = decompile_code(a_code); |
a_prim = (Label)decompile_code((Label)a_code); |
|
|
\+ |
\+ |
|
|