hg/jv-llvm-s: LLVMObjectArray.st@fa967c0e1827 (annotated)

12 f98e97fd02ef Package renamed from jv:libllvms to jv:llvm_s Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1	"{ Package: 'jv:llvm_s' }"
1 e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	ExternalBytes subclass:#LLVMObjectArray
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
13 fa967c0e1827 Renamed class categories to begin with LLVM-S Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	9	category:'LLVM-S-Core'
1 e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!LLVMObjectArray class methodsFor:'instance creation'!
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	new: size
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	^ super new: size * ExternalAddress pointerSize
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	"Created: / 07-07-2015 / 21:44:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	!
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	with: type1
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	^ (self new: 1)
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	at: 1 put: type1;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	yourself
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	"Created: / 07-07-2015 / 21:50:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	!
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	with: type1 with: type2
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	^ (self new: 2)
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	at: 1 put: type1;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	at: 2 put: type2;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	yourself
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	"Created: / 07-07-2015 / 21:50:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	!
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	with: type1 with: type2 with: type3
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	^ (self new: 3)
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	at: 1 put: type1;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	at: 2 put: type2;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	at: 3 put: type3;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	yourself
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	"Created: / 07-07-2015 / 21:50:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	!
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	with: type1 with: type2 with: type3 with: type4
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	^ (self new: 4)
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	at: 1 put: type1;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	at: 2 put: type2;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	at: 3 put: type3;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	at: 4 put: type4;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	yourself
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	"Created: / 07-07-2015 / 21:50:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	!
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	with: type1 with: type2 with: type3 with: type4 with: type5
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	^ (self new: 5)
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	at: 1 put: type1;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	at: 2 put: type2;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	at: 3 put: type3;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	at: 4 put: type4;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	at: 5 put: type5;
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	yourself
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	"Created: / 07-07-2015 / 21:50:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	! !
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	!LLVMObjectArray methodsFor:'accessing'!
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	at: index
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	ExternalAddress pointerSize == 8 ifTrue:[
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	^ LLVMType newAddress: (self longLongAt: ((index - 1) * 8) + 1).
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	].
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	ExternalAddress pointerSize == 4 ifTrue:[
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	^ LLVMType newAddress: (self longLongAt: ((index - 1) * 4) + 1).
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	].
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	self error:'Funny pointerSize'
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	"Created: / 07-07-2015 / 21:47:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	!
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	at: index put: type
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	self assert: (type isKindOf: LLVMObject).
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	ExternalAddress pointerSize == 8 ifTrue:[
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	self longLongAt: ((index - 1) * 8) + 1 put: type address.
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	^ type
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	].
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	ExternalAddress pointerSize == 4 ifTrue:[
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	self longAt: ((index - 1) * 4) + 1 put: type address.
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	^ type
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	].
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	self error:'Funny pointerSize'
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	"Created: / 07-07-2015 / 21:49:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	"Modified: / 08-07-2015 / 22:54:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	!
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	size
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	^ size / ExternalAddress pointerSize
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	"Created: / 07-07-2015 / 21:54:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	! !
e3dcb6272f0b Introduced abstract superclasses LLVMObject and LLVMDisposableObject Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sat, 01 Aug 2015 06:21:29 +0100
changeset 13	fa967c0e1827
parent 12	f98e97fd02ef
child 14	c7dea3fcc5a7
permissions	-rw-r--r--