__LD version
This commit is contained in:
parent
ea337366fe
commit
67b9ad1fa2
@ -30,7 +30,7 @@ PL_get_chars_ex(term_t t, char **s, unsigned int flags)
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
//#undef PL_get_atom_ex
|
#undef PL_get_atom_ex
|
||||||
|
|
||||||
int
|
int
|
||||||
PL_get_atom_ex__LD(term_t t, atom_t *a ARG_LD)
|
PL_get_atom_ex__LD(term_t t, atom_t *a ARG_LD)
|
||||||
@ -39,7 +39,7 @@ PL_get_atom_ex__LD(term_t t, atom_t *a ARG_LD)
|
|||||||
|
|
||||||
return PL_error(NULL, 0, NULL, ERR_TYPE, ATOM_atom, t);
|
return PL_error(NULL, 0, NULL, ERR_TYPE, ATOM_atom, t);
|
||||||
}
|
}
|
||||||
/*
|
|
||||||
int
|
int
|
||||||
PL_get_atom_ex(term_t t, atom_t *a)
|
PL_get_atom_ex(term_t t, atom_t *a)
|
||||||
{ if ( PL_get_atom(t, a) )
|
{ if ( PL_get_atom(t, a) )
|
||||||
@ -47,7 +47,7 @@ PL_get_atom_ex(term_t t, atom_t *a)
|
|||||||
|
|
||||||
return PL_error(NULL, 0, NULL, ERR_TYPE, ATOM_atom, t);
|
return PL_error(NULL, 0, NULL, ERR_TYPE, ATOM_atom, t);
|
||||||
}
|
}
|
||||||
*/
|
|
||||||
|
|
||||||
int
|
int
|
||||||
PL_get_integer_ex(term_t t, int *i)
|
PL_get_integer_ex(term_t t, int *i)
|
||||||
|
Reference in New Issue
Block a user