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

infinity, try to fix the ffsll mess, warnings

Browse Source
This commit is contained in:
Vitor Santos Costa
2015-01-05 16:06:32 +00:00
parent 5053cfb571
commit fcf0f41312
19 changed files with 81 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
packages/prism/src/c/core/bpx.h
View File

@@ -19,7 +19,7 @@ typedef void *SYM_REC_PTR;
#define trail_top TR
#define trail_up_addr ((tr_fr_ptr)LCL0)
#define UNDO_TRAILING while (TR > (tr_fr_ptr)trail_top0) { RESET_VARIABLE(VarOfTerm(TrailTerm(TR--))); }
#define UNDO_TRAILING while (TR > (tr_fr_ptr)trail_top0) { RESET_VARIABLE(VarOfTerm(TrailTerm(TR))); TR--; }
#define NEW_HEAP_NODE(x) (*heap_top++ = (x))

2
packages/prism/src/c/core/fputil.h
View File

@@ -39,8 +39,10 @@
#ifndef isnan
#define isnan(x) ((x) != (x))
#endif
#ifndef INFINITY
#define INFINITY HUGE_VAL
#endif
#endif
#define SNAN fputil_snan()
#define QNAN fputil_qnan()

4
packages/prism/src/c/up/em_aux_ml.c
View File

@@ -660,11 +660,11 @@ int update_params_smooth(void)
SW_INS_PTR ptr,next;
double sum,cur_prob_sum;
double denom;
int n;
// int n;
for (i = 0; i < occ_switch_tab_size; i++) {
ptr = occ_switches[i];
n = num_sw_vals[i];
// n = num_sw_vals[i];
sum = 0.0;
while (ptr != NULL) {
sum += ptr->total_expect + ptr->smooth;

4
packages/prism/src/c/up/em_preds.c
View File

@@ -149,7 +149,7 @@ int pc_compute_inside_2(void)
int pc_compute_probf_1(void)
{
EG_NODE_PTR eg_ptr;
// EG_NODE_PTR eg_ptr;
int prmode;
prmode = bpx_get_integer(bpx_get_call_arg(1,1));
@@ -159,7 +159,7 @@ int pc_compute_probf_1(void)
return BP_TRUE;
}
eg_ptr = expl_graph[roots[0]->id];
// eg_ptr = expl_graph[roots[0]->id];
failure_root_index = -1;
/* [31 Mar 2008, by yuizumi]

2
packages/prism/src/c/up/graph.c
View File

@@ -779,7 +779,7 @@ int pc_import_occ_switches_3(void)
TERM p_num_sw, p_num_sw_ins;
int i;
int num_sw_ins;
void release_occ_switches();
void release_occ_switches( void );
#ifdef __YAP_PROLOG__
TERM *hstart;