rev 689 - in trunk: pr src

SVN User <[email protected]> Thu, 01 Jul 2004 15:27:16 -0400
Newsgroups gmane.comp.lang.prothon.cvs
Message-ID <[email protected]>
Author: mark
Date: 2004-07-01 15:27:13 -0400 (Thu, 01 Jul 2004)
New Revision: 689

Modified:
   trunk/pr/
   trunk/src/memory_mgr.c
   trunk/src/src.vcproj
Log:
removed test.pr


Property changes on: trunk/pr
___________________________________________________________________
Name: svn:ignore
   + test.pr


Modified: trunk/src/memory_mgr.c
===================================================================
--- trunk/src/memory_mgr.c	2004-07-01 19:08:36 UTC (rev 688)
+++ trunk/src/memory_mgr.c	2004-07-01 19:27:13 UTC (rev 689)
@@ -245,12 +245,9 @@
 						(unsigned long)(uintptr_t)obj);
 					printf("Dumping object details to mm-obj-dump.txt\n");
 					printf("Aborting Prothon\n");
-					dump(ist, "mm-obj-dump.txt", obj);
-					dump(ist, "mm-ist-dump.txt", ist->exception_obj);
+					dump(ist, "!mm-obj-dump.txt", obj);
+					check_exceptions(ist);
 					pr_exit(1);
-					printf("         exception: %s\n",
-						pr2c_strptr(ist, get_attr(ist, ist->exception_obj, SYM(DOC_))));
-					ist->exception_obj = 0;
 				} else if (obj_list) {
 					int i, llen = (int) list_len(ist, obj_list);
 					for(i=0; i < llen; i++) {

Modified: trunk/src/src.vcproj
===================================================================
--- trunk/src/src.vcproj	2004-07-01 19:08:36 UTC (rev 688)
+++ trunk/src/src.vcproj	2004-07-01 19:27:13 UTC (rev 689)
@@ -268,9 +268,6 @@
 				RelativePath="..\status.txt">
 			</File>
 			<File
-				RelativePath="..\pr\test\test.pr">
-			</File>
-			<File
 				RelativePath="thread.h">
 			</File>
 		</Filter>