ScriptableDebugger/src/BaselineOfSindarin/BaselineOfSindarin.class.st at a35277f84a36c199bebbf92a6a368acf64a904e1 · StevenCostiou/ScriptableDebugger · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Class {
	#name : 'BaselineOfSindarin',
	#superclass : 'BaselineOf',
	#category : 'BaselineOfSindarin',
	#package : 'BaselineOfSindarin'
}

{ #category : 'baselines' }
BaselineOfSindarin >> baseline: spec [

	<baseline>
	spec for: #common do: [
		spec postLoadDoIt: #postloadWithLoader:withPackageSpec:.

		spec
			package: 'Sindarin';
			package: 'Sindarin-Tests';
			package: 'Sindarin-Experiments' ].

	spec
		group: 'default' with: #( 'Sindarin' 'Sindarin-Tests' );
		group: 'experiments' with: #( 'default' 'Sindarin-Experiments' )
]

{ #category : 'baselines' }
BaselineOfSindarin >> postloadWithLoader: loader withPackageSpec: spec [

	InstructionStream compiledMethodAt: #willJumpIfFalse ifAbsent: [
		Smalltalk compiler
			source: 'willJumpIfFalse
	"Answer whether the next bytecode is a jump-if-false."

	^ self method encoderClass isBranchIfFalseAt: pc in: self method';
			class: InstructionStream;
			compile;
			install ]
]