--- gforth/prim 2003/08/07 08:50:00 1.132 +++ gforth/prim 2003/08/15 16:47:43 1.134 @@ -1561,7 +1561,7 @@ c_addr = strerror(n); u = strlen(c_addr); strsignal ( n -- c_addr u ) gforth -c_addr = strsignal(n); +c_addr = (Address)strsignal(n); u = strlen(c_addr); call-c ( w -- ) gforth call_c @@ -2232,6 +2232,7 @@ REST_REGS av-call-int ( -- w ) gforth av_call_int SAVE_REGS av_call(alist); +REST_REGS w = irv; av-call-float ( -- r ) gforth av_call_float