Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Patches for bugs #4698[789]
  • Loading branch information
forthy42 committed Jan 27, 2016
1 parent 500fe84 commit 912c288
Show file tree
Hide file tree
Showing 3 changed files with 11 additions and 5 deletions.
8 changes: 7 additions & 1 deletion arch/mips/machine.h
Expand Up @@ -26,8 +26,14 @@
#endif

/* cache flush stuff */
#ifdef ultrix
#if defined(ultrix)
#include <mips/cachectl.h>
#elif defined(__OpenBSD__)
# if (SIZEOF_VOID_P == 4)
# include <mips/sysarch.h>
# else
# include <mips64/sysarch.h>
# endif
#else
/* works on Irix */
#include <sys/cachectl.h>
Expand Down
2 changes: 1 addition & 1 deletion cilk.fs
@@ -1,6 +1,6 @@
\ Cilk-like sync+spawn interface

\ Copyright (C) 2015 Free Software Foundation, Inc.
\ Copyright (C) 2016 Free Software Foundation, Inc.

\ This file is part of Gforth.

Expand Down
6 changes: 3 additions & 3 deletions engine/engine.c
Expand Up @@ -461,9 +461,9 @@ Cell trampoline = (Cell)&trampoline0;
debugp(stderr, "offsets code/xt/label: %lx/%lx/%lx\n",
code_offset, xt_offset, label_offset);

symbols = (Label *)(malloc(MAX_SYMBOLS*sizeof(Cell)+CODE_OFFSET)+code_offset);
xts = (Label *)(malloc(MAX_SYMBOLS*sizeof(Cell)+XT_OFFSET)+xt_offset);
labels = (Label *)(malloc(MAX_SYMBOLS*sizeof(Cell)+LABEL_OFFSET)+label_offset);
symbols = (Label *)(calloc(1, MAX_SYMBOLS*sizeof(Cell)+CODE_OFFSET)+code_offset);
xts = (Label *)(calloc(1, MAX_SYMBOLS*sizeof(Cell)+XT_OFFSET)+xt_offset);
labels = (Label *)(calloc(1, MAX_SYMBOLS*sizeof(Cell)+LABEL_OFFSET)+label_offset);

for (i=0; i<DOER_MAX+1; i++) {
labels[i] = routines[i];
Expand Down

0 comments on commit 912c288

Please sign in to comment.