The Trunk: System-eem.995.mcz

Previous Topic Next Topic
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

The Trunk: System-eem.995.mcz

Eliot Miranda uploaded a new version of System to project The Trunk:

==================== 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.
  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]'!