Delete debugging code

Author: timholy

base/inference.jl

@@ -249,9 +249,6 @@ const getfield_tfunc = function (A, s0, name)
     if s <: Tuple && name === Symbol
         return Bottom, true
     end
-    # if s <: Tuple && s.parameters.length == 1 && isvatuple(s)
-    #     return s.parameters[1].parameters[1], true
-    # end
     if isa(A[2],QuoteNode) && isa(A[2].value,Symbol)
         fld = A[2].value
         A1 = A[1]

src/alloc.c

@@ -108,20 +108,6 @@ typedef struct {
 // Note that this function updates len
 static jl_value_t *jl_new_bits_internal(jl_value_t *dt, void *data, size_t *len)
 {
-    if (jl_is_ntuple_type(dt)) {
-        jl_value_t *lenvar = jl_tparam0(dt);
-        jl_value_t *elty = jl_tparam1(dt);
-        assert(jl_is_datatype(elty));
-        size_t alignment = ((jl_datatype_t*)elty)->alignment;
-        *len = LLT_ALIGN((*len), alignment);
-        assert(jl_is_long(lenvar));
-        size_t l = jl_unbox_long(lenvar);
-        size_t nb = l*LLT_ALIGN(jl_datatype_size(elty), alignment);
-        jl_value_t *v = (jl_value_t*)newobj(dt, NWORDS(nb));
-        memcpy(jl_data_ptr(v), data, nb);
-        return v;
-    }
-
     assert(jl_is_datatype(dt));
     jl_datatype_t *bt = (jl_datatype_t*)dt;
     size_t nb = jl_datatype_size(bt);

src/builtins.c

@@ -1582,174 +1582,9 @@ DLLEXPORT void jl_(void *jl_value)
     in_jl_--;
 }
 
-// Useful because the jl_typeof macro isn't available from debugger
-void jl_static_show_typeof(JL_STREAM *out, jl_value_t *v)
-{
-    if (v == NULL) {
-        jl_printf(out, "#<null>");
-    }
-    else if (jl_typeof(v) == NULL) {
-        jl_printf(out, "<?::#null>");
-    }
-    else if (jl_astaggedvalue(v)->type_bits < 4096U) {
-        jl_printf(out, "<?::#%d>", (int)jl_astaggedvalue(v)->type_bits);
-    }
-    else if (jl_is_lambda_info(v)) {
-        jl_printf(out, "lambda_info");
-    }
-    else if (jl_is_svec(v)) {
-        jl_printf(out, "svec");
-    }
-    else if (jl_is_datatype(v)) {
-        jl_printf(out, "DataType");
-    }
-    else if (jl_is_func(v)) {
-        jl_printf(out, "#<function>");
-    }
-    else if (jl_typeis(v, jl_intrinsic_type)) {
-        jl_printf(out, "#<intrinsic function>");
-    }
-    else if (jl_is_int64(v)) {
-        jl_printf(out, "Int64");
-    }
-    else if (jl_is_int32(v)) {
-        jl_printf(out, "Int32");
-    }
-    else if (jl_typeis(v,jl_int16_type)) {
-        jl_printf(out, "Int16");
-    }
-    else if (jl_typeis(v,jl_int8_type)) {
-        jl_printf(out, "Int8");
-    }
-    else if (jl_is_uint64(v)) {
-        jl_printf(out, "UInt64");
-    }
-    else if (jl_is_uint32(v)) {
-        jl_printf(out, "UInt32");
-    }
-    else if (jl_typeis(v,jl_uint16_type)) {
-        jl_printf(out, "UInt16");
-    }
-    else if (jl_typeis(v,jl_uint8_type)) {
-        jl_printf(out, "UInt8");
-    }
-    else if (jl_is_cpointer(v)) {
-        jl_printf(out, "cpointer");
-    }
-    else if (jl_is_float32(v)) {
-        jl_printf(out, "Float32");
-    }
-    else if (jl_is_float64(v)) {
-        jl_printf(out, "Float64");
-    }
-    else if (v == jl_true || v == jl_false) {
-        jl_printf(out, "jl_boolean");
-    }
-    else if (v == jl_nothing) {
-        jl_printf(out, "nothing");
-    }
-    else if (jl_is_byte_string(v)) {
-        jl_printf(out, "ByteString");
-    }
-    else if (jl_is_uniontype(v)) {
-        jl_printf(out, "Union");
-    }
-    else if (jl_is_typector(v)) {
-        jl_printf(out, "TypeConstructor");
-    }
-    else if (jl_is_typevar(v)) {
-        jl_printf(out, "TypeVar");
-    }
-    else if (jl_is_module(v)) {
-        jl_printf(out, "Module");
-    }
-    else if (jl_is_symbol(v)) {
-        jl_printf(out, "Symbol");
-    }
-    else if (jl_is_gensym(v)) {
-        jl_printf(out, "GenSym");
-    }
-    else if (jl_is_symbolnode(v)) {
-        jl_printf(out, "SymbolNode");
-    }
-    else if (jl_is_globalref(v)) {
-        jl_printf(out, "GlobalRef");
-    }
-    else if (jl_is_labelnode(v)) {
-        jl_printf(out, "LabelNode");
-    }
-    else if (jl_is_gotonode(v)) {
-        jl_printf(out, "GotoNode");
-    }
-    else if (jl_is_quotenode(v)) {
-        jl_printf(out, "QuoteNode");
-    }
-    else if (jl_is_newvarnode(v)) {
-        jl_printf(out, "NewVarNode");
-    }
-    else if (jl_is_topnode(v)) {
-        jl_printf(out, "topnode");
-    }
-    else if (jl_is_linenode(v)) {
-        jl_printf(out, "LineNode");
-    }
-    else if (jl_is_expr(v)) {
-        jl_printf(out, "Expr");
-    }
-    else if (jl_is_array(v)) {
-        jl_printf(out, "Array");
-    }
-    else if (jl_typeis(v,jl_loaderror_type)) {
-        jl_printf(out, "LoadError");
-    }
-    else if (jl_typeis(v,jl_errorexception_type)) {
-        jl_printf(out, "ErrorException");
-    }
-    else if (jl_is_datatype(jl_typeof(v))) {
-        jl_datatype_t *dv = (jl_datatype_t*)jl_typeof(v);
-        if (dv->name->module != jl_core_module) {
-            jl_static_show_x(out, (jl_value_t*)dv->name->module, 0);
-            jl_printf(out, ".");
-        }
-        jl_printf(out, "%s", dv->name->name->name);
-        if (dv->parameters && (jl_value_t*)dv != dv->name->primary) {
-            size_t j, tlen = jl_nparams(dv);
-            if (tlen > 0) {
-                jl_printf(out, "{");
-                for (j = 0; j < tlen; j++) {
-                    jl_value_t *p = jl_tparam(dv,j);
-                    jl_static_show_x(out, p, 0);
-                    if (j != tlen-1)
-                        jl_printf(out, ", ");
-                }
-                jl_printf(out, "}");
-            }
-            else if (jl_is_tuple_type(dv)) {
-                jl_printf(out, "{}");
-            }
-        }
-    }
-    else {
-        jl_printf(out, "<?Unknown?>");
-    }
-}
-
-DLLEXPORT void jlt_(void *jl_value)
-{
-    in_jl_++;
-    JL_TRY {
-        (void)jl_static_show_typeof(JL_STDOUT, (jl_value_t*)jl_value);
-        jl_printf(JL_STDOUT,"\n");
-    }
-    JL_CATCH {
-        jl_printf(JL_STDOUT, "\n!!! ERROR in jlt_ -- ABORTING !!!\n");
-    }
-    in_jl_--;
-}
-
 DLLEXPORT void jl_breakpoint(jl_value_t *v)
 {
-    // put a breakpoint in you debugger here
+    // put a breakpoint in your debugger here
 }
 
 // Useful for debugging calls to constructors, call(T, a, b...)