Add --noinline startup option

Author: timholy

base/inference.jl

@@ -2511,6 +2511,9 @@ const inline_incompletematch_allowed = false
 
 inline_worthy(body, cost::Real) = true
 function inline_worthy(body::Expr, cost::Real=1.0) # precondition: 0<cost
+    if ccall(:can_inline, Cint, ()) == 0
+        return false
+    end
     if popmeta!(body, :inline)[1]
         return true
     end

src/gf.c

@@ -1931,6 +1931,11 @@ jl_value_t *jl_matching_methods(jl_function_t *gf, jl_value_t *type, int lim)
     return ml_matches(mt->defs, type, jl_gf_name(gf), lim);
 }
 
+DLLEXPORT int can_inline(void)
+{
+    return jl_compileropts.can_inline;
+}
+
 #ifdef __cplusplus
 }
 #endif

src/init.c

@@ -88,7 +88,8 @@ jl_compileropts_t jl_compileropts = { NULL, // build_path
                                       JL_COMPILEROPT_DUMPBITCODE_OFF,
                                       0,    // int_literals
                                       JL_COMPILEROPT_COMPILE_DEFAULT,
-                                      0     // opt_level
+                                      0,    // opt_level
+                                      1     // inline
 };
 
 int jl_boot_file_loaded = 0;

src/julia.expmap

@@ -32,6 +32,7 @@
     uv_*;
     add_library_mapping;
     utf8proc_*;
+    can_inline;
 
     /* freebsd */
     environ;

src/julia.h

@@ -1336,6 +1336,7 @@ typedef struct {
     int int_literals;
     int8_t compile_enabled;
     int8_t opt_level;
+    int8_t can_inline;
 } jl_compileropts_t;
 
 extern DLLEXPORT jl_compileropts_t jl_compileropts;

ui/repl.c

@@ -85,6 +85,7 @@ static const char *opts =
     " --track-allocation={none|user|all}\n"
     "                          Count bytes allocated by each source line\n"
     " --check-bounds={yes|no}  Emit bounds checks always or never (ignoring declarations)\n"
+    " --noinline               Do not inline compiled functions (even those declared as @inline)\n"
     " -O, --optimize           Run time-intensive code optimizations\n"
     " --int-literals={32|64}   Select integer literal size independent of platform\n"
     " --dump-bitcode={yes|no}  Dump bitcode for the system image (used with --build)\n";
@@ -106,6 +107,7 @@ void parse_opts(int *argcp, char ***argvp)
         { "int-literals",  required_argument, 0, 301 },
         { "dump-bitcode",  required_argument, 0, 302 },
         { "compile",       required_argument, 0, 303 },
+        { "noinline",      no_argument,       0, 304 },
         { 0, 0, 0, 0 }
     };
     int c;
@@ -198,6 +200,9 @@ void parse_opts(int *argcp, char ***argvp)
                 exit(1);
             }
             break;
+        case 304:      /* noinline */
+            jl_compileropts.can_inline = 0;
+            break;
         default:
             ios_printf(ios_stderr, "julia: unhandled option -- %c\n",  c);
             ios_printf(ios_stderr, "This is a bug, please report it.\n");