blob: 3425148820d8f061a8011b08f14f6996209e77bc (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
/* Unless compiled with -DNO_OVERWRITE, this variant of s_copy allows the
* target of an assignment to appear on its right-hand side (contrary
* to the Fortran 77 Standard, but in accordance with Fortran 90),
* as in a(2:5) = a(4:7) .
*/
#include "f2c.h"
#ifdef __cplusplus
extern "C" {
#endif
/* assign strings: a = b */
// command to get sanitizer error:
// ya make -tAr --sanitize=address cv/imgclassifiers/danet/tests/minimize_memory_ut/ -F TMinimizeMemoryTest::TestMinimizeMemoryUsageModeTrain
#if defined(__has_feature)
# if __has_feature(address_sanitizer)
__attribute__((no_sanitize("address")))
# endif
#endif
#if defined(__has_feature)
# if __has_feature(memory_sanitizer)
__attribute__((no_sanitize("memory")))
# endif
#endif
#ifdef KR_headers
VOID s_copy(a, b, la, lb) register char *a, *b; ftnlen la, lb;
#else
void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb)
#endif
{
register char *aend, *bend;
aend = a + la;
if(la <= lb)
#ifndef NO_OVERWRITE
if (a <= b || a >= b + la)
#endif
while(a < aend)
*a++ = *b++;
#ifndef NO_OVERWRITE
else
for(b += la; a < aend; )
*--aend = *--b;
#endif
else {
bend = b + lb;
#ifndef NO_OVERWRITE
if (a <= b || a >= bend)
#endif
while(b < bend)
*a++ = *b++;
#ifndef NO_OVERWRITE
else {
a += lb;
while(b < bend)
*--a = *--bend;
a += lb;
}
#endif
while(a < aend)
*a++ = ' ';
}
}
#ifdef __cplusplus
}
#endif
|
