[squeak-dev] The Trunk: System-eem.995.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Jan 12 17:15:51 UTC 2018


Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.995.mcz

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

Name: System-eem.995
Author: eem
Time: 12 January 2018, 9:15:45.697786 am
UUID: cef00121-56e2-4aed-91bc-ac09f60f8e95
Ancestors: System-akg.994

Revise the postscript so that the new PrimitiveError instance replaces the obsolete PrimitiveOSError instance.

=============== Diff against System-akg.994 ===============

Item was changed:
  (PackageInfo named: 'System') postscript: '(Smalltalk specialSelectorNames includes: #~~) ifFalse:
  	["Re-create the specialObjectsArray to let the jit optimize #~~. Also add the new primitive error codes if they are not there yet."
  	| senders |
  	senders := #(#~~ #blockCopy:) gather: [ :selector |
  		"Recompile senders blockCopy: too, just in case."
  		SystemNavigation default allCallsOn: selector ].
  	Smalltalk recreateSpecialObjectsArray.
  	VariableNode initialize.
  	Decompiler initialize.
  	senders
  		 do: [ :methodReference |
  			| class |
  			class := methodReference actualClass.
  			class recompile: methodReference selector from: class ]
  		displayingProgress: ''Recompiling...''].
+ "If PrimitiveError is not in the primitiveErrorTable, or if an instance
+  of a different class is there, then add it."
+ (Smalltalk primitiveErrorTable size < 21
+ or: [(Smalltalk primitiveErrorTable at: 21) class ~~ PrimitiveError]) ifTrue:
- "If PrimitiveOSError is not in the primitiveErrorTable, add it."
- Smalltalk primitiveErrorTable size < 21 ifTrue:
  	[Smalltalk recreateSpecialObjectsArray]'!



More information about the Squeak-dev mailing list