epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Fix gcc warning 'stringop-truncation'

Browse Source
This commit is contained in:
zimoch
2025-11-07 16:04:36 +01:00
parent 422182d672
commit 9748cbd394
9 changed files with 24 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
modules/ca/src/perl/Cap5.xs
View File

@@ -613,6 +613,7 @@ void CA_put(SV *ca_ref, SV *val, ...) {
break;
case DBF_STRING:
strncpy(data.dbr_string, SvPV_nolen(val), MAX_STRING_SIZE);
data.dbr_string[MAX_STRING_SIZE-1] = 0;
break;
}
status = ca_put(type, pch->chan, &data);
@@ -705,6 +706,7 @@ void CA_put_callback(SV *ca_ref, SV *sub, SV *val, ...) {
break;
case DBF_STRING:
strncpy(data.dbr_string, SvPV_nolen(val), MAX_STRING_SIZE);
data.dbr_string[MAX_STRING_SIZE-1] = 0;
break;
}