WIP: php7 compatibility

RETVAL_STRING and RETVAL_STRINGL always duplicate value

Author: yatsukhnenko

cluster_library.c

@@ -1866,7 +1866,7 @@ PHP_REDIS_API void cluster_variant_resp(INTERNAL_FUNCTION_PARAMETERS, redisClust
                 RETVAL_TRUE;
                 break;
             case TYPE_BULK:
-                RETVAL_STRINGL(r->str, r->len, 0);
+                RETVAL_STRINGL(r->str, r->len);
                 break;
             case TYPE_MULTIBULK:
                 MAKE_STD_ZVAL(z_arr);

cluster_library.h

@@ -116,7 +116,7 @@
 /* Helper to return a string value */
 #define CLUSTER_RETURN_STRING(c, str, len) \
     if(CLUSTER_IS_ATOMIC(c)) { \
-        RETURN_STRINGL(str, len, 0); \
+        RETURN_STRINGL(str, len); \
     } else { \
         add_next_index_stringl(c->multi_resp, str, len, 0); \
     } \

common.h

@@ -167,6 +167,15 @@ inline_zend_get_parameters_array(int ht, int param_count, zval *argument_array T
 
 typedef zend_rsrc_list_entry zend_resource;
 
+#undef RETVAL_STRING
+#define RETVAL_STRING(s) ZVAL_STRING(return_value, s, 1)
+#undef RETURN_STRING
+#define RETURN_STRING(s) { RETVAL_STRING(s); return; }
+#undef RETVAL_STRINGL
+#define RETVAL_STRINGL(s, l) ZVAL_STRINGL(return_value, s, l, 1)
+#undef RETURN_STRINGL
+#define RETURN_STRINGL(s, l) { RETVAL_STRINGL(s, l); return; }
+
 #else
 #include <ext/standard/php_smart_string.h>
 #endif

library.c

@@ -1206,7 +1206,7 @@ PHP_REDIS_API void redis_long_response(INTERNAL_FUNCTION_PARAMETERS,
             }
         } else {
             if(ret > LONG_MAX) { /* overflow */
-                RETURN_STRINGL(response+1, response_len-1, 1);
+                RETURN_STRINGL(response+1, response_len-1);
             } else {
                 efree(response);
                 RETURN_LONG((long)ret);
@@ -1430,10 +1430,9 @@ PHP_REDIS_API void redis_string_response(INTERNAL_FUNCTION_PARAMETERS, RedisSock
         if(redis_unserialize(redis_sock, response, response_len,
                              &return_value TSRMLS_CC) == 0)
         {
-            RETURN_STRINGL(response, response_len, 0);
-        } else {
-            efree(response);
+            RETVAL_STRINGL(response, response_len);
         }
+        efree(response);
     }
 }
 
@@ -1458,7 +1457,8 @@ redis_ping_response(INTERNAL_FUNCTION_PARAMETERS, RedisSock *redis_sock,
     IF_MULTI_OR_PIPELINE() {
         add_next_index_stringl(z_tab, response, response_len, 0);
     } else {
-        RETURN_STRINGL(response, response_len, 0);
+        RETVAL_STRINGL(response, response_len);
+        efree(response);
     }
 }
 

redis.c

@@ -3397,7 +3397,7 @@ PHP_METHOD(Redis, getLastError) {
 
 	/* Return our last error or NULL if we don't have one */
 	if(redis_sock->err != NULL && redis_sock->err_len > 0) {
-		RETURN_STRINGL(redis_sock->err, redis_sock->err_len, 1);
+		RETURN_STRINGL(redis_sock->err, redis_sock->err_len);
 	} else {
 		RETURN_NULL();
 	}
@@ -3478,7 +3478,7 @@ PHP_METHOD(Redis, getHost) {
     RedisSock *redis_sock;
 
     if((redis_sock = redis_sock_get_connected(INTERNAL_FUNCTION_PARAM_PASSTHRU))) {
-        RETURN_STRING(redis_sock->host, 1);
+        RETURN_STRING(redis_sock->host);
     } else {
         RETURN_FALSE;
     }
@@ -3536,7 +3536,7 @@ PHP_METHOD(Redis, getPersistentID) {
 
     if((redis_sock = redis_sock_get_connected(INTERNAL_FUNCTION_PARAM_PASSTHRU))) {
         if(redis_sock->persistent_id != NULL) {
-            RETURN_STRING(redis_sock->persistent_id, 1);
+            RETURN_STRING(redis_sock->persistent_id);
         } else {
             RETURN_NULL();
         }
@@ -3551,7 +3551,7 @@ PHP_METHOD(Redis, getAuth) {
 
     if((redis_sock = redis_sock_get_connected(INTERNAL_FUNCTION_PARAM_PASSTHRU))) {
         if(redis_sock->auth != NULL) {
-            RETURN_STRING(redis_sock->auth, 1);
+            RETURN_STRING(redis_sock->auth);
         } else {
             RETURN_NULL();
         }

redis_cluster.c

@@ -1952,7 +1952,7 @@ PHP_METHOD(RedisCluster, getlasterror) {
     redisCluster *c = GET_CONTEXT();
 
     if(c->err != NULL && c->err_len > 0) {
-        RETURN_STRINGL(c->err, c->err_len, 1);
+        RETURN_STRINGL(c->err, c->err_len);
     } else {
         RETURN_NULL();
     }
@@ -2043,7 +2043,7 @@ PHP_METHOD(RedisCluster, _redir) {
 
     len = snprintf(buf, sizeof(buf), "%s:%d", c->redir_host, c->redir_port);
     if(*c->redir_host && c->redir_host_len) {
-        RETURN_STRINGL(buf, len, 1);
+        RETURN_STRINGL(buf, len);
     } else {
         RETURN_NULL();
     }

redis_commands.c

@@ -3089,7 +3089,7 @@ void redis_getoption_handler(INTERNAL_FUNCTION_PARAMETERS,
             RETURN_LONG(redis_sock->serializer);
         case REDIS_OPT_PREFIX:
             if(redis_sock->prefix) {
-                RETURN_STRINGL(redis_sock->prefix, redis_sock->prefix_len, 1);
+                RETURN_STRINGL(redis_sock->prefix, redis_sock->prefix_len);
             }
             RETURN_NULL();
         case REDIS_OPT_READ_TIMEOUT:
@@ -3193,9 +3193,10 @@ void redis_prefix_handler(INTERNAL_FUNCTION_PARAMETERS, RedisSock *redis_sock) {
 
     if(redis_sock->prefix != NULL && redis_sock->prefix_len>0) {
         redis_key_prefix(redis_sock, &key, &key_len);
-        RETURN_STRINGL(key, key_len, 0);
+        RETVAL_STRINGL(key, key_len);
+        efree(key);
     } else {
-        RETURN_STRINGL(key, key_len, 1);
+        RETURN_STRINGL(key, key_len);
     }
 }
 
@@ -3212,7 +3213,7 @@ void redis_serialize_handler(INTERNAL_FUNCTION_PARAMETERS,
 
     int val_free = redis_serialize(redis_sock, z_val, &val, &val_len TSRMLS_CC);
 
-    RETVAL_STRINGL(val, val_len, 1);
+    RETVAL_STRINGL(val, val_len);
     if(val_free) STR_FREE(val);
 }
 
@@ -3244,7 +3245,7 @@ void redis_unserialize_handler(INTERNAL_FUNCTION_PARAMETERS,
         RETURN_ZVAL(z_ret, 0, 1);
     } else {
         // Just return the value that was passed to us
-        RETURN_STRINGL(value, value_len, 1);
+        RETURN_STRINGL(value, value_len);
     }
 }