diff options
| author | Bram Moolenaar <Bram@vim.org> | 2012-02-12 00:31:52 +0100 |
|---|---|---|
| committer | Bram Moolenaar <Bram@vim.org> | 2012-02-12 00:31:52 +0100 |
| commit | be7473442952f0d9f3a05c62780cd99ec70516d9 (patch) | |
| tree | 79c255ed7450a9abdeeedee713178e4b14992d23 /src/if_perl.xs | |
| parent | a61d5fbf7ac9bfa0083faa926ad4015bf7125309 (diff) | |
updated for version 7.3.439v7.3.439
Problem: Compiler warnings to size casts in Perl interface.
Solution: Use XS macros. (James McCoy)
Diffstat (limited to 'src/if_perl.xs')
| -rw-r--r-- | src/if_perl.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/if_perl.xs b/src/if_perl.xs index e1e6ada220..9b8d2c2f69 100644 --- a/src/if_perl.xs +++ b/src/if_perl.xs @@ -611,7 +611,7 @@ newWINrv(rv, ptr) if (ptr->w_perl_private == NULL) { ptr->w_perl_private = newSV(0); - sv_setiv(ptr->w_perl_private, (IV)ptr); + sv_setiv(ptr->w_perl_private, PTR2IV(ptr)); } else SvREFCNT_inc(ptr->w_perl_private); @@ -629,7 +629,7 @@ newBUFrv(rv, ptr) if (ptr->b_perl_private == NULL) { ptr->b_perl_private = newSV(0); - sv_setiv(ptr->b_perl_private, (IV)ptr); + sv_setiv(ptr->b_perl_private, PTR2IV(ptr)); } else SvREFCNT_inc(ptr->b_perl_private); |