projects
/
debian
/
amanda
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Imported Upstream version 3.1.0
[debian/amanda]
/
perl
/
Amanda
/
Application.c
diff --git
a/perl/Amanda/Application.c
b/perl/Amanda/Application.c
index 91f2daf57d53aa1933f42f938a733591362d0725..ce95880ae7e7ba6a6b3646ffafc6bbf9e42c3b8b 100644
(file)
--- a/
perl/Amanda/Application.c
+++ b/
perl/Amanda/Application.c
@@
-1679,7
+1679,9
@@
XS(_wrap_run_calcsize_C) {
num = av_len(tempav);
for (i=0; i <= num; i++) {
tv = av_fetch(tempav, i, 0);
num = av_len(tempav);
for (i=0; i <= num; i++) {
tv = av_fetch(tempav, i, 0);
- level = g_slist_append(level, GINT_TO_POINTER(SvIV(*tv)));
+ /* (gint) cast is required because sizeof(IV) may not be sizeof(gint).
+ * Both will be >= 32 bits, though, and that's sufficient for a level. */
+ level = g_slist_append(level, GINT_TO_POINTER((gint)SvIV(*tv)));
}
arg5 = level;
}
}
arg5 = level;
}