[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