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

 
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 ***/

 
> +# if COGMTVM
> +#      include "cointerp.h"
> +# else
> +#      include "cointerp.h"
> +# endif

You're too hasty Eliot! :)
Yes i am waiting for fix to make sure VM builds fine with new config.
And then i should do the same for unix and mac platforms...

And i want to finish with it till the end of night... or end of next
night.. ookay.. till the end of week :)



--
Best regards,
Igor Stasenko AKA sig.