diff --git a/ueforth/Makefile b/ueforth/Makefile index cad5659..cf92cd8 100644 --- a/ueforth/Makefile +++ b/ueforth/Makefile @@ -12,7 +12,7 @@ # See the License for the specific language governing permissions and # limitations under the License. -VERSION=7.0.6.15 +VERSION=7.0.6.16 STABLE_VERSION=7.0.5.4 REVISION=$(shell git rev-parse HEAD | head -c 20) REVSHORT=$(shell echo $(REVISION) | head -c 7) diff --git a/ueforth/common/floats.h b/ueforth/common/floats.h index 5b2cdfd..db2a8ec 100644 --- a/ueforth/common/floats.h +++ b/ueforth/common/floats.h @@ -45,7 +45,7 @@ Y(SFLOAT, DUP; tos = sizeof(float)) \ Y(SFLOATS, tos *= sizeof(float)) \ X("SFLOAT+", SFLOATPLUS, DUP; tos += sizeof(float)) \ - Y(PI, *++fp = 3.14159265359f) \ + X("PI", PI_CONST, *++fp = 3.14159265359f) \ Y(FSIN, *fp = sin(*fp)) \ Y(FCOS, *fp = cos(*fp)) \ Y(FSINCOS, fp[1] = cos(*fp); *fp = sin(*fp); ++fp) \ diff --git a/ueforth/esp32/builtins.h b/ueforth/esp32/builtins.h index 20b17b1..b92d7bd 100644 --- a/ueforth/esp32/builtins.h +++ b/ueforth/esp32/builtins.h @@ -383,7 +383,7 @@ static cell_t TimerIsrRegister(cell_t group, cell_t timer, cell_t xt, cell_t arg YV(sockets, sockaccept, n0 = accept(n2, (struct sockaddr *) a1, (socklen_t *) a0); NIPn(2)) \ YV(sockets, select, n0 = select(n4, (fd_set *) a3, (fd_set *) a2, (fd_set *) a1, (struct timeval *) a0); NIPn(4)) \ YV(sockets, poll, n0 = poll((struct pollfd *) a2, (nfds_t) n1, n0); NIPn(2)) \ - YV(sockets, errno, PUSH errno) + XV(sockets, "errno", ERRNO, PUSH errno) #endif #ifndef ENABLE_SD_SUPPORT