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
144499ab
Commit
144499ab
authored
Aug 21, 1992
by
Richard Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(bcopy, bzero, bcmp): Remove #if VMS code--always use inline C loops.
From-SVN: r1927
parent
eeb43d32
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
0 additions
and
31 deletions
+0
-31
gcc/cccp.c
+0
-31
No files found.
gcc/cccp.c
View file @
144499ab
...
...
@@ -8429,20 +8429,8 @@ bzero (b, length)
register
char
*
b
;
register
unsigned
length
;
{
#ifdef VMS
short
zero
=
0
;
long
max_str
=
65535
;
while
(
length
>
max_str
)
{
(
void
)
LIB
$
MOVC5
(
&
zero
,
&
zero
,
&
zero
,
&
max_str
,
b
);
length
-=
max_str
;
b
+=
max_str
;
}
(
void
)
LIB
$
MOVC5
(
&
zero
,
&
zero
,
&
zero
,
&
length
,
b
);
#else
while
(
length
--
>
0
)
*
b
++
=
0
;
#endif
/* not VMS */
}
void
...
...
@@ -8451,20 +8439,8 @@ bcopy (b1, b2, length)
register
char
*
b2
;
register
unsigned
length
;
{
#ifdef VMS
long
max_str
=
65535
;
while
(
length
>
max_str
)
{
(
void
)
LIB
$
MOVC3
(
&
max_str
,
b1
,
b2
);
length
-=
max_str
;
b1
+=
max_str
;
b2
+=
max_str
;
}
(
void
)
LIB
$
MOVC3
(
&
length
,
b1
,
b2
);
#else
while
(
length
--
>
0
)
*
b2
++
=
*
b1
++
;
#endif
/* not VMS */
}
int
...
...
@@ -8473,18 +8449,11 @@ bcmp (b1, b2, length) /* This could be a macro! */
register
char
*
b2
;
register
unsigned
length
;
{
#ifdef VMS
struct
dsc
$
descriptor_s
src1
=
{
length
,
DSC
$
K_DTYPE_T
,
DSC
$
K_CLASS_S
,
b1
};
struct
dsc
$
descriptor_s
src2
=
{
length
,
DSC
$
K_DTYPE_T
,
DSC
$
K_CLASS_S
,
b2
};
return
STR
$
COMPARE
(
&
src1
,
&
src2
);
#else
while
(
length
--
>
0
)
if
(
*
b1
++
!=
*
b2
++
)
return
1
;
return
0
;
#endif
/* not VMS */
}
#endif
/* not BSTRING */
#endif
/* USG or VMS */
...
...
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