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

AtomDouble was not defined correctly.

Browse Source
This commit is contained in:
Vítor Santos Costa
2010-02-19 14:16:57 +00:00
parent 1b66eba611
commit dddad72a0e
4 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
C/parser.c
View File

@@ -499,7 +499,7 @@ ParseTerm(int prio, JMPBUFF *FailBuff)
if (func == NULL) { if (func == NULL) {
Yap_ErrorMessage = "Heap Overflow"; Yap_ErrorMessage = "Heap Overflow";
FAIL; FAIL;
} }
t = ParseTerm(oprprio, FailBuff); t = ParseTerm(oprprio, FailBuff);
t = Yap_MkApplTerm(func, 1, &t); t = Yap_MkApplTerm(func, 1, &t);
/* check for possible overflow against local stack */ /* check for possible overflow against local stack */

1
H/iatoms.h
View File

@@ -63,6 +63,7 @@
AtomDBTerm = Yap_LookupAtom("db_term"); AtomDBTerm = Yap_LookupAtom("db_term");
AtomDBref = Yap_FullLookupAtom("$dbref"); AtomDBref = Yap_FullLookupAtom("$dbref");
AtomDInteger = Yap_FullLookupAtom("$integer"); AtomDInteger = Yap_FullLookupAtom("$integer");
AtomDOUBLE = Yap_FullLookupAtom("Double");
AtomDec10 = Yap_LookupAtom("dec10"); AtomDec10 = Yap_LookupAtom("dec10");
AtomDefault = Yap_LookupAtom("default"); AtomDefault = Yap_LookupAtom("default");
AtomDevNull = Yap_LookupAtom("/dev/null"); AtomDevNull = Yap_LookupAtom("/dev/null");

2
misc/ATOMS
View File

@@ -72,7 +72,7 @@ A DBReference N "db_reference"
A DBTerm N "db_term" A DBTerm N "db_term"
A DBref F "$dbref" A DBref F "$dbref"
A DInteger F "$integer" A DInteger F "$integer"
A DOUBLE A "Double" A DOUBLE F "Double"
A Dec10 N "dec10" A Dec10 N "dec10"
A Default N "default" A Default N "default"
A DevNull N "/dev/null" A DevNull N "/dev/null"

2
packages/jpl

Submodule packages/jpl updated: 9f80255cce...d9614e99dc