Add test compiling multiple functions calling one another

This tests compilation of relocatable calls.

src/Tinyrossa-Tests/TRCompilationTestCase.class.st

@@ -253,6 +253,53 @@ TRCompilationTestCase >> test03_lconst [
  "
 ]
 
+{ #category : #tests }
+TRCompilationTestCase >> test04_call_resolved [
+ | comp1 bldr1 comp2 bldr2 |
+
+ self target name = 'powerpc64le-linux' ifTrue: [
+ self skip: 'Skipped since calls are not implemented for POWER (see issue #45)'.
+ ].
+
+ " ### CALLEE ### "
+ comp1 := TRCompilation forConfig: compilation config.
+ bldr1 := comp1 builder.
+ bldr1 defineName: 'callee' type: Int32.
+ bldr1 defineParameter: 'x' type: Int32.
+ bldr1 ireturn:
+ { bldr1 iadd:
+ { bldr1 iload: 'x'.
+ bldr1 iconst: 1 } }.
+ comp1 optimize.
+ comp1 compile.
+
+ " ### CALLER ### "
+ comp2 := TRCompilation forConfig: compilation config.
+ bldr2 := comp2 builder.
+ bldr2 defineName: 'caller' type: Int32.
+ bldr2 defineParameter: 'x' type: Int32.
+ bldr2 defineFunction: 'callee' type: Int32.
+ bldr2 ireturn:
+ { bldr2 iadd:
+ { bldr2 iload: 'x'.
+ bldr2 icall: { bldr2 iload: 'x' . 'callee' } } }.
+ comp2 optimize.
+ comp2 compile.
+
+ " ### ######### ### "
+
+ shell inject: comp1.
+ shell inject: comp2.
+
+ self assert: (shell invoke: comp2 functionSymbol with: { 10 } types: { Int32 })
+ equals: 21
+
+ "
+ TRRV64GCompilationTests debug: #test03_lconst_n
+ TRPPC64CompilationTests debug: #test03_lconst_n
+ "
+]
+
 { #category : #'tests - examples' }
 TRCompilationTestCase >> test_example01_meaningOfLife [
  TRCompilationExamples new