error handling (Miguel Areias)

2017-03-23 12:28:46 +00:00
parent 6741d961b3
commit 4180fd9737
9 changed files with 85 additions and 78 deletions
--- a/C/parser.c
+++ b/C/parser.c
@@ -1025,7 +1025,9 @@ static Term ParseTerm(int prio, JMPBUFF *FailBuff, encoding_t enc,

 Term Yap_Parse(UInt prio, encoding_t enc, Term cmod) {
  CACHE_REGS
-  Volatile Term t;
+    // ensure that if we throw an exception
+    // t will be 0.
+  Volatile Term t = 0;
  JMPBUFF FailBuff;
  yhandle_t sls = Yap_StartSlots();
  LOCAL_toktide = LOCAL_tokptr;