diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

init spelling

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-11-05 15:12:29 +00:00
parent 72252ed817
commit 4c0615bb54
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C/compiler.c
View File

@ -2395,7 +2395,7 @@ clear_bvarray(int var, CELL *bvarray
bvarray++;
var -= max;
}
/* now put a 0 on it, from now on the variable is initialised */
/* now put a 0 on it, from now on the variable is initialized */
nbit = ((CELL)1 << var);
#ifdef DEBUG
if (*bvarray & nbit) {
@ -2403,7 +2403,7 @@ clear_bvarray(int var, CELL *bvarray
/* someone had already marked this variable: complain */
LOCAL_Error_TYPE = SYSTEM_ERROR_COMPILER;
LOCAL_Error_Term = TermNil;
LOCAL_ErrorMessage = "compiler internal error: variable initialised twice";
LOCAL_ErrorMessage = "compiler internal error: variable initialized twice";
save_machine_regs();
siglongjmp(cglobs->cint.CompilerBotch, COMPILER_ERR_BOTCH);
}
@ -2420,7 +2420,7 @@ add_bvarray_op(PInstr *cp, CELL *bvarray, int env_size, compiler_struct *cglobs)
CELL *dest;
dest =
Yap_emit_extra_size(mark_initialised_pvars_op, (CELL)env_size, (size+1)*sizeof(CELL), &cglobs->cint);
Yap_emit_extra_size(mark_initialized_pvars_op, (CELL)env_size, (size+1)*sizeof(CELL), &cglobs->cint);
/* copy the cells to dest */
for (i = 0; i <= size; i++)
*dest++ = *bvarray++;
@ -2510,7 +2510,7 @@ CheckUnsafe(PInstr *pc, compiler_struct *cglobs)
CACHE_REGS
int pending = 0;
/* say that all variables are yet to initialise */
/* say that all variables are yet to initialize */
CELL *vstat = init_bvarray(LOCAL_nperm, cglobs);
UnsafeEntry *UnsafeStack =
(UnsafeEntry *) Yap_AllocCMem(LOCAL_nperm * sizeof(UnsafeEntry), &cglobs->cint);
@ -3473,7 +3473,7 @@ Yap_cclause(volatile Term inp_clause, Int NOfArgs, Term mod, volatile Term src)
volatile int maxvnum = 512;
int botch_why;
/* may botch while doing a different module */
/* first, initialise cglobs->cint.CompilerBotch to handle all cases of interruptions */
/* first, initialize cglobs->cint.CompilerBotch to handle all cases of interruptions */
compiler_struct cglobs;
#ifdef TABLING_INNER_CUTS