hg/jv-llvm-s: LLVMExamples.st@540c1c31a33d (annotated)

8 890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:libllvms' }"
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	Object subclass:#LLVMExamples
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'LLVM-Core-Examples'
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!LLVMExamples class methodsFor:'examples'!
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	example1_sum
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	\| module functionType function functionEntry asm jit externalFunction \|
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	module := LLVMModule newWithName: thisContext selector.
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	functionType := LLVMType function: { LLVMType intptr . LLVMType intptr } returning: LLVMType intptr.
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	function := module addFunctionNamed: 'sum' type: functionType.
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	functionEntry := function addBasicBlockNamed: 'entry'.
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	asm := LLVMBuilder new.
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	asm positionAtEnd: functionEntry.
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	asm ret: (asm add: (function parameterAt: 1) and: (function parameterAt: 2)).
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	jit := LLVMExecutionEngine newForModule: module.
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	externalFunction := jit externalOfFunction: function.
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	^ externalFunction callWith: 3 with: 4.
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	"
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	LLVMExamples example1_sum
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	"
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	"Created: / 17-07-2015 / 11:47:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9 540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	37	!
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	38
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	39	example2_function_call
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	40	\| module calleeFunctionType calleeFunction calleFunctionEntry
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	41	callerFunctionType callerFunction callerFunctionEntry
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	42	asm jit externalFunction \|
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	43
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	44	module := LLVMModule newWithName: thisContext selector.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	45
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	46	calleeFunctionType := LLVMType function: { LLVMType intptr . LLVMType intptr } returning: LLVMType intptr.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	47	calleeFunction := module addFunctionNamed: 'sum' type: calleeFunctionType.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	48
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	49	calleFunctionEntry := calleeFunction addBasicBlockNamed: 'entry'.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	50	asm := LLVMBuilder new.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	51	asm positionAtEnd: calleFunctionEntry.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	52	asm ret: (asm add: (calleeFunction parameterAt: 1) and: (calleeFunction parameterAt: 2)).
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	53
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	54	callerFunctionType := LLVMType function: { LLVMType intptr . LLVMType intptr } returning: LLVMType intptr.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	55	callerFunction := module addFunctionNamed: 'sum_caller' type: callerFunctionType.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	56
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	57	callerFunctionEntry := callerFunction addBasicBlockNamed: 'entry'.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	58	asm := LLVMBuilder new.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	59	asm positionAtEnd: callerFunctionEntry.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	60	asm ret: (asm call: calleeFunction with: (callerFunction parameterAt: 1) with: (callerFunction parameterAt: 2)).
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	61
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	62
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	63	jit := LLVMExecutionEngine newForModule: module.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	64	externalFunction := jit externalOfFunction: callerFunction.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	65
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	66	^ externalFunction callWith: 3 with: 4.
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	67
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	68	"
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	69	LLVMExamples example2_function_call
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	70	"
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	71
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	72	"Created: / 17-07-2015 / 12:45:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
540c1c31a33d Added basic support for calling functions. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 8 diff changeset	73	"Modified: / 17-07-2015 / 17:18:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8 890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	! !
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	!LLVMExamples class methodsFor:'documentation'!
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	version_HG
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	^ '$Changeset: <not expanded> $'
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	! !
890eb7591eca Added class LLVMExamples Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 17 Jul 2015 17:20:04 +0100
changeset 9	540c1c31a33d
parent 8	890eb7591eca
child 10	8998c2d4e53a
permissions	-rw-r--r--