Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
2
2022fall-Compiler_CMinus
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Metrics
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
李晓奇
2022fall-Compiler_CMinus
Commits
1851e507
Commit
1851e507
authored
2 years ago
by
李晓奇
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
20 points, cry to death...
parent
d7dae728
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
96 additions
and
48 deletions
+96
-48
include/cminusf_builder.hpp
include/cminusf_builder.hpp
+1
-1
src/cminusfc/cminusf_builder.cpp
src/cminusfc/cminusf_builder.cpp
+89
-44
src/lightir/BasicBlock.cpp
src/lightir/BasicBlock.cpp
+6
-3
No files found.
include/cminusf_builder.hpp
View file @
1851e507
...
...
@@ -96,7 +96,7 @@ class CminusfBuilder : public ASTVisitor {
virtual
void
visit
(
ASTTerm
&
)
override
final
;
virtual
void
visit
(
ASTCall
&
)
override
final
;
bool
type_cast
(
Value
*&
,
Value
*&
,
std
::
string
=
"computation"
);
void
type_cast
(
Value
*&
,
Value
*&
,
std
::
string
=
"computation"
);
std
::
unique_ptr
<
IRBuilder
>
builder
;
Scope
scope
;
...
...
This diff is collapsed.
Click to expand it.
src/cminusfc/cminusf_builder.cpp
View file @
1851e507
...
...
@@ -44,18 +44,17 @@ void error_exit(std::string s) {
// This function makes sure that
// 1. 2 values have same type
// 2. type is either int or float
// 3. return true if there is float
bool
CminusfBuilder
::
type_cast
(
Value
*&
lvalue
,
Value
*&
rvalue
,
std
::
string
util
)
{
if
(
not
Type
::
is_eq_type
(
lvalue
->
get_type
(),
rvalue
->
get_type
()))
{
if
(
Type
::
is_eq_type
(
lvalue
->
get_type
(),
INT32_T
)
and
Type
::
is_eq_type
(
rvalue
->
get_type
(),
FLOAT_T
))
lvalue
=
builder
->
create_sitofp
(
lvalue
,
FLOAT_T
);
else
if
(
Type
::
is_eq_type
(
rvalue
->
get_type
(),
INT32_T
)
and
Type
::
is_eq_type
(
lvalue
->
get_type
(),
FLOAT_T
))
rvalue
=
builder
->
create_sitofp
(
rvalue
,
FLOAT_T
);
void
CminusfBuilder
::
type_cast
(
Value
*&
lvalue
,
Value
*&
rvalue
,
std
::
string
util
)
{
assert
(
not
Type
::
is_eq_type
(
lvalue
->
get_type
(),
rvalue
->
get_type
()));
// only support cast between int and float
if
(
Type
::
is_eq_type
(
lvalue
->
get_type
(),
INT32_T
)
and
Type
::
is_eq_type
(
rvalue
->
get_type
(),
FLOAT_T
))
lvalue
=
builder
->
create_sitofp
(
lvalue
,
FLOAT_T
);
else
if
(
Type
::
is_eq_type
(
lvalue
->
get_type
(),
FLOAT_T
)
and
Type
::
is_eq_type
(
rvalue
->
get_type
(),
INT32_T
))
rvalue
=
builder
->
create_sitofp
(
rvalue
,
FLOAT_T
);
else
{
// but we only support computing between int and float
error_exit
(
"not supported type cast for "
+
util
);
}
// now 2 value is the same type, but we only support computing between int and float
if
(
not
Type
::
is_eq_type
(
lvalue
->
get_type
(),
INT32_T
)
or
not
Type
::
is_eq_type
(
lvalue
->
get_type
(),
FLOAT_T
))
error_exit
(
"not supported cross-type "
+
util
);
return
Type
::
is_eq_type
(
lvalue
->
get_type
(),
FLOAT_T
);
}
void
CminusfBuilder
::
visit
(
ASTProgram
&
node
)
{
...
...
@@ -219,11 +218,16 @@ void CminusfBuilder::visit(ASTParam &node) {
}
}
// Done?
void
CminusfBuilder
::
visit
(
ASTCompoundStmt
&
node
)
{
//!TODO: This function is not complete.
// You may need to add some code here
// to deal with complex statements.
/* auto bb = BasicBlock::create(builder->get_module(), "", cur_fun);
* builder->create_br(bb);
* builder->set_insert_point(bb); */
scope
.
enter
();
for
(
auto
&
decl
:
node
.
local_declarations
)
{
decl
->
accept
(
*
this
);
}
...
...
@@ -233,26 +237,60 @@ void CminusfBuilder::visit(ASTCompoundStmt &node) {
if
(
builder
->
get_insert_block
()
->
get_terminator
()
!=
nullptr
)
break
;
}
scope
.
exit
();
}
// Done
void
CminusfBuilder
::
visit
(
ASTExpressionStmt
&
node
)
{
//!TODO: This function is empty now.
// Add some code here.
if
(
node
.
expression
)
node
.
expression
->
accept
(
*
this
);
}
// Done
void
CminusfBuilder
::
visit
(
ASTSelectionStmt
&
node
)
{
//!TODO: This function is empty now.
// Add some code here.
scope
.
enter
();
node
.
expression
->
accept
(
*
this
);
auto
cond
=
cur_value
;
auto
TBB
=
BasicBlock
::
create
(
builder
->
get_module
(),
"trueCase"
,
cur_fun
);
auto
FBB
=
BasicBlock
::
create
(
builder
->
get_module
(),
"falseCase"
,
cur_fun
);
builder
->
create_cond_br
(
cond
,
TBB
,
FBB
);
builder
->
set_insert_point
(
TBB
);
node
.
if_statement
->
accept
(
*
this
);
builder
->
set_insert_point
(
FBB
);
if
(
node
.
else_statement
)
node
.
else_statement
->
accept
(
*
this
);
scope
.
exit
();
}
// Done
void
CminusfBuilder
::
visit
(
ASTIterationStmt
&
node
)
{
//!TODO: This function is empty now.
// Add some code here.
scope
.
enter
();
auto
HEAD
=
BasicBlock
::
create
(
builder
->
get_module
(),
"loop_head"
,
cur_fun
);
auto
BODY
=
BasicBlock
::
create
(
builder
->
get_module
(),
"loop_body"
,
cur_fun
);
auto
END
=
BasicBlock
::
create
(
builder
->
get_module
(),
"end"
,
cur_fun
);
builder
->
create_br
(
HEAD
);
builder
->
set_insert_point
(
HEAD
);
node
.
expression
->
accept
(
*
this
);
auto
cond
=
cur_value
;
builder
->
create_cond_br
(
cond
,
BODY
,
END
);
builder
->
set_insert_point
(
BODY
);
node
.
statement
->
accept
(
*
this
);
builder
->
create_br
(
HEAD
);
builder
->
set_insert_point
(
END
);
scope
.
exit
();
}
// Jobs:
// - call accept()
// - gen return code
// Done
void
CminusfBuilder
::
visit
(
ASTReturnStmt
&
node
)
{
if
(
node
.
expression
==
nullptr
)
{
builder
->
create_void_ret
();
...
...
@@ -261,10 +299,22 @@ void CminusfBuilder::visit(ASTReturnStmt &node) {
// You need to solve other return cases (e.g. return an integer).
//
node
.
expression
->
accept
(
*
this
);
// type cast
// return type can only be int, float or void
if
(
not
Type
::
is_eq_type
(
cur_fun
->
get_return_type
(),
cur_value
->
get_type
()))
{
if
(
not
cur_value
->
get_type
()
->
is_integer_type
()
or
not
cur_value
->
get_type
()
->
is_float_type
())
error_exit
(
"unsupported return type"
);
if
(
cur_value
->
get_type
()
->
is_integer_type
())
cur_value
=
builder
->
create_sitofp
(
cur_value
,
FLOAT_T
);
else
cur_value
=
builder
->
create_fptosi
(
cur_value
,
INT32_T
);
}
builder
->
create_ret
(
cur_value
);
}
}
// Done
void
CminusfBuilder
::
visit
(
ASTVar
&
node
)
{
//!TODO: This function is empty now.
// Add some code here.
...
...
@@ -275,55 +325,44 @@ void CminusfBuilder::visit(ASTVar &node) {
auto
memory
=
scope
.
find
(
node
.
id
);
Value
*
addr
;
if
(
memory
==
nullptr
)
{
LOG_ERROR
<<
node
.
id
<<
" not declared!"
;
std
::
abort
();
}
if
(
node
.
expression
)
{
// a[1] = 1;
if
(
memory
==
nullptr
)
error_exit
(
"variable "
+
node
.
id
+
" not declared"
);
if
(
node
.
expression
)
{
// e.g. int a[10]; // mem is [i32 x 10]*
node
.
expression
->
accept
(
*
this
);
if
(
not
Type
::
is_eq_type
(
cur_value
->
get_type
(),
INT32_T
))
{
if
(
Type
::
is_eq_type
(
cur_value
->
get_type
(),
FLOAT_T
))
cur_value
=
builder
->
create_fptosi
(
cur_value
,
INT32_T
);
else
{
LOG_ERROR
<<
"unexpected type!"
;
std
::
abort
();
}
else
error_exit
(
"bad type for subscription"
);
}
addr
=
builder
->
create_gep
(
memory
,
{
cur_value
});
// now it's
addr
=
builder
->
create_gep
(
memory
,
{
0
,
cur_value
});
}
else
{
//
a = 1;
}
else
{
//
e.g. int a; // a is i32*
addr
=
memory
;
}
cur_value
=
addr
;
}
// Done
void
CminusfBuilder
::
visit
(
ASTAssignExpression
&
node
)
{
//!TODO: This function is empty now.
// Add some code here.
//
// 1. For assignment, both side should have a vaule,
// the left side has an addr, right side have the correspond value
// 2. Type cast!!!
//
//
// This accept() should update `cur_value` to the left value
node
.
var
->
accept
(
*
this
);
auto
left
=
cur_value
;
// This accept() should update `cur_value` to the right value
node
.
expression
->
accept
(
*
this
);
assert
(
cur_value
->
get_type
()
->
get_pointer_element_type
()
!=
nullptr
);
// type cast
auto
type
=
scope
.
find
(
node
.
var
->
id
)
->
get_type
();
if
(
not
Type
::
is_eq_type
(
type
,
cur_value
->
get_type
()))
{
if
(
type
->
is_pointer_type
())
cur_value
=
builder
->
create_fptosi
(
cur_value
,
INT32_T
);
else
if
(
type
->
is_float_type
())
if
(
not
Type
::
is_eq_type
(
cur_value
->
get_type
()
->
get_pointer_element_type
(),
cur_value
->
get_type
()))
{
if
(
cur_value
->
get_type
()
->
is_integer_type
())
cur_value
=
builder
->
create_sitofp
(
cur_value
,
FLOAT_T
);
else
{
LOG
(
ERROR
)
<<
"Bad assignment!"
;
std
::
abort
();
}
else
if
(
cur_value
->
get_type
()
->
is_float_type
())
cur_value
=
builder
->
create_fptosi
(
cur_value
,
INT32_T
)
;
else
error_exit
(
"bad type for assignment"
);
}
// gen code
builder
->
create_store
(
left
,
cur_value
);
...
...
@@ -340,7 +379,9 @@ void CminusfBuilder::visit(ASTSimpleExpression &node) {
node
.
additive_expression_r
->
accept
(
*
this
);
auto
rvalue
=
cur_value
;
// type cast
bool
float_cmp
=
type_cast
(
lvalue
,
rvalue
,
"cmp"
);
if
(
not
Type
::
is_eq_type
(
lvalue
->
get_type
(),
rvalue
->
get_type
()))
type_cast
(
lvalue
,
rvalue
,
"addop"
);
bool
float_cmp
=
lvalue
->
get_type
()
->
is_float_type
();
switch
(
node
.
op
)
{
case
OP_LE
:
{
if
(
float_cmp
)
...
...
@@ -399,7 +440,9 @@ void CminusfBuilder::visit(ASTAdditiveExpression &node) {
node
.
additive_expression
->
accept
(
*
this
);
auto
rvalue
=
cur_value
;
// type cast
bool
float_type
=
type_cast
(
lvalue
,
rvalue
,
"addop"
);
if
(
not
Type
::
is_eq_type
(
lvalue
->
get_type
(),
rvalue
->
get_type
()))
type_cast
(
lvalue
,
rvalue
,
"addop"
);
bool
float_type
=
lvalue
->
get_type
()
->
is_float_type
();
// now left and right is the same type
switch
(
node
.
op
)
{
case
OP_PLUS
:
{
...
...
@@ -430,7 +473,9 @@ void CminusfBuilder::visit(ASTTerm &node) {
node
.
term
->
accept
(
*
this
);
auto
rvalue
=
cur_value
;
// type cast
bool
float_type
=
type_cast
(
lvalue
,
rvalue
,
"mulop"
);
if
(
not
Type
::
is_eq_type
(
lvalue
->
get_type
(),
rvalue
->
get_type
()))
type_cast
(
lvalue
,
rvalue
,
"addop"
);
bool
float_type
=
lvalue
->
get_type
()
->
is_float_type
();
// now left and right is the same type
switch
(
node
.
op
)
{
case
OP_MUL
:
{
...
...
This diff is collapsed.
Click to expand it.
src/lightir/BasicBlock.cpp
View file @
1851e507
...
...
@@ -28,11 +28,14 @@ const Instruction *BasicBlock::get_terminator() const {
return
nullptr
;
}
switch
(
instr_list_
.
back
().
get_instr_type
())
{
case
Instruction
::
ret
:
return
&
instr_list_
.
back
();
case
Instruction
::
ret
:
return
&
instr_list_
.
back
();
case
Instruction
::
br
:
return
&
instr_list_
.
back
();
case
Instruction
::
br
:
return
&
instr_list_
.
back
();
default:
return
nullptr
;
default:
return
nullptr
;
}
}
...
...
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment