Mercurial > projects > ldc
view dmd2/builtin.c @ 1275:bedf0bfb8fdb
Implement first D-specific optimization pass: -simplify-drtcalls.
It uses the machinery of the standard -simplify-libcalls pass, but optimizes
calls to the D runtime instead of calls to C libraries.
At the moment, these optimizations are implemented by this pass:
- Avoid the runtime call for `arr.length = newlen` if it can determine that
the new length isn't longer than the old one.
- Ditto for `cast(T[]) arr` if it will clearly always succeed.
(e.g. if the length of the original array is zero, or if the old element
size is a multiple of the new element size)
author | Frits van Bommel <fvbommel wxs.nl> |
---|---|
date | Tue, 28 Apr 2009 21:58:06 +0200 |
parents | f04dde6e882c |
children | 638d16625da2 |
line wrap: on
line source
// Compiler implementation of the D programming language // Copyright (c) 1999-2007 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 <assert.h> #include <math.h> #include "mars.h" #include "declaration.h" #include "attrib.h" #include "expression.h" #include "scope.h" #include "mtype.h" #include "aggregate.h" #include "identifier.h" #include "id.h" #include "module.h" /********************************** * Determine if function is a builtin one. */ enum BUILTIN FuncDeclaration::isBuiltin() { static const char FeZe[] = "FeZe"; // real function(real) //printf("FuncDeclaration::isBuiltin() %s\n", toChars()); if (builtin == BUILTINunknown) { builtin = BUILTINnot; if (parent && parent->isModule()) { if (parent->ident == Id::math && parent->parent && parent->parent->ident == Id::std && !parent->parent->parent) { if (strcmp(type->deco, FeZe) == 0) { if (ident == Id::sin) builtin = BUILTINsin; else if (ident == Id::cos) builtin = BUILTINcos; else if (ident == Id::tan) builtin = BUILTINtan; else if (ident == Id::_sqrt) builtin = BUILTINsqrt; else if (ident == Id::fabs) builtin = BUILTINfabs; //printf("builtin = %d\n", builtin); } } } } return builtin; } /************************************** * Evaluate builtin function. * Return result; NULL if cannot evaluate it. */ Expression *eval_builtin(enum BUILTIN builtin, Expressions *arguments) { assert(arguments && arguments->dim); Expression *arg0 = (Expression *)arguments->data[0]; Expression *e = NULL; switch (builtin) { case BUILTINsin: if (arg0->op == TOKfloat64) e = new RealExp(0, sinl(arg0->toReal()), Type::tfloat80); break; case BUILTINcos: if (arg0->op == TOKfloat64) e = new RealExp(0, cosl(arg0->toReal()), Type::tfloat80); break; case BUILTINtan: if (arg0->op == TOKfloat64) e = new RealExp(0, tanl(arg0->toReal()), Type::tfloat80); break; case BUILTINsqrt: if (arg0->op == TOKfloat64) e = new RealExp(0, sqrtl(arg0->toReal()), Type::tfloat80); break; case BUILTINfabs: if (arg0->op == TOKfloat64) e = new RealExp(0, fabsl(arg0->toReal()), Type::tfloat80); break; } return e; }