[Vm-dev] [commit] r2366 - Correct include of cointerp.h in sqWin32Intel.c.

commits at squeakvm.org commits at squeakvm.org
Fri Mar 18 00:44:14 UTC 2011


Author: eliot
Date: 2011-03-17 17:44:14 -0700 (Thu, 17 Mar 2011)
New Revision: 2366

Modified:
   branches/Cog/image/VMMaker-Squeak4.1.changes
   branches/Cog/image/VMMaker-Squeak4.1.image
   branches/Cog/platforms/win32/vm/sqWin32Intel.c
Log:
Correct include of cointerp.h in sqWin32Intel.c.
Add some useful helper methods to the image (browseAllSelect:localToPackage:
and file out entire list in MessageSet.


Modified: branches/Cog/image/VMMaker-Squeak4.1.changes
===================================================================
--- branches/Cog/image/VMMaker-Squeak4.1.changes	2011-03-16 18:52:27 UTC (rev 2365)
+++ branches/Cog/image/VMMaker-Squeak4.1.changes	2011-03-18 00:44:14 UTC (rev 2366)
@@ -176647,4 +176647,37 @@
 
 "VMMaker"!
 
-----QUIT----{16 March 2011 . 11:45:16 am} VMMaker-Squeak4.1.image priorSource: 6510520!
\ No newline at end of file
+----QUIT----{16 March 2011 . 11:45:16 am} VMMaker-Squeak4.1.image priorSource: 6510520!
+
+----STARTUP----{16 March 2011 . 12:37:33 pm} as /Users/eliot/Cog/oscog/Cog.squeakvm.org/image/VMMaker-Squeak4.1.image!
+
+!SystemNavigation methodsFor: 'browse' stamp: 'eem 9/10/2010 16:21'!
+browseAllSelect: aBlock localToPackage: packageNameOrInfo
+	"Create and schedule a message browser on each method in the given
+	 package for which the evaluation of aBlock with the metnod answers true."
+	^self
+		browseMessageList: (self allMethodsSelect: aBlock localToPackage: packageNameOrInfo) asSortedCollection
+		name: 'selected messages local to package ', (self packageInfoFor: packageNameOrInfo) name! !
+!MessageSet methodsFor: 'message functions' stamp: 'eem 6/12/2008 09:58'!
+fileOutMessage
+	"Put a description of the selected method on a file, or all methods if none selected."
+
+	| fileName |
+	self selectedMessageName ifNotNil:
+		[^super fileOutMessage].
+	fileName := UIManager default request: 'File out on which file?' initialAnswer: 'methods'.
+	Cursor write showWhile:
+		[| internalStream |
+		internalStream := WriteStream on: (String new: 1000).
+		internalStream header; timeStamp.
+		messageList do:
+			[:methodRef|
+			methodRef actualClass
+				printMethodChunk: methodRef methodSymbol
+				withPreamble: true
+				on: internalStream
+				moveSource: false
+				toFile: nil].
+		FileStream writeSourceCodeFrom: internalStream baseName: fileName isSt: true useHtml: false]! !
+
+----QUIT----{16 March 2011 . 12:38:02 pm} VMMaker-Squeak4.1.image priorSource: 7280958!
\ No newline at end of file

Modified: branches/Cog/image/VMMaker-Squeak4.1.image
===================================================================
(Binary files differ)

Modified: branches/Cog/platforms/win32/vm/sqWin32Intel.c
===================================================================
--- branches/Cog/platforms/win32/vm/sqWin32Intel.c	2011-03-16 18:52:27 UTC (rev 2365)
+++ branches/Cog/platforms/win32/vm/sqWin32Intel.c	2011-03-18 00:44:14 UTC (rev 2366)
@@ -23,7 +23,11 @@
 #include "sqWin32Backtrace.h"
 #if COGVM
 # include "cogmethod.h"
-# include "cointerp.h"
+# if COGMTVM
+#	include "cointerp.h"
+# else
+#	include "cointerp.h"
+# endif
 #endif
 
 /*** Crash debug -- Imported from Virtual Machine ***/



More information about the Vm-dev mailing list