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

init spelling effort

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-11-05 15:25:58 +00:00
parent 13aff4de32
commit 691f02816d
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
C/init.c
View File

@ -496,7 +496,7 @@ Yap_InitCPred(const char *Name, UInt Arity, CPredicate code, pred_flags_t flags)
else else
atom = Yap_FullLookupAtom(Name); atom = Yap_FullLookupAtom(Name);
if (atom == NIL && !Yap_growheap(FALSE, 0L, NULL)) { if (atom == NIL && !Yap_growheap(FALSE, 0L, NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} }
@ -504,7 +504,7 @@ Yap_InitCPred(const char *Name, UInt Arity, CPredicate code, pred_flags_t flags)
while (!f) { while (!f) {
f = Yap_MkFunctor(atom,Arity); f = Yap_MkFunctor(atom,Arity);
if (!f && !Yap_growheap(FALSE, 0L, NULL)) { if (!f && !Yap_growheap(FALSE, 0L, NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} }
@ -515,7 +515,7 @@ Yap_InitCPred(const char *Name, UInt Arity, CPredicate code, pred_flags_t flags)
else else
pe = RepPredProp(PredPropByAtom(atom,CurrentModule)); pe = RepPredProp(PredPropByAtom(atom,CurrentModule));
if (!pe && !Yap_growheap(FALSE, sizeof(PredEntry), NULL)) { if (!pe && !Yap_growheap(FALSE, sizeof(PredEntry), NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} }
@ -541,7 +541,7 @@ Yap_InitCPred(const char *Name, UInt Arity, CPredicate code, pred_flags_t flags)
cl = (StaticClause *)Yap_AllocCodeSpace(sz); cl = (StaticClause *)Yap_AllocCodeSpace(sz);
if (!cl) { if (!cl) {
if (!Yap_growheap(FALSE, sz, NULL)) { if (!Yap_growheap(FALSE, sz, NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} else { } else {
@ -645,7 +645,7 @@ Yap_InitCmpPred(const char *Name, UInt Arity, CmpPredicate cmp_code, pred_flags_
while (atom == NIL) { while (atom == NIL) {
atom = Yap_FullLookupAtom(Name); atom = Yap_FullLookupAtom(Name);
if (atom == NIL && !Yap_growheap(FALSE, 0L, NULL)) { if (atom == NIL && !Yap_growheap(FALSE, 0L, NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} }
@ -653,7 +653,7 @@ Yap_InitCmpPred(const char *Name, UInt Arity, CmpPredicate cmp_code, pred_flags_
while (!f) { while (!f) {
f = Yap_MkFunctor(atom,Arity); f = Yap_MkFunctor(atom,Arity);
if (!f && !Yap_growheap(FALSE, 0L, NULL)) { if (!f && !Yap_growheap(FALSE, 0L, NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} }
@ -664,7 +664,7 @@ Yap_InitCmpPred(const char *Name, UInt Arity, CmpPredicate cmp_code, pred_flags_
else else
pe = RepPredProp(PredPropByAtom(atom,CurrentModule)); pe = RepPredProp(PredPropByAtom(atom,CurrentModule));
if (!pe && !Yap_growheap(FALSE, sizeof(PredEntry), NULL)) { if (!pe && !Yap_growheap(FALSE, sizeof(PredEntry), NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} }
@ -678,7 +678,7 @@ Yap_InitCmpPred(const char *Name, UInt Arity, CmpPredicate cmp_code, pred_flags_
cl = (StaticClause *)Yap_AllocCodeSpace(sz); cl = (StaticClause *)Yap_AllocCodeSpace(sz);
if (!cl) { if (!cl) {
if (!Yap_growheap(FALSE, sz, NULL)) { if (!Yap_growheap(FALSE, sz, NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} else { } else {
@ -721,7 +721,7 @@ Yap_InitAsmPred(const char *Name, UInt Arity, int code, CPredicate def, pred_fl
while (atom == NIL) { while (atom == NIL) {
atom = Yap_FullLookupAtom(Name); atom = Yap_FullLookupAtom(Name);
if (atom == NIL && !Yap_growheap(FALSE, 0L, NULL)) { if (atom == NIL && !Yap_growheap(FALSE, 0L, NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} }
@ -729,7 +729,7 @@ Yap_InitAsmPred(const char *Name, UInt Arity, int code, CPredicate def, pred_fl
while (!f) { while (!f) {
f = Yap_MkFunctor(atom,Arity); f = Yap_MkFunctor(atom,Arity);
if (!f && !Yap_growheap(FALSE, 0L, NULL)) { if (!f && !Yap_growheap(FALSE, 0L, NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} }
@ -740,7 +740,7 @@ Yap_InitAsmPred(const char *Name, UInt Arity, int code, CPredicate def, pred_fl
else else
pe = RepPredProp(PredPropByAtom(atom,CurrentModule)); pe = RepPredProp(PredPropByAtom(atom,CurrentModule));
if (!pe && !Yap_growheap(FALSE, sizeof(PredEntry), NULL)) { if (!pe && !Yap_growheap(FALSE, sizeof(PredEntry), NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} }
@ -875,7 +875,7 @@ Yap_InitCPredBack_(const char *Name, UInt Arity,
while (atom == NIL) { while (atom == NIL) {
atom = Yap_FullLookupAtom(Name); atom = Yap_FullLookupAtom(Name);
if (atom == NIL && !Yap_growheap(FALSE, 0L, NULL)) { if (atom == NIL && !Yap_growheap(FALSE, 0L, NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} }
@ -883,7 +883,7 @@ Yap_InitCPredBack_(const char *Name, UInt Arity,
while (!f) { while (!f) {
f = Yap_MkFunctor(atom,Arity); f = Yap_MkFunctor(atom,Arity);
if (!f && !Yap_growheap(FALSE, 0L, NULL)) { if (!f && !Yap_growheap(FALSE, 0L, NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} }
@ -894,7 +894,7 @@ Yap_InitCPredBack_(const char *Name, UInt Arity,
else else
pe = RepPredProp(PredPropByAtom(atom,CurrentModule)); pe = RepPredProp(PredPropByAtom(atom,CurrentModule));
if (!pe && !Yap_growheap(FALSE, sizeof(PredEntry), NULL)) { if (!pe && !Yap_growheap(FALSE, sizeof(PredEntry), NULL)) {
Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initialising %s", Name); Yap_Error(RESOURCE_ERROR_HEAP,TermNil,"while initializing %s", Name);
return; return;
} }
} }
@ -1133,7 +1133,7 @@ InitWideAtoms(void)
static void static void
InitInvisibleAtoms(void) InitInvisibleAtoms(void)
{ {
/* initialise invisible chain */ /* initialize invisible chain */
Yap_heap_regs->invisiblechain.Entry = NIL; Yap_heap_regs->invisiblechain.Entry = NIL;
INIT_RWLOCK(Yap_heap_regs->invisiblechain.AERWLock); INIT_RWLOCK(Yap_heap_regs->invisiblechain.AERWLock);
} }
@ -1348,7 +1348,7 @@ Yap_InitWorkspace(UInt Heap, UInt Stack, UInt Trail, UInt Atts, UInt max_table_s
{ {
CACHE_REGS CACHE_REGS
/* initialise system stuff */ /* initialize system stuff */
#if PUSH_REGS #if PUSH_REGS
#ifdef THREADS #ifdef THREADS
if (!(Yap_local[0] = (struct worker_local *)calloc(sizeof(struct worker_local), 1))) if (!(Yap_local[0] = (struct worker_local *)calloc(sizeof(struct worker_local), 1)))
@ -1357,7 +1357,7 @@ Yap_InitWorkspace(UInt Heap, UInt Stack, UInt Trail, UInt Atts, UInt max_table_s
pthread_setspecific(Yap_yaamregs_key, (const void *)&Yap_standard_regs); pthread_setspecific(Yap_yaamregs_key, (const void *)&Yap_standard_regs);
GLOBAL_master_thread = pthread_self(); GLOBAL_master_thread = pthread_self();
#else #else
/* In this case we need to initialise the abstract registers */ /* In this case we need to initialize the abstract registers */
Yap_regp = &Yap_standard_regs; Yap_regp = &Yap_standard_regs;
/* the emulator will eventually copy them to its own local /* the emulator will eventually copy them to its own local
register array, but for now they exist */ register array, but for now they exist */
@ -1417,7 +1417,7 @@ Yap_InitWorkspace(UInt Heap, UInt Stack, UInt Trail, UInt Atts, UInt max_table_s
Yap_AttsSize = Atts; Yap_AttsSize = Atts;
Yap_InitTime( 0 ); Yap_InitTime( 0 );
/* InitAbsmi must be done before InitCodes */ /* InitAbsmi must be done before InitCodes */
/* This must be done before initialising predicates */ /* This must be done before initializing predicates */
#ifdef MPW #ifdef MPW
Yap_InitAbsmi(REGS, FunctorList); Yap_InitAbsmi(REGS, FunctorList);
#else #else