Return to prim CVS log | Up to [gforth] / gforth |
version 1.223, 2008/01/13 16:02:37 | version 1.224, 2008/02/23 13:03:56 |
---|---|
Line 2782 uploop(i, 0, 7, `fcall(i)') | Line 2782 uploop(i, 0, 7, `fcall(i)') |
fcall(20) | fcall(20) |
\+ | \+ |
\+ | |
lib-error ( -- c_addr u ) gforth lib_error | lib-error ( -- c_addr u ) gforth lib_error |
c_addr = lt_dlerror(); | c_addr = lt_dlerror(); |
u = (c_addr == NULL) ? 0 : strlen(c_addr); | u = (c_addr == NULL) ? 0 : strlen(c_addr); |
\+ | |
\g peephole | \g peephole |
\+peephole | \+peephole |