_StatusCode() should give the correct error on invalid handle type

Passing a handle of the invalid type (Ex. TCP) to _StatusCode should
give error 52, but it gies error 9.

internal/c/libqb.cpp

@@ -21706,6 +21706,13 @@ int32 func__statusCode(int32 handle) {
     }
 
     int real_handle = -(handle + 1);
+
+    special_handle_struct *sh = (special_handle_struct *)list_get(special_handles, real_handle);
+    if (sh->type != special_handle_type::Http) {
+        error(52);
+        return -1;
+    }
+
     int code = libqb_http_get_status_code(real_handle);
 
     if (code == -1) {

tests/compile_tests/http/http_error.bas

@@ -15,5 +15,5 @@ Print _StatusCode(h&)
 System
 
 errorhand:
-PRINT ERR; ERL
+PRINT "Error:"; ERR; ", Line:"; _ERRORLINE
 RESUME NEXT

tests/compile_tests/http/http_error.output

@@ -1,4 +1,4 @@
- 5  0 
+Error: 5 , Line: 6 
  0 
 -2 
  404 

tests/compile_tests/http/invalid_url.bas

@@ -13,5 +13,5 @@ Print h&
 System
 
 errorhand:
-PRINT ERR; ERL
+PRINT "Error:"; ERR; ", Line:"; _ERRORLINE
 RESUME NEXT

tests/compile_tests/http/invalid_url.output

@@ -1,4 +1,4 @@
- 5  0 
+Error: 5 , Line: 6 
  0 
- 5  0 
+Error: 5 , Line: 10 
  0 

tests/compile_tests/http/no_unstable_err.bas

@@ -7,5 +7,5 @@ Print h&
 System
 
 errorhand:
-PRINT ERR; ERL
+PRINT "Error:"; ERR; ", Line:"; _ERRORLINE
 RESUME NEXT

tests/compile_tests/http/no_unstable_err.output

@@ -1,2 +1,2 @@
- 5  0 
+Error: 5 , Line: 4 
  0 

tests/compile_tests/http/statuscode_invalid_handle.bas

@@ -0,0 +1,18 @@
+$Unstable:Http
+$Console:Only
+ON ERROR GOTO errorhand
+
+h& = _OpenHost("TCP/IP:50000")
+
+' Error, invalid handle type
+Print _StatusCode(h&)
+
+' Errors, invalid handle numbers
+Print _StatusCode(0)
+Print _StatusCode(20)
+
+System
+
+errorhand:
+PRINT "Error:"; ERR; ", Line:"; _ERRORLINE
+RESUME NEXT

tests/compile_tests/http/statuscode_invalid_handle.output

@@ -0,0 +1,3 @@
+Error: 52 , Line: 8 
+Error: 52 , Line: 11 
+Error: 52 , Line: 12