File: RePlugin3-Fixes2.1.cs

package info (click to toggle)
squeak-vm 1%3A4.0.3.2202-2
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 15,200 kB
  • ctags: 15,841
  • sloc: ansic: 73,040; cs: 11,191; sh: 10,238; objc: 5,494; asm: 1,533; makefile: 476; pascal: 372; awk: 206; xml: 32
file content (20 lines) | stat: -rw-r--r-- 590 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
'From Squeak3.2gamma of 15 January 2002 [latest update: #4881] on 21 August 2002 at 10:52:51 pm'!
"Change Set:		RePlugin3-Fixes2
Date:			21 August 2002
Author:			ian.piumarta@inria.fr

Adds a cast to one method in RePlugin to avoid a compiler warning."!


!RePlugin methodsFor: 'rcvr linkage' stamp: 'ikp 8/21/2002 22:40'!
rcvrExtraPtr

	|extraObj|
	self inline: true.
	extraObj _ interpreterProxy fetchPointer: 3 ofObject: rcvr.
	(extraObj = (interpreterProxy nilObject))
		ifTrue: [^ self cCode: '(int) NULL'].
	^self 
		cCoerce:(interpreterProxy arrayValueOf: extraObj)
		to: 'int'.! !