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

allow using malloc for memory allocation

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@477 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-05-19 19:04:33 +00:00
parent 008cd709a1
commit 9674c91da6
7 changed files with 196 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
C/arith1.c
View File

@@ -1129,13 +1129,13 @@ p_floor(Term t E_ARGS)
if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
MP_INT *big = BigIntOfTerm(t);
Int sz = 2+mpz_sizeinbase(big,10);
char *s = malloc(sz);
char *s = AllocCodeSpace(sz);
if (s != NULL) {
mpz_get_str(s, 10, BigIntOfTerm(t));
Error(TYPE_ERROR_FLOAT, t, "X is floor(%s)", IntegerOfTerm(t));
P = (yamop *)FAILCODE;
free(s);
FreeCodeSpace(s);
RERROR();
} else {
Error(TYPE_ERROR_FLOAT, t, "X is floor(t)");
@@ -1167,12 +1167,12 @@ p_floor(Term t E_ARGS)
if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
MP_INT *big = v.big;
Int sz = 2+mpz_sizeinbase(big,10);
char *s = malloc(sz);
char *s = AllocCodeSpace(sz);
if (s != NULL) {
mpz_get_str(s, 10, BigIntOfTerm(t));
Error(TYPE_ERROR_FLOAT, t, "X is floor(%s)", IntegerOfTerm(t));
free(s);
FreeCodeSpace(s);
P = (yamop *)FAILCODE;
RERROR();
} else {
@@ -1225,12 +1225,12 @@ p_ceiling(Term t E_ARGS)
if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
MP_INT *big = BigIntOfTerm(t);
Int sz = 2+mpz_sizeinbase(big,10);
char *s = malloc(sz);
char *s = AllocCodeSpace(sz);
if (s != NULL) {
mpz_get_str(s, 10, BigIntOfTerm(t));
Error(TYPE_ERROR_FLOAT, t, "X is ceiling(%s)", IntegerOfTerm(t));
free(s);
FreeCodeSpace(s);
P = (yamop *)FAILCODE;
RERROR();
} else {
@@ -1263,12 +1263,12 @@ p_ceiling(Term t E_ARGS)
if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
MP_INT *big = v.big;
Int sz = 2+mpz_sizeinbase(big,10);
char *s = malloc(sz);
char *s = AllocCodeSpace(sz);
if (s != NULL) {
mpz_get_str(s, 10, BigIntOfTerm(t));
Error(TYPE_ERROR_FLOAT, t, "X is ceiling(%s)", IntegerOfTerm(t));
free(s);
FreeCodeSpace(s);
P = (yamop *)FAILCODE;
RERROR();
} else {
@@ -1321,12 +1321,12 @@ p_round(Term t E_ARGS)
if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
MP_INT *big = BigIntOfTerm(t);
Int sz = 2+mpz_sizeinbase(big,10);
char *s = malloc(sz);
char *s = AllocCodeSpace(sz);
if (s != NULL) {
mpz_get_str(s, 10, BigIntOfTerm(t));
Error(TYPE_ERROR_FLOAT, t, "X is round(%s)", IntegerOfTerm(t));
free(s);
FreeCodeSpace(s);
P = (yamop *)FAILCODE;
RERROR();
} else {
@@ -1359,12 +1359,12 @@ p_round(Term t E_ARGS)
if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
MP_INT *big = v.big;
Int sz = 2+mpz_sizeinbase(big,10);
char *s = malloc(sz);
char *s = AllocCodeSpace(sz);
if (s == NULL) {
mpz_get_str(s, 10, BigIntOfTerm(t));
Error(TYPE_ERROR_FLOAT, t, "X is round(%s)", IntegerOfTerm(t));
free(s);
FreeCodeSpace(s);
P = (yamop *)FAILCODE;
RERROR();
} else {
@@ -1417,12 +1417,12 @@ p_truncate(Term t E_ARGS)
if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
MP_INT *big = BigIntOfTerm(t);
Int sz = 2+mpz_sizeinbase(big,10);
char *s = malloc(sz);
char *s = AllocCodeSpace(sz);
if (s != NULL) {
mpz_get_str(s, 10, BigIntOfTerm(t));
Error(TYPE_ERROR_FLOAT, t, "X is truncate(%s)", IntegerOfTerm(t));
free(s);
FreeCodeSpace(s);
P = (yamop *)FAILCODE;
RERROR();
} else {
@@ -1455,12 +1455,12 @@ p_truncate(Term t E_ARGS)
if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
MP_INT *big = v.big;
Int sz = 2+mpz_sizeinbase(big,10);
char *s = malloc(sz);
char *s = AllocCodeSpace(sz);
if (s == NULL) {
mpz_get_str(s, 10, BigIntOfTerm(t));
Error(TYPE_ERROR_FLOAT, t, "X is truncate(%s)", IntegerOfTerm(t));
free(s);
FreeCodeSpace(s);
P = (yamop *)FAILCODE;
RERROR();
} else {
@@ -1725,12 +1725,12 @@ p_ffracp(Term t E_ARGS)
if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
MP_INT *big = BigIntOfTerm(t);
Int sz = 2+mpz_sizeinbase(big,10);
char *s = malloc(sz);
char *s = AllocCodeSpace(sz);
if (s != NULL) {
mpz_get_str(s, 10, BigIntOfTerm(t));
Error(TYPE_ERROR_FLOAT, t, "X is float_fractional_part(%s)", IntegerOfTerm(t));
free(s);
FreeCodeSpace(s);
P = (yamop *)FAILCODE;
RERROR();
} else {
@@ -1763,12 +1763,12 @@ p_ffracp(Term t E_ARGS)
if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
MP_INT *big = v.big;
Int sz = 2+mpz_sizeinbase(big,10);
char *s = malloc(sz);
char *s = AllocCodeSpace(sz);
if (s == NULL) {
mpz_get_str(s, 10, BigIntOfTerm(t));
Error(TYPE_ERROR_FLOAT, t, "X is float_fractional_part(%s)", IntegerOfTerm(t));
free(s);
FreeCodeSpace(s);
P = (yamop *)FAILCODE;
RERROR();
} else {
@@ -1817,12 +1817,12 @@ p_fintp(Term t E_ARGS)
if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
MP_INT *big = BigIntOfTerm(t);
Int sz = 2+mpz_sizeinbase(big,10);
char *s = malloc(sz);
char *s = AllocCodeSpace(sz);
if (s == NULL) {
mpz_get_str(s, 10, BigIntOfTerm(t));
Error(TYPE_ERROR_FLOAT, t, "X is float_integer_part(%s)", IntegerOfTerm(t));
free(s);
FreeCodeSpace(s);
P = (yamop *)FAILCODE;
RERROR();
} else {
@@ -1855,12 +1855,12 @@ p_fintp(Term t E_ARGS)
if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
MP_INT *big = v.big;
Int sz = 2+mpz_sizeinbase(big,10);
char *s = malloc(sz);
char *s = AllocCodeSpace(sz);
if (s == NULL) {
mpz_get_str(s, 10, BigIntOfTerm(t));
Error(TYPE_ERROR_FLOAT, t, "X is float_integer_part(%s)", IntegerOfTerm(t));
free(s);
FreeCodeSpace(s);
P = (yamop *)FAILCODE;
RERROR();
} else {