Add simple druid jit push closure

smalltalksrc/VMMaker/SimpleDruidJIT.class.st

@@ -461,7 +461,7 @@ SimpleDruidJIT class >> bytecodeTable [
 		  { 2. 246. 246. #unknownBytecode }.
 		  { 2. 247. 247. #unknownBytecode }.
 		  { 3. 248. 248. #gen_CallPrimitiveBytecode }.
-		  { 3. 249. 249. #unknownBytecode }.
+		  { 3. 249. 249. #gen_ExtPushFullClosureBytecode }.
 		  { 3. 250. 250. #unknownBytecode }.
 		  { 3. 251. 251. #unknownBytecode }.
 		  { 3. 252. 252. #unknownBytecode }.
@@ -2047,6 +2047,56 @@ SimpleDruidJIT >> gen_ExtPushCharacterBytecode [
 	^ 0
 ]
 
+{ #category : #generated }
+SimpleDruidJIT >> gen_ExtPushFullClosureBytecode [
+	"AutoGenerated by Druid"
+
+	| r42 r2 currentBlock b10 |
+	r2 := extA.
+	extA := 0.
+	self
+		genCreateFullClosureInIndex: (byte1 + (r2 << 8))
+		numCopied: (byte2 bitAnd: 63)
+		ignoreContext: (byte2 anyMask: 64)
+		contextNumArgs: methodOrBlockNumArgs
+		large: (coInterpreter methodNeedsLargeContext: methodObj)
+		inBlock: inBlock
+		intoRegister: TempReg.
+	r42 := 1.
+	b10 := self Label.
+	r42 := r42.
+	[ r42<=(byte2 bitAnd: 63) ] whileTrue: [
+		| r42 |
+		self MoveMw: 0 r: SPReg R: ClassReg.
+		self PopR: SendNumArgsReg.
+		self MoveR: TempReg R: SendNumArgsReg.
+		self
+			AddCq:
+			(((FullClosureFirstCopiedValueIndex + (byte2 bitAnd: 63)) - r42) << 3)
+			R: SendNumArgsReg.
+		self MoveR: ClassReg M64: 8 r: SendNumArgsReg.
+		r42 := r42 + 1 ].
+	(byte2 anyMask: 128)=true ifTrue: [
+		self MoveMw: 0 r: SPReg R: SendNumArgsReg.
+		self PopR: ClassReg.
+		self MoveR: SendNumArgsReg R: ClassReg.
+		self
+			MoveR: ClassReg
+			M64: FullClosureReceiverIndex << 3 + 8
+			r: TempReg.
+		self PushR: TempReg.
+		^ 0 ].
+	needsFrame ifTrue:
+		[self putSelfInReceiverResultReg]..
+	self MoveR: ReceiverResultReg R: ClassReg.
+	self
+		MoveR: ClassReg
+		M64: FullClosureReceiverIndex << 3 + 8
+		r: TempReg.
+	self PushR: TempReg.
+	^ 0
+]
+
 { #category : #generated }
 SimpleDruidJIT >> gen_ExtPushIntegerBytecode [
 	"AutoGenerated by Druid"