rev 690 - trunk/src

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

Modified:
   trunk/src/builtins-file.c
   trunk/src/main.c
   trunk/src/src.vcproj
Log:
working on File.delete

Modified: trunk/src/builtins-file.c
===================================================================
--- trunk/src/builtins-file.c	2004-07-01 19:27:13 UTC (rev 689)
+++ trunk/src/builtins-file.c	2004-07-01 19:49:27 UTC (rev 690)
@@ -592,12 +592,6 @@
 	return OBJ(NONE);
 }
 
-DEF(TempDir, final_, NULL) {
-	if (self->data.ptr)
-		call_func0(ist, self, sym(ist, "delete"));
-	return OBJ(NONE);
-}
-
 DEF(TempDir, str_, NULL) {
 	char buf[300], *path;
 	BIN_STR_CHK(TempDir);
@@ -607,6 +601,13 @@
 	return NEW_STRING(buf);
 }
 
+DEF(TempDir, final_, NULL) {
+	if (self->data.ptr)
+		call_func0(ist, self, sym(ist, "delete"));
+	return OBJ(NONE);
+}
+
+
 //*************************** MODULE File *************************************
 
 MODULE_START(File)
Modified: trunk/src/main.c
===================================================================
--- trunk/src/main.c	2004-07-01 19:27:13 UTC (rev 689)
+++ trunk/src/main.c	2004-07-01 19:49:27 UTC (rev 690)
@@ -70,7 +70,7 @@
 #include <apr_thread_proc.h>
 #include <apr_portable.h>
 
-#define MEMMGR_TIMEOUT	(10000/PAUSE_MS)  /* 200 ms */
+#define MEMMGR_TIMEOUT	(200/PAUSE_MS)  /* 200 ms */
 
 #ifdef TRACE_PARSER
 extern int yydebug;

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