[Vm-dev] VM Maker: VMMaker.oscog-eem.2173.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 20 17:53:12 UTC 2017


Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2173.mcz

==================== Summary ====================

Name: VMMaker.oscog-eem.2173
Author: eem
Time: 20 March 2017, 10:52:25.684814 am
UUID: 152f8b74-716e-450a-a257-52f34cb36286
Ancestors: VMMaker.oscog-eem.2172

Cogit:
Fix slip in new needsToRegenerateCogitFile

=============== Diff against VMMaker.oscog-eem.2172 ===============

Item was changed:
  ----- Method: VMMaker>>needsToRegenerateCogitFile (in category 'generate sources') -----
  needsToRegenerateCogitFile
  	"Check the timestamp for the relevant classes and then the timestamp for the main source file (e.g. interp.c)
  	 file if it already exists. Answer if the file needs regenerating."
  
  	| cogitClass cogitClasses tStamp files |
  	cogitClasses := (cogitClass := self interpreterClass cogitClass) withAllSuperclasses copyUpThrough: Cogit.
  	cogitClasses addAllLast: (cogitClass ancilliaryClasses: self options).
  	tStamp := cogitClasses inject: 0 into: [:tS :cl| tS max: cl timeStamp].
  
  	"don't translate if the file(s) is newer than my timeStamp"
  	files := (self coreVMDirectory fileNamesMatching: cogitClass activeCompilerClass moduleName, '*.c').
  	files isEmpty ifTrue:
  		[^true].
  	(files allSatisfy:
  		[:fileName|
  		(self coreVMDirectory entryAt: fileName ifAbsent: [nil])
  			ifNil: [false]
  			ifNotNil:
  				[:fstat| | mTime |
  				mTime := fstat modificationTime.
  				mTime isInteger ifFalse: [mTime := mTime asSeconds].
+ 				tStamp < mTime]]) ifTrue:
- 				tStamp > mTime]]) ifTrue:
  		[^self confirm: ('The ', self configurationNameIfAny, cogitClass printString,
  			', ', cogitClass activeCompilerClass, '\classes have not been modified since the ',
  			cogitClass processorSpecificSourceFileName,
  			' source file\was last generated.  Do you still want to regenerate it?') withCRs].
  	^true!



More information about the Vm-dev mailing list