Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
R
riscv-gcc-1
Overview
Overview
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
lvzhengyang
riscv-gcc-1
Commits
b62df3bf
Commit
b62df3bf
authored
Jan 16, 2016
by
Paul Thomas
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Clean up some minor white space issues in trans-decl.c and trans-expr.c
From-SVN: r232466
parent
83eb5a03
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
10 deletions
+10
-10
gcc/fortran/trans-decl.c
+9
-9
gcc/fortran/trans-expr.c
+1
-1
No files found.
gcc/fortran/trans-decl.c
View file @
b62df3bf
...
...
@@ -1422,9 +1422,9 @@ gfc_get_symbol_decl (gfc_symbol * sym)
&&
TREE_CODE
(
sym
->
ts
.
u
.
cl
->
backend_decl
)
==
PARM_DECL
)
{
sym
->
ts
.
u
.
cl
->
passed_length
=
sym
->
ts
.
u
.
cl
->
backend_decl
;
sym
->
ts
.
u
.
cl
->
backend_decl
=
sym
->
ts
.
u
.
cl
->
backend_decl
=
build_fold_indirect_ref
(
sym
->
ts
.
u
.
cl
->
backend_decl
);
}
}
}
/* For all other parameters make sure, that they are copied so
that the value and any modifications are local to the routine
...
...
@@ -1438,7 +1438,7 @@ gfc_get_symbol_decl (gfc_symbol * sym)
sym
->
ts
.
u
.
cl
->
backend_decl
=
build_fold_indirect_ref
(
sym
->
ts
.
u
.
cl
->
backend_decl
);
else
sym
->
ts
.
u
.
cl
->
backend_decl
=
NULL_TREE
;
sym
->
ts
.
u
.
cl
->
backend_decl
=
NULL_TREE
;
}
}
...
...
@@ -3995,12 +3995,12 @@ gfc_trans_deferred_vars (gfc_symbol * proc_sym, gfc_wrapped_block * block)
tmp
=
proc_sym
->
ts
.
u
.
cl
->
backend_decl
;
if
(
TREE_CODE
(
tmp
)
!=
INDIRECT_REF
)
{
tmp
=
proc_sym
->
ts
.
u
.
cl
->
passed_length
;
tmp
=
build_fold_indirect_ref_loc
(
input_location
,
tmp
);
tmp
=
fold_convert
(
gfc_charlen_type_node
,
tmp
);
tmp
=
fold_build2_loc
(
input_location
,
MODIFY_EXPR
,
gfc_charlen_type_node
,
tmp
,
proc_sym
->
ts
.
u
.
cl
->
backend_decl
);
tmp
=
proc_sym
->
ts
.
u
.
cl
->
passed_length
;
tmp
=
build_fold_indirect_ref_loc
(
input_location
,
tmp
);
tmp
=
fold_convert
(
gfc_charlen_type_node
,
tmp
);
tmp
=
fold_build2_loc
(
input_location
,
MODIFY_EXPR
,
gfc_charlen_type_node
,
tmp
,
proc_sym
->
ts
.
u
.
cl
->
backend_decl
);
}
else
tmp
=
NULL_TREE
;
...
...
gcc/fortran/trans-expr.c
View file @
b62df3bf
...
...
@@ -9284,7 +9284,7 @@ gfc_trans_assignment_1 (gfc_expr * expr1, gfc_expr * expr2, bool init_flag,
}
else
{
gfc_conv_expr
(
&
lse
,
expr1
);
gfc_conv_expr
(
&
lse
,
expr1
);
if
(
gfc_option
.
rtcheck
&
GFC_RTCHECK_MEM
&&
gfc_expr_attr
(
expr1
).
allocatable
&&
expr1
->
rank
...
...
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