We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 6e413f6 commit 3bc6054Copy full SHA for 3bc6054
src/libasr/runtime/lfortran_intrinsics.c
@@ -2135,12 +2135,18 @@ LFORTRAN_API int32_t _lpython_bit_length8(int64_t num)
2135
//repeat str for n time
2136
LFORTRAN_API void _lfortran_strrepeat(char** s, int32_t n, char** dest)
2137
{
2138
+ // Return empty string for non-positive n
2139
+ if (n <= 0) {
2140
+ char* dest_char = (char*)malloc(1);
2141
+ dest_char[0] = '\0';
2142
+ *dest = dest_char;
2143
+ return;
2144
+ }
2145
+
2146
char trmn = '\0';
2147
int s_len = strlen(*s);
2148
int trmn_size = sizeof(trmn);
2149
int f_len = s_len*n;
- if (f_len < 0)
- f_len = 0;
2150
char* dest_char = (char*)malloc(f_len+trmn_size);
2151
2152
if (s_len == 1) {
0 commit comments