hg/jv-llvm-s: LLVMFunction.st@c7dea3fcc5a7 (annotated)

14 c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	1	"
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	2	Copyright (C) 2015-now Jan Vrany
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	3
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	4	This code is not an open-source (yet). You may use this code
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	5	for your own experiments and projects, given that:
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	6
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	7	* all modification to the code will be sent to the
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	8	original author for inclusion in future releases
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	9	* this is not used in any commercial software
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	10
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	11	This license is provisional and may (will) change in
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	12	a future.
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	13	"
12 f98e97fd02ef Package renamed from jv:libllvms to jv:llvm_s Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	14	"{ Package: 'jv:llvm_s' }"
4 d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	"{ NameSpace: Smalltalk }"
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	LLVMValue subclass:#LLVMFunction
5 3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	19	instanceVariableNames:'numArgs'
4 d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	classVariableNames:''
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	poolDictionaries:''
13 fa967c0e1827 Renamed class categories to begin with LLVM-S Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	22	category:'LLVM-S-Core'
4 d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	!
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
14 c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	25	!LLVMFunction class methodsFor:'documentation'!
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	26
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	27	copyright
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	28	"
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	29	Copyright (C) 2015-now Jan Vrany
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	30
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	31	This code is not an open-source (yet). You may use this code
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	32	for your own experiments and projects, given that:
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	33
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	34	* all modification to the code will be sent to the
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	35	original author for inclusion in future releases
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	36	* this is not used in any commercial software
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	37
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	38	This license is provisional and may (will) change in
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	39	a future.
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	40	"
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	41	! !
c7dea3fcc5a7 Added short README, license.txt and updated copyright information Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	42
4 d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	!LLVMFunction methodsFor:'accessing'!
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	numArgs
5 3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	46	\| last current \|
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	47
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	48	numArgs isNil ifTrue:[
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	49	numArgs := 0.
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	50	"/ current := LLVM GetFirstParam: self.
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	51	"/ last := LLVM GetLastParam: self.
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	52	"/ [ current ~= last ] whileTrue:[
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	53	"/ numArgs := numArgs + 1.
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	54	"/ current := LLVM GetNextFunction: current.
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	55	"/ self halt.
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	56	"/ ].
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	57	].
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	58	^ numArgs
4 d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	"Created: / 11-07-2015 / 09:42:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5 3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	61	"Modified: / 11-07-2015 / 11:23:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4 d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	!
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	parameterAt: index
5 3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	65	^ LLVM GetParam: self _: index - 1.
4 d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	"Created: / 07-07-2015 / 22:49:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5 3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	68	"Modified: / 11-07-2015 / 10:13:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4 d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	! !
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	!LLVMFunction methodsFor:'functions-adding'!
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	addBasicBlockNamed: name
5 3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	74	\| bb \|
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	75
4 d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	self assert: name isSingleByteString.
5 3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	77	bb := LLVM AppendBasicBlock: self _: name.
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	78	bb module: self.
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	79	^ bb
4 d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	"Created: / 08-07-2015 / 23:09:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5 3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	82	"Modified: / 11-07-2015 / 12:55:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4 d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	! !
d33c64726c86 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84
5 3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	85	!LLVMFunction methodsFor:'initialization'!
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	86
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	87	initialize
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	88	super initialize.
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	89	self initializeArgumentsNames
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	90
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	91	"Created: / 11-07-2015 / 10:13:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	92	!
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	93
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	94	initializeArgumentsNames
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	95	1 to: self numArgs do:[:numArg \|
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	96	(self parameterAt: numArg) name: 'arg', numArg printString
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	97	].
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	98
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	99	"Created: / 11-07-2015 / 10:13:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	100	! !
3ac0c9381634 Temporary commit Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	101

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sat, 01 Aug 2015 07:07:46 +0100
changeset 14	c7dea3fcc5a7
parent 13	fa967c0e1827
child 22	789a35bd30ac
permissions	-rw-r--r--