epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Modified to build on Perl 5.8.4.

Browse Source
This commit is contained in:
Andrew Johnson
2009-07-09 14:54:41 +00:00
parent afbcfeaa02
commit 710fc16aa4
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/cap5/Cap5.xs
View File

@@ -764,11 +764,11 @@ void CA_get(SV *ca_ref) {
if (ca_field_type(pch->chan) == DBF_CHAR &&
count > 1) {
if (!pch->sdata) {
Newx(pch->sdata, count + 1, char);
New(0, pch->sdata, count + 1, char);
pch->ssize = count;
} else if (pch->ssize < count) { /* Reconnected to larger array? */
Safefree(pch->sdata);
Newx(pch->sdata, count + 1, char);
New(0, pch->sdata, count + 1, char);
pch->ssize = count;
}
status = ca_array_get(DBF_CHAR, count, pch->chan, pch->sdata);