[Vm-dev] VM Maker: VMMaker.oscog-eem.180.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Jun 28 16:07:00 UTC 2012
Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.180.mcz
==================== Summary ====================
Name: VMMaker.oscog-eem.180
Author: eem
Time: 28 June 2012, 9:04:19.784 am
UUID: d742fc84-467e-47f9-be9e-4ba2dfa74d88
Ancestors: VMMaker.oscog-eem.179
Use workaround for broken Squeak4.3 progress exception when
generating VM source.
=============== Diff against VMMaker.oscog-eem.179 ===============
Item was changed:
----- Method: VMMaker>>generateCogitFile (in category 'generate sources') -----
generateCogitFile
"Translate the Smalltalk description of the virtual machine into C. If 'self doInlining' is true, small method bodies are inlined to reduce procedure call overhead. On the PPC, this results in a factor of three speedup with only 30% increase in code size. Subclasses can use specialised versions of CCodeGenerator and interpreterClass."
| cg cogitClass |
self interpreterClass needsCogit ifFalse: [^nil].
cg := [self buildCodeGeneratorForCogit]
on: Notification
do: [:ex|
ex tag == #getVMMaker
ifTrue: [ex resume: self]
+ ifFalse: [(ex respondsTo: #rearmHandlerDuring:)
+ ifTrue: [ex rearmHandlerDuring: [ex pass]]
+ ifFalse: [ex pass]]].
- ifFalse: [ex pass]].
self needsToRegenerateCogitFile ifFalse: [^nil].
cogitClass := self cogitClass.
cg removeUnneededBuiltins.
cg vmClass preGenerationHook: cg.
cg storeCodeOnFile: (self sourceFilePathFor: cogitClass sourceFileName) doInlining: cogitClass doInlining.
cg vmClass additionalHeadersDo:
[:headerName :headerContents| | filePath |
filePath := self coreVMDirectory fullNameFor: headerName.
(cg needToGenerateHeader: headerName file: filePath contents: headerContents) ifTrue:
[cg storeHeaderOnFile: filePath contents: headerContents]].
cogitClass apiExportHeaderName ifNotNil:
[cg storeAPIExportHeader: cogitClass apiExportHeaderName
OnFile: (self sourceFilePathFor: cogitClass apiExportHeaderName)]!
Item was changed:
----- Method: VMMaker>>generateInterpreterFile (in category 'generate sources') -----
generateInterpreterFile
"Translate the Smalltalk description of the virtual machine into C. If 'self doInlining' is true, small method bodies are inlined to reduce procedure call overhead. On the PPC, this results in a factor of three speedup with only 30% increase in code size. Subclasses can use specialised versions of CCodeGenerator and interpreterClass."
| cg vmHeaderContents |
cg := [self buildCodeGeneratorForInterpreter]
on: Notification
do: [:ex|
ex tag == #getVMMaker
ifTrue: [ex resume: self]
+ ifFalse: [(ex respondsTo: #rearmHandlerDuring:)
+ ifTrue: [ex rearmHandlerDuring: [ex pass]]
+ ifFalse: [ex pass]]].
- ifFalse: [ex pass]].
self needsToRegenerateInterpreterFile ifFalse: [^nil].
cg removeUnneededBuiltins.
self interpreterClass preGenerationHook: cg.
vmHeaderContents := cg vmHeaderContentsWithBytesPerWord: self bytesPerWord.
(cg needToGenerateHeader: self interpreterHeaderName file: self interpreterHeaderPath contents: vmHeaderContents) ifTrue:
[cg storeHeaderOnFile: self interpreterHeaderPath contents: vmHeaderContents].
cg storeCodeOnFile: (self sourceFilePathFor: self interpreterClass sourceFileName) doInlining: self doInlining.
self interpreterClass additionalHeadersDo:
[:headerName :headerContents| | filePath |
filePath := self coreVMDirectory fullNameFor: headerName.
(cg needToGenerateHeader: headerName file: filePath contents: headerContents) ifTrue:
[cg storeHeaderOnFile: filePath contents: headerContents]].
self interpreterClass apiExportHeaderName ifNotNil:
[cg storeAPIExportHeader: self interpreterClass apiExportHeaderName
OnFile: (self sourceFilePathFor: self interpreterClass apiExportHeaderName)].
(Gnuifier on: self coreVMDirectory)
interpreterFilename: self interpreterFilename;
gnuify.!
More information about the Vm-dev
mailing list