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
17d01d21
Commit
17d01d21
authored
Jan 06, 2015
by
Arnaud Charlet
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Minor reformatting.
From-SVN: r219224
parent
6260b90c
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
5 deletions
+11
-5
gcc/ada/gnatls.adb
+2
-2
gcc/ada/prj-env.adb
+9
-3
No files found.
gcc/ada/gnatls.adb
View file @
17d01d21
...
@@ -1227,7 +1227,7 @@ procedure Gnatls is
...
@@ -1227,7 +1227,7 @@ procedure Gnatls is
Add_Search_Dirs
(
Lib_Path
,
Objects
);
Add_Search_Dirs
(
Lib_Path
,
Objects
);
Initialize_Default_Project_Path
Initialize_Default_Project_Path
(
Prj_Path
,
(
Prj_Path
,
Target_Name
=>
Sdefault
.
Target_Name
.
all
,
Target_Name
=>
Sdefault
.
Target_Name
.
all
,
Runtime_Name
=>
Name
);
Runtime_Name
=>
Name
);
return
;
return
;
end
if
;
end
if
;
...
@@ -1242,7 +1242,7 @@ procedure Gnatls is
...
@@ -1242,7 +1242,7 @@ procedure Gnatls is
Initialize_Default_Project_Path
Initialize_Default_Project_Path
(
Prj_Path
,
(
Prj_Path
,
Target_Name
=>
Sdefault
.
Target_Name
.
all
,
Target_Name
=>
Sdefault
.
Target_Name
.
all
,
Runtime_Name
=>
Name
);
Runtime_Name
=>
Name
);
Rts_Full_Path
:=
Get_Runtime_Path
(
Prj_Path
,
Name
);
Rts_Full_Path
:=
Get_Runtime_Path
(
Prj_Path
,
Name
);
...
...
gcc/ada/prj-env.adb
View file @
17d01d21
...
@@ -1895,24 +1895,30 @@ package body Prj.Env is
...
@@ -1895,24 +1895,30 @@ package body Prj.Env is
--
The
path
name
(
s
)
of
directories
where
project
files
may
reside
.
--
The
path
name
(
s
)
of
directories
where
project
files
may
reside
.
--
May
be
empty
.
--
May
be
empty
.
Prefix
:
String_Ptr
;
Prefix
:
String_Ptr
;
Runtime
:
String_Ptr
;
Runtime
:
String_Ptr
;
procedure
Add_Target
;
procedure
Add_Target
;
--
Comment
ALWAYS
required
for
nested
subprogram
spec
???
----------------
--
Add_Target
--
----------------
procedure
Add_Target
is
procedure
Add_Target
is
begin
begin
Add_Str_To_Name_Buffer
Add_Str_To_Name_Buffer
(
Path_Separator
&
Prefix
.
all
&
Target_Name
);
(
Path_Separator
&
Prefix
.
all
&
Target_Name
);
--
Note
:
Target_Name
has
a
trailing
/
when
it
comes
from
--
Note
:
Target_Name
has
a
trailing
/
when
it
comes
from
Sdefault
--
Sdefault
.
if
Name_Buffer
(
Name_Len
)
/=
'/'
then
if
Name_Buffer
(
Name_Len
)
/=
'/'
then
Add_Char_To_Name_Buffer
(
Directory_Separator
);
Add_Char_To_Name_Buffer
(
Directory_Separator
);
end
if
;
end
if
;
end
Add_Target
;
end
Add_Target
;
--
Start
of
processing
for
Initialize_Default_Project_Path
begin
begin
if
Is_Initialized
(
Self
)
then
if
Is_Initialized
(
Self
)
then
return
;
return
;
...
...
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