diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-31 20:52:25 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-31 20:52:25 +0000 |
| commit | 419956aa3919a2174e7f99c4d162e76cb94f0a9e (patch) | |
| tree | 28d12e696c4081da0c44f83aba2b8c5729167976 /dist | |
| parent | bc618d8e27c89135d9376156897345be8539c527 (diff) | |
| download | perl-419956aa3919a2174e7f99c4d162e76cb94f0a9e.tar.gz | |
Storable::{last_op_in_netorder,is_storing,is_retrieving} are all boolean.
Hence they can have return type bool, which allows xsubpp to generate slightly
simpler (and smaller) code, and at run time avoids using a temporary for the
return value.
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Storable/Storable.xs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs index 7ede03af23..846a6508c3 100644 --- a/dist/Storable/Storable.xs +++ b/dist/Storable/Storable.xs @@ -6417,23 +6417,23 @@ SV * sv OUTPUT: RETVAL -int +bool last_op_in_netorder() CODE: - RETVAL = last_op_in_netorder(aTHX); + RETVAL = !!last_op_in_netorder(aTHX); OUTPUT: RETVAL -int +bool is_storing() CODE: - RETVAL = is_storing(aTHX); + RETVAL = !!is_storing(aTHX); OUTPUT: RETVAL -int +bool is_retrieving() CODE: - RETVAL = is_retrieving(aTHX); + RETVAL = !!is_retrieving(aTHX); OUTPUT: RETVAL |