support resource errors for out of memory conditions.

improve stack dump message.
This commit is contained in:
Vitor Santos Costa
2009-05-17 09:42:56 -07:00
parent d8590f2587
commit ae5bf4d6e7
5 changed files with 62 additions and 67 deletions

View File

@@ -38,10 +38,11 @@
AtomCatch = Yap_FullLookupAtom("$catch");
AtomChangeModule = Yap_FullLookupAtom("$change_module");
AtomChar = Yap_LookupAtom("char");
AtomCharsio = Yap_LookupAtom("charsio");
AtomCharacter = Yap_LookupAtom("character");
AtomCharacterCode = Yap_LookupAtom("character_code");
AtomCharsio = Yap_LookupAtom("charsio");
AtomColomn = Yap_LookupAtom(":");
AtomCodeSpace = Yap_LookupAtom("code_space");
AtomComma = Yap_LookupAtom(",");
AtomCompound = Yap_LookupAtom("compound");
AtomConsistencyError = Yap_LookupAtom("consistency_error");
@@ -260,6 +261,7 @@
AtomTimeOutSpec = Yap_LookupAtom("time_out_spec");
AtomTopLevelGoal = Yap_FullLookupAtom("$top_level_goal");
AtomTopThreadGoal = Yap_FullLookupAtom("$top_thread_goal");
AtomTrail = Yap_LookupAtom("trail");
AtomTrue = Yap_LookupAtom("true");
AtomTty = Yap_LookupAtom("tty");
AtomTtys = Yap_LookupAtom("ttys");
@@ -267,6 +269,7 @@
AtomUndefined = Yap_LookupAtom("undefined");
AtomUndefp = Yap_FullLookupAtom("$undefp");
AtomUnderflow = Yap_LookupAtom("underflow");
AtomUnificationStack = Yap_LookupAtom("unification_stack");
AtomUnsignedByte = Yap_LookupAtom("unsigned_byte");
AtomUnsignedChar = Yap_LookupAtom("unsigned_char");
AtomUser = Yap_LookupAtom("user");

View File

@@ -38,10 +38,11 @@
AtomCatch = AtomAdjust(AtomCatch);
AtomChangeModule = AtomAdjust(AtomChangeModule);
AtomChar = AtomAdjust(AtomChar);
AtomCharsio = AtomAdjust(AtomCharsio);
AtomCharacter = AtomAdjust(AtomCharacter);
AtomCharacterCode = AtomAdjust(AtomCharacterCode);
AtomCharsio = AtomAdjust(AtomCharsio);
AtomColomn = AtomAdjust(AtomColomn);
AtomCodeSpace = AtomAdjust(AtomCodeSpace);
AtomComma = AtomAdjust(AtomComma);
AtomCompound = AtomAdjust(AtomCompound);
AtomConsistencyError = AtomAdjust(AtomConsistencyError);
@@ -262,6 +263,7 @@
AtomTimeOutSpec = AtomAdjust(AtomTimeOutSpec);
AtomTopLevelGoal = AtomAdjust(AtomTopLevelGoal);
AtomTopThreadGoal = AtomAdjust(AtomTopThreadGoal);
AtomTrail = AtomAdjust(AtomTrail);
AtomTrue = AtomAdjust(AtomTrue);
AtomTty = AtomAdjust(AtomTty);
AtomTtys = AtomAdjust(AtomTtys);
@@ -269,6 +271,7 @@
AtomUndefined = AtomAdjust(AtomUndefined);
AtomUndefp = AtomAdjust(AtomUndefp);
AtomUnderflow = AtomAdjust(AtomUnderflow);
AtomUnificationStack = AtomAdjust(AtomUnificationStack);
AtomUnsignedByte = AtomAdjust(AtomUnsignedByte);
AtomUnsignedChar = AtomAdjust(AtomUnsignedChar);
AtomUser = AtomAdjust(AtomUser);

View File

@@ -78,14 +78,16 @@
#define AtomChangeModule Yap_heap_regs->AtomChangeModule_
Atom AtomChar_;
#define AtomChar Yap_heap_regs->AtomChar_
Atom AtomCharsio_;
#define AtomCharsio Yap_heap_regs->AtomCharsio_
Atom AtomCharacter_;
#define AtomCharacter Yap_heap_regs->AtomCharacter_
Atom AtomCharacterCode_;
#define AtomCharacterCode Yap_heap_regs->AtomCharacterCode_
Atom AtomCharsio_;
#define AtomCharsio Yap_heap_regs->AtomCharsio_
Atom AtomColomn_;
#define AtomColomn Yap_heap_regs->AtomColomn_
Atom AtomCodeSpace_;
#define AtomCodeSpace Yap_heap_regs->AtomCodeSpace_
Atom AtomComma_;
#define AtomComma Yap_heap_regs->AtomComma_
Atom AtomCompound_;
@@ -526,6 +528,8 @@
#define AtomTopLevelGoal Yap_heap_regs->AtomTopLevelGoal_
Atom AtomTopThreadGoal_;
#define AtomTopThreadGoal Yap_heap_regs->AtomTopThreadGoal_
Atom AtomTrail_;
#define AtomTrail Yap_heap_regs->AtomTrail_
Atom AtomTrue_;
#define AtomTrue Yap_heap_regs->AtomTrue_
Atom AtomTty_;
@@ -540,6 +544,8 @@
#define AtomUndefp Yap_heap_regs->AtomUndefp_
Atom AtomUnderflow_;
#define AtomUnderflow Yap_heap_regs->AtomUnderflow_
Atom AtomUnificationStack_;
#define AtomUnificationStack Yap_heap_regs->AtomUnificationStack_
Atom AtomUnsignedByte_;
#define AtomUnsignedByte Yap_heap_regs->AtomUnsignedByte_
Atom AtomUnsignedChar_;