Mercurial > projects > ldc
view dmd2/root/man.c @ 1491:360a8e8eea51
Teach stack promotion to walk the CFG when a potential reuse of an allocation
is found to see if it can actually happen instead of just assuming it will.
This allows it to catch cases like
{{{
int i;
Foo f;
while (cond(i))
f = new Foo(i++);
return f.value;
}}}
where it previously wouldn't because a phi using the allocation would appear in
the condition block to propagate it to the use after the loop.
author | Frits van Bommel <fvbommel wxs.nl> |
---|---|
date | Thu, 11 Jun 2009 02:04:44 +0200 |
parents | 638d16625da2 |
children |
line wrap: on
line source
// Compiler implementation of the D programming language // Copyright (c) 2008-2009 by Digital Mars // All Rights Reserved // written by Walter Bright // http://www.digitalmars.com // License for redistribution is by either the Artistic License // in artistic.txt, or the GNU General Public License in gnu.txt. // See the included readme.txt for details. #include <stdio.h> #include <string.h> #include <stdlib.h> #include <assert.h> #if _WIN32 #include <windows.h> #pragma comment(lib,"shell32.lib") void browse(const char *url) { ShellExecute(NULL, "open", url, NULL, NULL, SW_SHOWNORMAL); } #endif #if linux || __FreeBSD__ || __sun&&__SVR4 #include <sys/types.h> #include <sys/wait.h> #include <unistd.h> void browse(const char *url) { pid_t childpid; const char *args[3]; char *browser = getenv("BROWSER"); if (browser) browser = strdup(browser); else browser = "x-www-browser"; args[0] = browser; args[1] = url; args[2] = NULL; childpid = fork(); if (childpid == 0) { execvp(args[0], (char**)args); perror(args[0]); // failed to execute return; } } #endif #if __APPLE__ #include <sys/types.h> #include <sys/wait.h> #include <unistd.h> void browse(const char *url) { pid_t childpid; const char *args[5]; char *browser = getenv("BROWSER"); if (browser) { browser = strdup(browser); args[0] = browser; args[1] = url; args[2] = NULL; } else { //browser = "/Applications/Safari.app/Contents/MacOS/Safari"; args[0] = "open"; args[1] = "-a"; args[2] = "/Applications/Safari.app"; args[3] = url; args[4] = NULL; } childpid = fork(); if (childpid == 0) { execvp(args[0], (char**)args); perror(args[0]); // failed to execute return; } } #endif