equal
deleted
inserted
replaced
50 |
50 |
51 compile |
51 compile |
52 | unit | |
52 | unit | |
53 |
53 |
54 unit := context unit. |
54 unit := context unit. |
55 self assert:(unit isRingObject and:[ unit isCompilationUnit ] ). |
55 self assert:(unit isRingObject and:[ unit isCompilationUnit ]). |
56 unit classes do: [ :class | context environment addClass: class ]. |
56 unit classes do:[:class | |
57 |
57 context environment addClass:class |
|
58 ]. |
58 self runPass:TSemanticAnalyser. |
59 self runPass:TSemanticAnalyser. |
59 self runPass:TTypeseeder. |
|
60 self runPass:TTypechecker. |
60 self runPass:TTypechecker. |
61 self runPass:TCodeGenerator. |
61 self runPass:TLLVMCodeGenerator. |
62 |
62 |
63 "Created: / 29-08-2015 / 14:22:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
63 "Created: / 29-08-2015 / 14:22:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
64 "Modified: / 14-09-2015 / 10:33:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
64 "Modified: / 14-09-2015 / 13:10:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
65 ! |
65 ! |
66 |
66 |
67 runPass: aClass |
67 runPass: aClass |
68 aClass new |
68 aClass new |
69 context: context; |
69 context: context; |