projects/ldc: dmd/interpret.c annotate

annotate dmd/interpret.c @ 1621:fb2e6707ad17

Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Both DMD revisions are for fixing bugzilla 2029 (Typesafe variadic functions don't work in CTFE). The DMD r314 commit message is: bugzilla 2029 (Typesafe variadic functions don't work in CTFE The DMD r315 commit message is: bugzilla 2029 - try again --- dmd/constfold.c | 11 ++++- dmd/declaration.c | 21 +++++++++- dmd/declaration.h | 10 ++++- dmd/expression.c | 1 + dmd/interpret.c | 111 +++++++++++++++++++++++++++++++++++++++++++++-------- dmd/mars.h | 2 +- dmd/mtype.c | 2 +- 7 files changed, 135 insertions(+), 23 deletions(-)

author	Leandro Lucarella <llucax@gmail.com>
date	Wed, 06 Jan 2010 15:18:22 -0300
parents	0333945a915e
children	e83f0778c260

rev	line source
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2 // Compiler implementation of the D programming language
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	3 // Copyright (c) 1999-2009 by Digital Mars
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	4 // All Rights Reserved
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	5 // written by Walter Bright
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	6 // http://www.digitalmars.com
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	7 // License for redistribution is by either the Artistic License
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	8 // in artistic.txt, or the GNU General Public License in gnu.txt.
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	9 // See the included readme.txt for details.
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	10
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	11 #include <stdio.h>
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	12 #include <stdlib.h>
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	13 #include <assert.h>
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	14
1103 b30fe7e1dbb9 - Updated to DMD frontend 1.041. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 913 diff changeset	15 #include "rmem.h"
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	16
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	17 #include "statement.h"
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	18 #include "expression.h"
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	19 #include "cond.h"
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	20 #include "init.h"
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	21 #include "staticassert.h"
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	22 #include "mtype.h"
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	23 #include "scope.h"
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	24 #include "declaration.h"
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	25 #include "aggregate.h"
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	26 #include "id.h"
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	27
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	28 #define LOG 0
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	29
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	30 struct InterState
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	31 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	32 InterState *caller; // calling function's InterState
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	33 FuncDeclaration *fd; // function being interpreted
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	34 Dsymbols vars; // variables used in this function
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	35 Statement *start; // if !=NULL, start execution at this statement
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	36 Statement *gotoTarget; // target of EXP_GOTO_INTERPRET result
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	37 Expression *localThis; // value of 'this', or NULL if none
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	38
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	39 InterState();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	40 };
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	41
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	42 InterState::InterState()
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	43 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	44 memset(this, 0, sizeof(InterState));
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	45 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	46
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	47 Expression interpret_aaLen(InterState istate, Expressions *arguments);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	48 Expression interpret_aaKeys(InterState istate, Expressions *arguments);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	49 Expression interpret_aaValues(InterState istate, Expressions *arguments);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	50
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	51 Expression interpret_length(InterState istate, Expression *earg);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	52 Expression interpret_keys(InterState istate, Expression earg, FuncDeclaration fd);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	53 Expression interpret_values(InterState istate, Expression earg, FuncDeclaration fd);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	54
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	55 /*************************************
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	56 * Attempt to interpret a function given the arguments.
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	57 * Input:
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	58 * istate state for calling function (NULL if none)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	59 * arguments function arguments
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	60 * thisarg 'this', if a needThis() function, NULL if not.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	61 *
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	62 * Return result expression if successful, NULL if not.
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	63 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	64
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	65 Expression FuncDeclaration::interpret(InterState istate, Expressions arguments, Expression thisarg)
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	66 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	67 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	68 printf("\n********\nFuncDeclaration::interpret(istate = %p) %s\n", istate, toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	69 printf("cantInterpret = %d, semanticRun = %d\n", cantInterpret, semanticRun);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	70 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	71 if (global.errors)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	72 return NULL;
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	73
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	74 #if DMDV1
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	75 if (ident == Id::aaLen)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	76 return interpret_aaLen(istate, arguments);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	77 else if (ident == Id::aaKeys)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	78 return interpret_aaKeys(istate, arguments);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	79 else if (ident == Id::aaValues)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	80 return interpret_aaValues(istate, arguments);
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	81 #endif
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	82 #if DMDV2
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	83 if (thisarg &&
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	84 (!arguments \|\| arguments->dim == 0))
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	85 {
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	86 if (ident == Id::length)
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	87 return interpret_length(istate, thisarg);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	88 else if (ident == Id::keys)
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	89 return interpret_keys(istate, thisarg, this);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	90 else if (ident == Id::values)
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	91 return interpret_values(istate, thisarg, this);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	92 }
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	93 #endif
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	94
1367 8026319762be Merged DMD 1.045 !!! Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1334 diff changeset	95 if (cantInterpret \|\| semanticRun == 3)
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	96 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	97
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	98 if (!fbody)
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	99 { cantInterpret = 1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	100 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	101 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	102
1367 8026319762be Merged DMD 1.045 !!! Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1334 diff changeset	103 if (semanticRun < 3 && scope)
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	104 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	105 semantic3(scope);
1103 b30fe7e1dbb9 - Updated to DMD frontend 1.041. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 913 diff changeset	106 if (global.errors) // if errors compiling this function
b30fe7e1dbb9 - Updated to DMD frontend 1.041. Tomas Lindquist Olsen <tomas.l.olsen gmail.com> parents: 913 diff changeset	107 return NULL;
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	108 }
1367 8026319762be Merged DMD 1.045 !!! Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1334 diff changeset	109 if (semanticRun < 4)
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	110 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	111
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	112 Type *tb = type->toBasetype();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	113 assert(tb->ty == Tfunction);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	114 TypeFunction tf = (TypeFunction )tb;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	115 Type *tret = tf->next->toBasetype();
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	116 if (tf->varargs && arguments && parameters && arguments->dim != parameters->dim)
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	117 { cantInterpret = 1;
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	118 error("C-style variadic functions are not yet implemented in CTFE");
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	119 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	120 }
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	121
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	122 // Ensure there are no lazy parameters
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	123 if (tf->parameters)
1607 207a8a438dea Merge DMD r253: refactor: Argument => Parameter Leandro Lucarella <llucax@gmail.com> parents: 1590 diff changeset	124 { size_t dim = Parameter::dim(tf->parameters);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	125 for (size_t i = 0; i < dim; i++)
1607 207a8a438dea Merge DMD r253: refactor: Argument => Parameter Leandro Lucarella <llucax@gmail.com> parents: 1590 diff changeset	126 { Parameter *arg = Parameter::getNth(tf->parameters, i);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	127 if (arg->storageClass & STClazy)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	128 { cantInterpret = 1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	129 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	130 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	131 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	132 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	133
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	134 InterState istatex;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	135 istatex.caller = istate;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	136 istatex.fd = this;
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	137 istatex.localThis = thisarg;
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	138
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	139 Expressions vsave; // place to save previous parameter values
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	140 size_t dim = 0;
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	141 if (needThis() && !thisarg)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	142 { cantInterpret = 1;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	143 // error, no this. Prevent segfault.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	144 error("need 'this' to access member %s", toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	145 return NULL;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	146 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	147 if (arguments)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	148 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	149 dim = arguments->dim;
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	150 assert(!dim \|\| (parameters && (parameters->dim == dim)));
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	151 vsave.setDim(dim);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	152
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	153 /* Evaluate all the arguments to the function,
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	154 * store the results in eargs[]
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	155 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	156 Expressions eargs;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	157 eargs.setDim(dim);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	158
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	159 for (size_t i = 0; i < dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	160 { Expression earg = (Expression )arguments->data[i];
1607 207a8a438dea Merge DMD r253: refactor: Argument => Parameter Leandro Lucarella <llucax@gmail.com> parents: 1590 diff changeset	161 Parameter *arg = Parameter::getNth(tf->parameters, i);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	162
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	163 if (arg->storageClass & (STCout \| STCref))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	164 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	165 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	166 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	167 { /* Value parameters
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	168 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	169 Type *ta = arg->type->toBasetype();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	170 if (ta->ty == Tsarray && earg->op == TOKaddress)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	171 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	172 /* Static arrays are passed by a simple pointer.
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	173 * Skip past this to get at the actual arg.
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	174 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	175 earg = ((AddrExp *)earg)->e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	176 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	177 earg = earg->interpret(istate ? istate : &istatex);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	178 if (earg == EXP_CANT_INTERPRET)
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	179 { cantInterpret = 1;
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	180 return NULL;
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	181 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	182 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	183 eargs.data[i] = earg;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	184 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	185
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	186 for (size_t i = 0; i < dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	187 { Expression earg = (Expression )eargs.data[i];
1607 207a8a438dea Merge DMD r253: refactor: Argument => Parameter Leandro Lucarella <llucax@gmail.com> parents: 1590 diff changeset	188 Parameter *arg = Parameter::getNth(tf->parameters, i);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	189 VarDeclaration v = (VarDeclaration )parameters->data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	190 vsave.data[i] = v->value;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	191 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	192 printf("arg[%d] = %s\n", i, earg->toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	193 #endif
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	194 if (arg->storageClass & (STCout \| STCref) && earg->op==TOKvar)
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	195 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	196 /* Bind out or ref parameter to the corresponding
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	197 * variable v2
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	198 */
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	199 if (!istate)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	200 { cantInterpret = 1;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	201 error("%s cannot be by passed by reference at compile time", earg->toChars());
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	202 return NULL; // can't bind to non-interpreted vars
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	203 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	204 // We need to chase down all of the the passed parameters until
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	205 // we find something that isn't a TOKvar, then create a variable
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	206 // containg that expression.
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	207 VarDeclaration *v2;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	208 while (1)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	209 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	210 VarExp ve = (VarExp )earg;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	211 v2 = ve->var->isVarDeclaration();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	212 if (!v2)
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	213 { cantInterpret = 1;
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	214 return NULL;
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	215 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	216 if (!v2->value \|\| v2->value->op != TOKvar)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	217 break;
1590 8aa756a00228 Replace DMD's isSymbolDeclaration with isStaticStructInitDeclaration. Christian Kamm <kamm incasoftware de> parents: 1587 diff changeset	218 if (((VarExp *)v2->value)->var->isStaticStructInitDeclaration())
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	219 { // This can happen if v is a struct initialized to
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	220 // 0 using an __initZ SymbolDeclaration from
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	221 // TypeStruct::defaultInit()
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	222 break; // eg default-initialized variable
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	223 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	224 earg = v2->value;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	225 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	226
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	227 v->value = new VarExp(earg->loc, v2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	228
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	229 /* Don't restore the value of v2 upon function return
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	230 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	231 assert(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	232 for (size_t i = 0; i < istate->vars.dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	233 { VarDeclaration v = (VarDeclaration )istate->vars.data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	234 if (v == v2)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	235 { istate->vars.data[i] = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	236 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	237 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	238 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	239 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	240 else
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	241 { // Value parameters and non-trivial references
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	242 v->value = earg;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	243 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	244 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	245 printf("interpreted arg[%d] = %s\n", i, earg->toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	246 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	247 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	248 }
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	249 // Don't restore the value of 'this' upon function return
1620 0333945a915e Merge DMD r310: bugzilla 3645 manifest constant (enum) crashes dmd Leandro Lucarella <llucax@gmail.com> parents: 1619 diff changeset	250 if (needThis() && thisarg->op == TOKvar && istate)
0333945a915e Merge DMD r310: bugzilla 3645 manifest constant (enum) crashes dmd Leandro Lucarella <llucax@gmail.com> parents: 1619 diff changeset	251 {
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	252 VarDeclaration thisvar = ((VarExp )(thisarg))->var->isVarDeclaration();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	253 for (size_t i = 0; i < istate->vars.dim; i++)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	254 { VarDeclaration v = (VarDeclaration )istate->vars.data[i];
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	255 if (v == thisvar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	256 { istate->vars.data[i] = NULL;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	257 break;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	258 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	259 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	260 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	261
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	262 /* Save the values of the local variables used
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	263 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	264 Expressions valueSaves;
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	265 if (istate && !isNested())
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	266 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	267 //printf("saving local variables...\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	268 valueSaves.setDim(istate->vars.dim);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	269 for (size_t i = 0; i < istate->vars.dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	270 { VarDeclaration v = (VarDeclaration )istate->vars.data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	271 if (v)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	272 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	273 //printf("\tsaving [%d] %s = %s\n", i, v->toChars(), v->value ? v->value->toChars() : "");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	274 valueSaves.data[i] = v->value;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	275 v->value = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	276 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	277 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	278 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	279
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	280 Expression *e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	281 while (1)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	282 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	283 e = fbody->interpret(&istatex);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	284 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	285 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	286 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	287 printf("function body failed to interpret\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	288 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	289 e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	290 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	291
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	292 /* This is how we deal with a recursive statement AST
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	293 * that has arbitrary goto statements in it.
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	294 * Bubble up a 'result' which is the target of the goto
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	295 * statement, then go recursively down the AST looking
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	296 * for that statement, then execute starting there.
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	297 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	298 if (e == EXP_GOTO_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	299 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	300 istatex.start = istatex.gotoTarget; // set starting statement
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	301 istatex.gotoTarget = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	302 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	303 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	304 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	305 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	306 /* Restore the parameter values
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	307 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	308 for (size_t i = 0; i < dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	309 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	310 VarDeclaration v = (VarDeclaration )parameters->data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	311 v->value = (Expression *)vsave.data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	312 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	313
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	314 if (istate && !isNested())
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	315 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	316 /* Restore the variable values
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	317 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	318 //printf("restoring local variables...\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	319 for (size_t i = 0; i < istate->vars.dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	320 { VarDeclaration v = (VarDeclaration )istate->vars.data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	321 if (v)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	322 { v->value = (Expression *)valueSaves.data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	323 //printf("\trestoring [%d] %s = %s\n", i, v->toChars(), v->value ? v->value->toChars() : "");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	324 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	325 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	326 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	327 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	328 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	329
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	330 /****************************** Statement *************************/
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	331
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	332 #define START() \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	333 if (istate->start) \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	334 { if (istate->start != this) \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	335 return NULL; \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	336 istate->start = NULL; \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	337 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	338
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	339 /***********************************
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	340 * Interpret the statement.
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	341 * Returns:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	342 * NULL continue to next statement
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	343 * EXP_CANT_INTERPRET cannot interpret statement at compile time
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	344 * !NULL expression from return statement
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	345 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	346
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	347 Expression Statement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	348 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	349 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	350 printf("Statement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	351 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	352 START()
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	353 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	354 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	355
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	356 Expression ExpStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	357 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	358 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	359 printf("ExpStatement::interpret(%s)\n", exp ? exp->toChars() : "");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	360 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	361 START()
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	362 if (exp)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	363 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	364 Expression *e = exp->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	365 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	366 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	367 //printf("-ExpStatement::interpret(): %p\n", e);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	368 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	369 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	370 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	371 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	372 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	373
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	374 Expression CompoundStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	375 { Expression *e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	376
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	377 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	378 printf("CompoundStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	379 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	380 if (istate->start == this)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	381 istate->start = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	382 if (statements)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	383 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	384 for (size_t i = 0; i < statements->dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	385 { Statement s = (Statement )statements->data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	386
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	387 if (s)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	388 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	389 e = s->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	390 if (e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	391 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	392 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	393 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	394 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	395 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	396 printf("-CompoundStatement::interpret() %p\n", e);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	397 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	398 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	399 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	400
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	401 Expression UnrolledLoopStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	402 { Expression *e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	403
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	404 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	405 printf("UnrolledLoopStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	406 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	407 if (istate->start == this)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	408 istate->start = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	409 if (statements)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	410 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	411 for (size_t i = 0; i < statements->dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	412 { Statement s = (Statement )statements->data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	413
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	414 e = s->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	415 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	416 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	417 if (e == EXP_CONTINUE_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	418 { e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	419 continue;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	420 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	421 if (e == EXP_BREAK_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	422 { e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	423 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	424 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	425 if (e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	426 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	427 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	428 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	429 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	430 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	431
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	432 Expression IfStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	433 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	434 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	435 printf("IfStatement::interpret(%s)\n", condition->toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	436 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	437
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	438 if (istate->start == this)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	439 istate->start = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	440 if (istate->start)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	441 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	442 Expression *e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	443 if (ifbody)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	444 e = ifbody->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	445 if (istate->start && elsebody)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	446 e = elsebody->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	447 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	448 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	449
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	450 Expression *e = condition->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	451 assert(e);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	452 //if (e == EXP_CANT_INTERPRET) printf("cannot interpret\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	453 if (e != EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	454 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	455 if (e->isBool(TRUE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	456 e = ifbody ? ifbody->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	457 else if (e->isBool(FALSE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	458 e = elsebody ? elsebody->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	459 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	460 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	461 e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	462 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	463 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	464 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	465 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	466
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	467 Expression ScopeStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	468 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	469 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	470 printf("ScopeStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	471 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	472 if (istate->start == this)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	473 istate->start = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	474 return statement ? statement->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	475 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	476
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	477 Expression ReturnStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	478 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	479 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	480 printf("ReturnStatement::interpret(%s)\n", exp ? exp->toChars() : "");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	481 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	482 START()
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	483 if (!exp)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	484 return EXP_VOID_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	485 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	486 Expression *e = exp->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	487 printf("e = %p\n", e);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	488 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	489 #else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	490 return exp->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	491 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	492 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	493
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	494 Expression BreakStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	495 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	496 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	497 printf("BreakStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	498 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	499 START()
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	500 if (ident)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	501 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	502 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	503 return EXP_BREAK_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	504 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	505
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	506 Expression ContinueStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	507 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	508 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	509 printf("ContinueStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	510 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	511 START()
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	512 if (ident)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	513 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	514 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	515 return EXP_CONTINUE_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	516 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	517
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	518 Expression WhileStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	519 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	520 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	521 printf("WhileStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	522 #endif
1613 8f50a13d09a0 Merge DMD r286: remove dead code Leandro Lucarella <llucax@gmail.com> parents: 1607 diff changeset	523 assert(0); // rewritten to ForStatement
8f50a13d09a0 Merge DMD r286: remove dead code Leandro Lucarella <llucax@gmail.com> parents: 1607 diff changeset	524 return NULL;
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	525 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	526
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	527 Expression DoStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	528 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	529 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	530 printf("DoStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	531 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	532 if (istate->start == this)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	533 istate->start = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	534 Expression *e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	535
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	536 if (istate->start)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	537 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	538 e = body ? body->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	539 if (istate->start)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	540 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	541 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	542 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	543 if (e == EXP_BREAK_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	544 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	545 if (e == EXP_CONTINUE_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	546 goto Lcontinue;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	547 if (e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	548 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	549 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	550
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	551 while (1)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	552 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	553 e = body ? body->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	554 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	555 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	556 if (e == EXP_BREAK_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	557 { e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	558 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	559 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	560 if (e && e != EXP_CONTINUE_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	561 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	562
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	563 Lcontinue:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	564 e = condition->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	565 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	566 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	567 if (!e->isConst())
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	568 { e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	569 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	570 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	571 if (e->isBool(TRUE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	572 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	573 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	574 else if (e->isBool(FALSE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	575 { e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	576 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	577 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	578 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	579 assert(0);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	580 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	581 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	582 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	583
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	584 Expression ForStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	585 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	586 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	587 printf("ForStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	588 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	589 if (istate->start == this)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	590 istate->start = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	591 Expression *e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	592
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	593 if (init)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	594 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	595 e = init->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	596 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	597 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	598 assert(!e);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	599 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	600
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	601 if (istate->start)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	602 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	603 e = body ? body->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	604 if (istate->start)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	605 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	606 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	607 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	608 if (e == EXP_BREAK_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	609 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	610 if (e == EXP_CONTINUE_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	611 goto Lcontinue;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	612 if (e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	613 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	614 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	615
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	616 while (1)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	617 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	618 if (!condition)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	619 goto Lhead;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	620 e = condition->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	621 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	622 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	623 if (!e->isConst())
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	624 { e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	625 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	626 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	627 if (e->isBool(TRUE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	628 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	629 Lhead:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	630 e = body ? body->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	631 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	632 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	633 if (e == EXP_BREAK_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	634 { e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	635 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	636 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	637 if (e && e != EXP_CONTINUE_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	638 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	639 Lcontinue:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	640 if (increment)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	641 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	642 e = increment->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	643 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	644 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	645 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	646 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	647 else if (e->isBool(FALSE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	648 { e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	649 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	650 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	651 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	652 assert(0);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	653 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	654 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	655 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	656
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	657 Expression ForeachStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	658 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	659 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	660 printf("ForeachStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	661 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	662 if (istate->start == this)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	663 istate->start = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	664 if (istate->start)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	665 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	666
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	667 Expression *e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	668 Expression *eaggr;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	669
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	670 if (value->isOut() \|\| value->isRef())
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	671 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	672
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	673 eaggr = aggr->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	674 if (eaggr == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	675 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	676
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	677 Expression *dim = ArrayLength(Type::tsize_t, eaggr);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	678 if (dim == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	679 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	680
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	681 Expression *keysave = key ? key->value : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	682 Expression *valuesave = value->value;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	683
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	684 uinteger_t d = dim->toUInteger();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	685 uinteger_t index;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	686
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	687 if (op == TOKforeach)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	688 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	689 for (index = 0; index < d; index++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	690 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	691 Expression *ekey = new IntegerExp(loc, index, Type::tsize_t);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	692 if (key)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	693 key->value = ekey;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	694 e = Index(value->type, eaggr, ekey);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	695 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	696 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	697 value->value = e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	698
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	699 e = body ? body->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	700 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	701 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	702 if (e == EXP_BREAK_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	703 { e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	704 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	705 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	706 if (e == EXP_CONTINUE_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	707 e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	708 else if (e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	709 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	710 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	711 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	712 else // TOKforeach_reverse
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	713 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	714 for (index = d; index-- != 0;)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	715 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	716 Expression *ekey = new IntegerExp(loc, index, Type::tsize_t);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	717 if (key)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	718 key->value = ekey;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	719 e = Index(value->type, eaggr, ekey);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	720 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	721 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	722 value->value = e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	723
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	724 e = body ? body->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	725 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	726 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	727 if (e == EXP_BREAK_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	728 { e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	729 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	730 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	731 if (e == EXP_CONTINUE_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	732 e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	733 else if (e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	734 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	735 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	736 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	737 value->value = valuesave;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	738 if (key)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	739 key->value = keysave;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	740 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	741 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	742
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	743 #if DMDV2
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	744 Expression ForeachRangeStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	745 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	746 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	747 printf("ForeachRangeStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	748 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	749 if (istate->start == this)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	750 istate->start = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	751 if (istate->start)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	752 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	753
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	754 Expression *e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	755 Expression *elwr = lwr->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	756 if (elwr == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	757 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	758
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	759 Expression *eupr = upr->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	760 if (eupr == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	761 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	762
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	763 Expression *keysave = key->value;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	764
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	765 if (op == TOKforeach)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	766 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	767 key->value = elwr;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	768
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	769 while (1)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	770 {
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	771 e = Cmp(TOKlt, key->value->type, key->value, eupr);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	772 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	773 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	774 if (e->isBool(TRUE) == FALSE)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	775 { e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	776 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	777 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	778
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	779 e = body ? body->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	780 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	781 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	782 if (e == EXP_BREAK_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	783 { e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	784 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	785 }
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	786 if (e == NULL \|\| e == EXP_CONTINUE_INTERPRET)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	787 { e = Add(key->value->type, key->value, new IntegerExp(loc, 1, key->value->type));
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	788 if (e == EXP_CANT_INTERPRET)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	789 break;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	790 key->value = e;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	791 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	792 else
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	793 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	794 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	795 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	796 else // TOKforeach_reverse
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	797 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	798 key->value = eupr;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	799
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	800 do
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	801 {
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	802 e = Cmp(TOKgt, key->value->type, key->value, elwr);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	803 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	804 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	805 if (e->isBool(TRUE) == FALSE)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	806 { e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	807 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	808 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	809
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	810 e = Min(key->value->type, key->value, new IntegerExp(loc, 1, key->value->type));
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	811 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	812 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	813 key->value = e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	814
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	815 e = body ? body->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	816 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	817 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	818 if (e == EXP_BREAK_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	819 { e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	820 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	821 }
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	822 } while (e == NULL \|\| e == EXP_CONTINUE_INTERPRET);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	823 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	824 key->value = keysave;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	825 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	826 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	827 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	828
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	829 Expression SwitchStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	830 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	831 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	832 printf("SwitchStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	833 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	834 if (istate->start == this)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	835 istate->start = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	836 Expression *e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	837
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	838 if (istate->start)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	839 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	840 e = body ? body->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	841 if (istate->start)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	842 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	843 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	844 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	845 if (e == EXP_BREAK_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	846 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	847 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	848 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	849
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	850
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	851 Expression *econdition = condition->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	852 if (econdition == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	853 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	854
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	855 Statement *s = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	856 if (cases)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	857 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	858 for (size_t i = 0; i < cases->dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	859 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	860 CaseStatement cs = (CaseStatement )cases->data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	861 e = Equal(TOKequal, Type::tint32, econdition, cs->exp);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	862 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	863 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	864 if (e->isBool(TRUE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	865 { s = cs;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	866 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	867 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	868 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	869 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	870 if (!s)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	871 { if (hasNoDefault)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	872 error("no default or case for %s in switch statement", econdition->toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	873 s = sdefault;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	874 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	875
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	876 assert(s);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	877 istate->start = s;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	878 e = body ? body->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	879 assert(!istate->start);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	880 if (e == EXP_BREAK_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	881 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	882 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	883 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	884
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	885 Expression CaseStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	886 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	887 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	888 printf("CaseStatement::interpret(%s) this = %p\n", exp->toChars(), this);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	889 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	890 if (istate->start == this)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	891 istate->start = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	892 if (statement)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	893 return statement->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	894 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	895 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	896 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	897
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	898 Expression DefaultStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	899 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	900 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	901 printf("DefaultStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	902 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	903 if (istate->start == this)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	904 istate->start = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	905 if (statement)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	906 return statement->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	907 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	908 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	909 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	910
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	911 Expression GotoStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	912 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	913 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	914 printf("GotoStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	915 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	916 START()
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	917 assert(label && label->statement);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	918 istate->gotoTarget = label->statement;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	919 return EXP_GOTO_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	920 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	921
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	922 Expression GotoCaseStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	923 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	924 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	925 printf("GotoCaseStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	926 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	927 START()
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	928 assert(cs);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	929 istate->gotoTarget = cs;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	930 return EXP_GOTO_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	931 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	932
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	933 Expression GotoDefaultStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	934 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	935 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	936 printf("GotoDefaultStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	937 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	938 START()
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	939 assert(sw && sw->sdefault);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	940 istate->gotoTarget = sw->sdefault;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	941 return EXP_GOTO_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	942 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	943
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	944 Expression LabelStatement::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	945 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	946 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	947 printf("LabelStatement::interpret()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	948 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	949 if (istate->start == this)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	950 istate->start = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	951 return statement ? statement->interpret(istate) : NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	952 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	953
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	954 /****************************** Expression *************************/
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	955
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	956 Expression Expression::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	957 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	958 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	959 printf("Expression::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	960 printf("type = %s\n", type->toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	961 dump(0);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	962 #endif
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	963 error("Cannot interpret %s at compile time", toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	964 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	965 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	966
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	967 Expression ThisExp::interpret(InterState istate)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	968 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	969 if (istate->localThis)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	970 return istate->localThis->interpret(istate);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	971 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	972 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	973
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	974 Expression NullExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	975 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	976 return this;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	977 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	978
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	979 Expression IntegerExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	980 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	981 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	982 printf("IntegerExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	983 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	984 return this;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	985 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	986
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	987 Expression RealExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	988 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	989 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	990 printf("RealExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	991 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	992 return this;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	993 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	994
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	995 Expression ComplexExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	996 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	997 return this;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	998 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	999
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1000 Expression StringExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1001 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1002 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1003 printf("StringExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1004 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1005 return this;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1006 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1007
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1008 Expression getVarExp(Loc loc, InterState istate, Declaration *d)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1009 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1010 Expression *e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1011 VarDeclaration *v = d->isVarDeclaration();
913 29c0d1194033 Fix #198 and #199 by making CTFE on static struct initializers work. Christian Kamm <kamm incasoftware de> parents: 875 diff changeset	1012 StaticStructInitDeclaration *s = d->isStaticStructInitDeclaration();
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1013 if (v)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1014 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1015 #if DMDV2
1619 c61782a76dff Merge DMD r304: refactor invariant => immutable Leandro Lucarella <llucax@gmail.com> parents: 1613 diff changeset	1016 if ((v->isConst() \|\| v->isImmutable() \|\| v->storage_class & STCmanifest) && v->init && !v->value)
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1017 #else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1018 if (v->isConst() && v->init)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1019 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1020 { e = v->init->toExpression();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1021 if (e && !e->type)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1022 e->type = v->type;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1023 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1024 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1025 { e = v->value;
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1026 if (!v->isCTFE())
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1027 { error(loc, "static variable %s cannot be read at compile time", v->toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1028 e = EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1029 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1030 else if (!e)
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1031 error(loc, "variable %s is used before initialization", v->toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1032 else if (e != EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1033 e = e->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1034 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1035 if (!e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1036 e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1037 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1038 else if (s)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1039 {
913 29c0d1194033 Fix #198 and #199 by making CTFE on static struct initializers work. Christian Kamm <kamm incasoftware de> parents: 875 diff changeset	1040 Expressions *exps = new Expressions();
29c0d1194033 Fix #198 and #199 by making CTFE on static struct initializers work. Christian Kamm <kamm incasoftware de> parents: 875 diff changeset	1041 e = new StructLiteralExp(0, s->dsym, exps);
29c0d1194033 Fix #198 and #199 by making CTFE on static struct initializers work. Christian Kamm <kamm incasoftware de> parents: 875 diff changeset	1042 e = e->semantic(NULL);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1043 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1044 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1045 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1046
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1047 Expression VarExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1048 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1049 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1050 printf("VarExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1051 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1052 return getVarExp(loc, istate, var);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1053 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1054
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1055 Expression DeclarationExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1056 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1057 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1058 printf("DeclarationExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1059 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1060 Expression *e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1061 VarDeclaration *v = declaration->isVarDeclaration();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1062 if (v)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1063 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1064 Dsymbol *s = v->toAlias();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1065 if (s == v && !v->isStatic() && v->init)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1066 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1067 ExpInitializer *ie = v->init->isExpInitializer();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1068 if (ie)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1069 e = ie->exp->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1070 else if (v->init->isVoidInitializer())
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1071 e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1072 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1073 #if DMDV2
1619 c61782a76dff Merge DMD r304: refactor invariant => immutable Leandro Lucarella <llucax@gmail.com> parents: 1613 diff changeset	1074 else if (s == v && (v->isConst() \|\| v->isImmutable()) && v->init)
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1075 #else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1076 else if (s == v && v->isConst() && v->init)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1077 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1078 { e = v->init->toExpression();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1079 if (!e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1080 e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1081 else if (!e->type)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1082 e->type = v->type;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1083 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1084 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1085 else if (declaration->isAttribDeclaration() \|\|
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1086 declaration->isTemplateMixin() \|\|
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1087 declaration->isTupleDeclaration())
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1088 { // These can be made to work, too lazy now
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1089 error("Declaration %s is not yet implemented in CTFE", toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1090
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1091 e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1092 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1093 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1094 { // Others should not contain executable code, so are trivial to evaluate
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1095 e = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1096 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1097 #if LOG
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1098 printf("-DeclarationExp::interpret(%s): %p\n", toChars(), e);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1099 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1100 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1101 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1102
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1103 Expression TupleExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1104 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1105 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1106 printf("TupleExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1107 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1108 Expressions *expsx = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1109
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1110 for (size_t i = 0; i < exps->dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1111 { Expression e = (Expression )exps->data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1112 Expression *ex;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1113
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1114 ex = e->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1115 if (ex == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1116 { delete expsx;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1117 return ex;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1118 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1119
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1120 /* If any changes, do Copy On Write
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1121 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1122 if (ex != e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1123 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1124 if (!expsx)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1125 { expsx = new Expressions();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1126 expsx->setDim(exps->dim);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1127 for (size_t j = 0; j < i; j++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1128 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1129 expsx->data[j] = exps->data[j];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1130 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1131 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1132 expsx->data[i] = (void *)ex;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1133 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1134 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1135 if (expsx)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1136 { TupleExp *te = new TupleExp(loc, expsx);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1137 expandTuples(te->exps);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1138 te->type = new TypeTuple(te->exps);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1139 return te;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1140 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1141 return this;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1142 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1143
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1144 Expression ArrayLiteralExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1145 { Expressions *expsx = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1146
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1147 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1148 printf("ArrayLiteralExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1149 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1150 if (elements)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1151 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1152 for (size_t i = 0; i < elements->dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1153 { Expression e = (Expression )elements->data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1154 Expression *ex;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1155
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1156 ex = e->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1157 if (ex == EXP_CANT_INTERPRET)
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1158 goto Lerror;
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1159
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1160 /* If any changes, do Copy On Write
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1161 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1162 if (ex != e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1163 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1164 if (!expsx)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1165 { expsx = new Expressions();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1166 expsx->setDim(elements->dim);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1167 for (size_t j = 0; j < elements->dim; j++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1168 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1169 expsx->data[j] = elements->data[j];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1170 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1171 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1172 expsx->data[i] = (void *)ex;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1173 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1174 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1175 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1176 if (elements && expsx)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1177 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1178 expandTuples(expsx);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1179 if (expsx->dim != elements->dim)
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1180 goto Lerror;
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1181 ArrayLiteralExp *ae = new ArrayLiteralExp(loc, expsx);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1182 ae->type = type;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1183 return ae;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1184 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1185 return this;
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1186
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1187 Lerror:
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1188 if (expsx)
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1189 delete expsx;
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1190 error("cannot interpret array literal");
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1191 return EXP_CANT_INTERPRET;
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1192 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1193
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1194 Expression AssocArrayLiteralExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1195 { Expressions *keysx = keys;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1196 Expressions *valuesx = values;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1197
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1198 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1199 printf("AssocArrayLiteralExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1200 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1201 for (size_t i = 0; i < keys->dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1202 { Expression ekey = (Expression )keys->data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1203 Expression evalue = (Expression )values->data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1204 Expression *ex;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1205
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1206 ex = ekey->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1207 if (ex == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1208 goto Lerr;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1209
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1210 /* If any changes, do Copy On Write
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1211 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1212 if (ex != ekey)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1213 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1214 if (keysx == keys)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1215 keysx = (Expressions *)keys->copy();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1216 keysx->data[i] = (void *)ex;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1217 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1218
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1219 ex = evalue->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1220 if (ex == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1221 goto Lerr;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1222
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1223 /* If any changes, do Copy On Write
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1224 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1225 if (ex != evalue)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1226 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1227 if (valuesx == values)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1228 valuesx = (Expressions *)values->copy();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1229 valuesx->data[i] = (void *)ex;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1230 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1231 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1232 if (keysx != keys)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1233 expandTuples(keysx);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1234 if (valuesx != values)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1235 expandTuples(valuesx);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1236 if (keysx->dim != valuesx->dim)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1237 goto Lerr;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1238
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1239 /* Remove duplicate keys
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1240 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1241 for (size_t i = 1; i < keysx->dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1242 { Expression ekey = (Expression )keysx->data[i - 1];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1243
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1244 for (size_t j = i; j < keysx->dim; j++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1245 { Expression ekey2 = (Expression )keysx->data[j];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1246 Expression *ex = Equal(TOKequal, Type::tbool, ekey, ekey2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1247 if (ex == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1248 goto Lerr;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1249 if (ex->isBool(TRUE)) // if a match
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1250 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1251 // Remove ekey
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1252 if (keysx == keys)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1253 keysx = (Expressions *)keys->copy();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1254 if (valuesx == values)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1255 valuesx = (Expressions *)values->copy();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1256 keysx->remove(i - 1);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1257 valuesx->remove(i - 1);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1258 i -= 1; // redo the i'th iteration
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1259 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1260 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1261 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1262 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1263
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1264 if (keysx != keys \|\| valuesx != values)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1265 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1266 AssocArrayLiteralExp *ae;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1267 ae = new AssocArrayLiteralExp(loc, keysx, valuesx);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1268 ae->type = type;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1269 return ae;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1270 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1271 return this;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1272
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1273 Lerr:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1274 if (keysx != keys)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1275 delete keysx;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1276 if (valuesx != values)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1277 delete values;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1278 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1279 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1280
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1281 Expression StructLiteralExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1282 { Expressions *expsx = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1283
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1284 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1285 printf("StructLiteralExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1286 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1287 /* We don't know how to deal with overlapping fields
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1288 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1289 if (sd->hasUnions)
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1290 { error("Unions with overlapping fields are not yet supported in CTFE");
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1291 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1292 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1293
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1294 if (elements)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1295 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1296 for (size_t i = 0; i < elements->dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1297 { Expression e = (Expression )elements->data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1298 if (!e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1299 continue;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1300
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1301 Expression *ex = e->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1302 if (ex == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1303 { delete expsx;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1304 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1305 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1306
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1307 /* If any changes, do Copy On Write
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1308 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1309 if (ex != e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1310 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1311 if (!expsx)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1312 { expsx = new Expressions();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1313 expsx->setDim(elements->dim);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1314 for (size_t j = 0; j < elements->dim; j++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1315 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1316 expsx->data[j] = elements->data[j];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1317 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1318 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1319 expsx->data[i] = (void *)ex;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1320 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1321 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1322 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1323 if (elements && expsx)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1324 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1325 expandTuples(expsx);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1326 if (expsx->dim != elements->dim)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1327 { delete expsx;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1328 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1329 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1330 StructLiteralExp *se = new StructLiteralExp(loc, sd, expsx);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1331 se->type = type;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1332 return se;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1333 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1334 return this;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1335 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1336
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1337 Expression UnaExp::interpretCommon(InterState istate, Expression (fp)(Type , Expression ))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1338 { Expression *e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1339 Expression *e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1340
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1341 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1342 printf("UnaExp::interpretCommon() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1343 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1344 e1 = this->e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1345 if (e1 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1346 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1347 if (e1->isConst() != 1)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1348 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1349
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1350 e = (*fp)(type, e1);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1351 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1352
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1353 Lcant:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1354 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1355 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1356
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1357 #define UNA_INTERPRET(op) \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1358 Expression op##Exp::interpret(InterState istate) \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1359 { \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1360 return interpretCommon(istate, &op); \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1361 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1362
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1363 UNA_INTERPRET(Neg)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1364 UNA_INTERPRET(Com)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1365 UNA_INTERPRET(Not)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1366 UNA_INTERPRET(Bool)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1367
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1368
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1369 typedef Expression (fp_t)(Type , Expression , Expression *);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1370
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1371 Expression BinExp::interpretCommon(InterState istate, fp_t fp)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1372 { Expression *e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1373 Expression *e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1374 Expression *e2;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1375
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1376 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1377 printf("BinExp::interpretCommon() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1378 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1379 e1 = this->e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1380 if (e1 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1381 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1382 if (e1->isConst() != 1)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1383 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1384
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1385 e2 = this->e2->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1386 if (e2 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1387 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1388 if (e2->isConst() != 1)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1389 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1390
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1391 e = (*fp)(type, e1, e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1392 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1393
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1394 Lcant:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1395 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1396 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1397
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1398 #define BIN_INTERPRET(op) \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1399 Expression op##Exp::interpret(InterState istate) \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1400 { \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1401 return interpretCommon(istate, &op); \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1402 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1403
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1404 BIN_INTERPRET(Add)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1405 BIN_INTERPRET(Min)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1406 BIN_INTERPRET(Mul)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1407 BIN_INTERPRET(Div)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1408 BIN_INTERPRET(Mod)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1409 BIN_INTERPRET(Shl)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1410 BIN_INTERPRET(Shr)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1411 BIN_INTERPRET(Ushr)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1412 BIN_INTERPRET(And)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1413 BIN_INTERPRET(Or)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1414 BIN_INTERPRET(Xor)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1415
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1416
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1417 typedef Expression (fp2_t)(enum TOK, Type , Expression , Expression *);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1418
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1419 Expression BinExp::interpretCommon2(InterState istate, fp2_t fp)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1420 { Expression *e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1421 Expression *e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1422 Expression *e2;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1423
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1424 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1425 printf("BinExp::interpretCommon2() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1426 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1427 e1 = this->e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1428 if (e1 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1429 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1430 if (e1->isConst() != 1 &&
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1431 e1->op != TOKnull &&
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1432 e1->op != TOKstring &&
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1433 e1->op != TOKarrayliteral &&
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1434 e1->op != TOKstructliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1435 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1436
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1437 e2 = this->e2->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1438 if (e2 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1439 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1440 if (e2->isConst() != 1 &&
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1441 e2->op != TOKnull &&
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1442 e2->op != TOKstring &&
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1443 e2->op != TOKarrayliteral &&
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1444 e2->op != TOKstructliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1445 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1446
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1447 e = (*fp)(op, type, e1, e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1448 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1449
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1450 Lcant:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1451 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1452 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1453
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1454 #define BIN_INTERPRET2(op) \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1455 Expression op##Exp::interpret(InterState istate) \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1456 { \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1457 return interpretCommon2(istate, &op); \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1458 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1459
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1460 BIN_INTERPRET2(Equal)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1461 BIN_INTERPRET2(Identity)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1462 BIN_INTERPRET2(Cmp)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1463
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1464 /* Helper functions for BinExp::interpretAssignCommon
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1465 */
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1466
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1467 /***************************************
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1468 * Duplicate the elements array, then set field 'indexToChange' = newelem.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1469 */
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1470 Expressions changeOneElement(Expressions oldelems, size_t indexToChange, void *newelem)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1471 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1472 Expressions *expsx = new Expressions();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1473 expsx->setDim(oldelems->dim);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1474 for (size_t j = 0; j < expsx->dim; j++)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1475 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1476 if (j == indexToChange)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1477 expsx->data[j] = newelem;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1478 else
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1479 expsx->data[j] = oldelems->data[j];
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1480 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1481 return expsx;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1482 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1483
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1484 /***************************************
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1485 * Returns oldelems[0..insertpoint] ~ newelems ~ oldelems[insertpoint..$]
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1486 */
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1487 Expressions spliceElements(Expressions oldelems,
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1488 Expressions *newelems, size_t insertpoint)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1489 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1490 Expressions *expsx = new Expressions();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1491 expsx->setDim(oldelems->dim);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1492 for (size_t j = 0; j < expsx->dim; j++)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1493 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1494 if (j >= insertpoint && j < insertpoint + newelems->dim)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1495 expsx->data[j] = newelems->data[j - insertpoint];
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1496 else
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1497 expsx->data[j] = oldelems->data[j];
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1498 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1499 return expsx;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1500 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1501
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1502 /******************************
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1503 * Create an array literal consisting of 'elem' duplicated 'dim' times.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1504 */
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1505 ArrayLiteralExp createBlockDuplicatedArrayLiteral(Type type,
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1506 Expression *elem, size_t dim)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1507 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1508 Expressions *elements = new Expressions();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1509 elements->setDim(dim);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1510 for (size_t i = 0; i < dim; i++)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1511 elements->data[i] = elem;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1512 ArrayLiteralExp *ae = new ArrayLiteralExp(0, elements);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1513 ae->type = type;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1514 return ae;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1515 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1516
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1517
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1518 /********************************
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1519 * Necessary because defaultInit() for a struct is a VarExp, not a StructLiteralExp.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1520 */
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1521 StructLiteralExp createDefaultInitStructLiteral(Loc loc, StructDeclaration sym)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1522 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1523 Expressions *structelems = new Expressions();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1524 structelems->setDim(sym->fields.dim);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1525 for (size_t j = 0; j < structelems->dim; j++)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1526 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1527 structelems->data[j] = ((VarDeclaration *)(sym->fields.data[j]))->type->defaultInit();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1528 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1529 StructLiteralExp *structinit = new StructLiteralExp(loc, sym, structelems);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1530 // Why doesn't the StructLiteralExp constructor do this, when
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1531 // sym->type != NULL ?
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1532 structinit->type = sym->type;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1533 return structinit;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1534 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1535
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1536 /********************************
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1537 * Add v to the istate list, unless it already exists there.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1538 */
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1539 void addVarToInterstate(InterState istate, VarDeclaration v)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1540 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1541 if (!v->isParameter())
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1542 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1543 for (size_t i = 0; 1; i++)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1544 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1545 if (i == istate->vars.dim)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1546 { istate->vars.push(v);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1547 //printf("\tadding %s to istate\n", v->toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1548 break;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1549 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1550 if (v == (VarDeclaration *)istate->vars.data[i])
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1551 break;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1552 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1553 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1554 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1555
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1556 Expression BinExp::interpretAssignCommon(InterState istate, fp_t fp, int post)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1557 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1558 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1559 printf("BinExp::interpretAssignCommon() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1560 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1561 Expression *e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1562 Expression *e1 = this->e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1563
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1564 if (fp)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1565 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1566 if (e1->op == TOKcast)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1567 { CastExp ce = (CastExp )e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1568 e1 = ce->e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1569 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1570 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1571 if (e1 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1572 return e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1573 Expression *e2 = this->e2->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1574 if (e2 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1575 return e2;
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1576
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1577 // Chase down rebinding of out and ref.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1578 if (e1->op == TOKvar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1579 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1580 VarExp ve = (VarExp )e1;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1581 VarDeclaration *v = ve->var->isVarDeclaration();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1582 if (v && v->value && v->value->op == TOKvar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1583 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1584 VarExp ve2 = (VarExp )v->value;
1590 8aa756a00228 Replace DMD's isSymbolDeclaration with isStaticStructInitDeclaration. Christian Kamm <kamm incasoftware de> parents: 1587 diff changeset	1585 if (ve2->var->isStaticStructInitDeclaration())
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1586 { // This can happen if v is a struct initialized to
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1587 // 0 using an __initZ SymbolDeclaration from
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1588 // TypeStruct::defaultInit()
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1589 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1590 else
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1591 e1 = v->value;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1592 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1593 else if (v && v->value && (v->value->op==TOKindex \|\| v->value->op == TOKdotvar))
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1594 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1595 // It is no longer be a TOKvar, eg when a[4] is passed by ref.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1596 e1 = v->value;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1597 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1598 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1599
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1600 // To reduce code complexity of handling dotvar expressions,
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1601 // extract the aggregate now.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1602 Expression *aggregate;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1603 if (e1->op == TOKdotvar) {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1604 aggregate = ((DotVarExp *)e1)->e1;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1605 // Get rid of 'this'.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1606 if (aggregate->op == TOKthis && istate->localThis)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1607 aggregate = istate->localThis;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1608 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1609
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1610 /* Assignment to variable of the form:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1611 * v = e2
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1612 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1613 if (e1->op == TOKvar)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1614 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1615 VarExp ve = (VarExp )e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1616 VarDeclaration *v = ve->var->isVarDeclaration();
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1617 assert(v);
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1618 if (v && !v->isCTFE())
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1619 { // Can't modify global or static data
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1620 error("%s cannot be modified at compile time", v->toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1621 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1622 }
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1623 if (v && v->isCTFE())
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1624 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1625 Expression *ev = v->value;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1626 if (fp && !ev)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1627 { error("variable %s is used before initialization", v->toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1628 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1629 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1630 if (fp)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1631 e2 = (*fp)(v->type, ev, e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1632 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1633 { /* Look for special case of struct being initialized with 0.
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1634 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1635 if (v->type->toBasetype()->ty == Tstruct && e2->op == TOKint64)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1636 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1637 e2 = v->type->defaultInit();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1638 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1639 e2 = Cast(v->type, v->type, e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1640 }
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1641 if (e2 == EXP_CANT_INTERPRET)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1642 return e2;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1643
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1644 addVarToInterstate(istate, v);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1645 v->value = e2;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1646 e = Cast(type, type, post ? ev : e2);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1647 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1648 }
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1649 else if (e1->op == TOKdotvar && aggregate->op == TOKdotvar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1650 { // eg v.u.var = e2, v[3].u.var = e2, etc.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1651 error("Nested struct assignment %s is not yet supported in CTFE", toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1652 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1653 /* Assignment to struct member of the form:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1654 * v.var = e2
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1655 */
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1656 else if (e1->op == TOKdotvar && aggregate->op == TOKvar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1657 { VarDeclaration v = ((VarExp )aggregate)->var->isVarDeclaration();
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1658
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1659 if (!v->isCTFE())
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1660 { // Can't modify global or static data
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1661 error("%s cannot be modified at compile time", v->toChars());
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1662 return EXP_CANT_INTERPRET;
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1663 } else {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1664 // Chase down rebinding of out and ref
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1665 if (v->value && v->value->op == TOKvar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1666 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1667 VarExp ve2 = (VarExp )v->value;
1590 8aa756a00228 Replace DMD's isSymbolDeclaration with isStaticStructInitDeclaration. Christian Kamm <kamm incasoftware de> parents: 1587 diff changeset	1668 if (ve2->var->isStaticStructInitDeclaration())
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1669 { // This can happen if v is a struct initialized to
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1670 // 0 using an __initZ SymbolDeclaration from
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1671 // TypeStruct::defaultInit()
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1672 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1673 else
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1674 v = ve2->var->isVarDeclaration();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1675 assert(v);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1676 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1677 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1678 if (fp && !v->value)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1679 { error("variable %s is used before initialization", v->toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1680 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1681 }
1367 8026319762be Merged DMD 1.045 !!! Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1334 diff changeset	1682 if (v->value == NULL && v->init->isVoidInitializer())
8026319762be Merged DMD 1.045 !!! Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1334 diff changeset	1683 { /* Since a void initializer initializes to undefined
8026319762be Merged DMD 1.045 !!! Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1334 diff changeset	1684 * values, it is valid here to use the default initializer.
8026319762be Merged DMD 1.045 !!! Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1334 diff changeset	1685 * No attempt is made to determine if someone actually relies
8026319762be Merged DMD 1.045 !!! Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1334 diff changeset	1686 * on the void value - to do that we'd need a VoidExp.
8026319762be Merged DMD 1.045 !!! Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1334 diff changeset	1687 * That's probably a good enhancement idea.
8026319762be Merged DMD 1.045 !!! Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1334 diff changeset	1688 */
8026319762be Merged DMD 1.045 !!! Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1334 diff changeset	1689 v->value = v->type->defaultInit();
8026319762be Merged DMD 1.045 !!! Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1334 diff changeset	1690 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1691 Expression *vie = v->value;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1692 if (vie->op == TOKvar)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1693 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1694 Declaration d = ((VarExp )vie)->var;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1695 vie = getVarExp(e1->loc, istate, d);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1696 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1697 if (vie->op != TOKstructliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1698 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1699 StructLiteralExp se = (StructLiteralExp )vie;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1700 VarDeclaration vf = ((DotVarExp )e1)->var->isVarDeclaration();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1701 if (!vf)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1702 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1703 int fieldi = se->getFieldIndex(type, vf->offset);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1704 if (fieldi == -1)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1705 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1706 Expression *ev = se->getField(type, vf->offset);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1707 if (fp)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1708 e2 = (*fp)(type, ev, e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1709 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1710 e2 = Cast(type, type, e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1711 if (e2 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1712 return e2;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1713
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1714 addVarToInterstate(istate, v);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1715
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1716 /* Create new struct literal reflecting updated fieldi
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1717 */
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1718 Expressions *expsx = changeOneElement(se->elements, fieldi, e2);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1719 v->value = new StructLiteralExp(se->loc, se->sd, expsx);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1720 v->value->type = se->type;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1721
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1722 e = Cast(type, type, post ? ev : e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1723 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1724 /* Assignment to struct member of the form:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1725 * *(symoffexp) = e2
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1726 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1727 else if (e1->op == TOKstar && ((PtrExp *)e1)->e1->op == TOKsymoff)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1728 { SymOffExp soe = (SymOffExp )((PtrExp *)e1)->e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1729 VarDeclaration *v = soe->var->isVarDeclaration();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1730
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1731 if (!v->isCTFE())
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1732 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1733 error("%s cannot be modified at compile time", v->toChars());
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1734 return EXP_CANT_INTERPRET;
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1735 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1736 if (fp && !v->value)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1737 { error("variable %s is used before initialization", v->toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1738 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1739 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1740 Expression *vie = v->value;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1741 if (vie->op == TOKvar)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1742 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1743 Declaration d = ((VarExp )vie)->var;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1744 vie = getVarExp(e1->loc, istate, d);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1745 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1746 if (vie->op != TOKstructliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1747 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1748 StructLiteralExp se = (StructLiteralExp )vie;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1749 int fieldi = se->getFieldIndex(type, soe->offset);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1750 if (fieldi == -1)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1751 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1752 Expression *ev = se->getField(type, soe->offset);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1753 if (fp)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1754 e2 = (*fp)(type, ev, e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1755 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1756 e2 = Cast(type, type, e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1757 if (e2 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1758 return e2;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1759
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1760 addVarToInterstate(istate, v);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1761
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1762 /* Create new struct literal reflecting updated fieldi
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1763 */
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1764 Expressions *expsx = changeOneElement(se->elements, fieldi, e2);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1765 v->value = new StructLiteralExp(se->loc, se->sd, expsx);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1766 v->value->type = se->type;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1767
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1768 e = Cast(type, type, post ? ev : e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1769 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1770 /* Assignment to array element of the form:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1771 * a[i] = e2
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1772 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1773 else if (e1->op == TOKindex && ((IndexExp *)e1)->e1->op == TOKvar)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1774 { IndexExp ie = (IndexExp )e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1775 VarExp ve = (VarExp )ie->e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1776 VarDeclaration *v = ve->var->isVarDeclaration();
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1777 if (!v \|\| !v->isCTFE())
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1778 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1779 error("%s cannot be modified at compile time", v ? v->toChars(): "void");
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1780 return EXP_CANT_INTERPRET;
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1781 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1782 if (v->value && v->value->op == TOKvar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1783 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1784 VarExp ve2 = (VarExp )v->value;
1590 8aa756a00228 Replace DMD's isSymbolDeclaration with isStaticStructInitDeclaration. Christian Kamm <kamm incasoftware de> parents: 1587 diff changeset	1785 if (ve2->var->isStaticStructInitDeclaration())
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1786 { // This can happen if v is a struct initialized to
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1787 // 0 using an __initZ SymbolDeclaration from
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1788 // TypeStruct::defaultInit()
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1789 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1790 else
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1791 v = ve2->var->isVarDeclaration();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1792 assert(v);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1793 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1794 if (!v->value)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1795 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1796 if (fp)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1797 { error("variable %s is used before initialization", v->toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1798 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1799 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1800
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1801 Type *t = v->type->toBasetype();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1802 if (t->ty == Tsarray)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1803 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1804 /* This array was void initialized. Create a
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1805 * default initializer for it.
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1806 * What we should do is fill the array literal with
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1807 * NULL data, so use-before-initialized can be detected.
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1808 * But we're too lazy at the moment to do it, as that
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1809 * involves redoing Index() and whoever calls it.
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1810 */
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1811
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1812 size_t dim = ((TypeSArray *)t)->dim->toInteger();
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1813 v->value = createBlockDuplicatedArrayLiteral(v->type,
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1814 v->type->defaultInit(), dim);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1815 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1816 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1817 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1818 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1819
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1820 ArrayLiteralExp *ae = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1821 AssocArrayLiteralExp *aae = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1822 StringExp *se = NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1823 if (v->value->op == TOKarrayliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1824 ae = (ArrayLiteralExp *)v->value;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1825 else if (v->value->op == TOKassocarrayliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1826 aae = (AssocArrayLiteralExp *)v->value;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1827 else if (v->value->op == TOKstring)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1828 se = (StringExp *)v->value;
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1829 else if (v->value->op == TOKnull)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1830 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1831 // This would be a runtime segfault
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1832 error("Cannot index null array %s", v->toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1833 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1834 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1835 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1836 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1837
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1838 /* Set the $ variable
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1839 */
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1840 Expression *ee = ArrayLength(Type::tsize_t, v->value);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1841 if (ee != EXP_CANT_INTERPRET && ie->lengthVar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1842 ie->lengthVar->value = ee;
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1843 Expression *index = ie->e2->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1844 if (index == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1845 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1846 Expression *ev;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1847 if (fp \|\| ae \|\| se) // not for aae, because key might not be there
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1848 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1849 ev = Index(type, v->value, index);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1850 if (ev == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1851 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1852 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1853
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1854 if (fp)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1855 e2 = (*fp)(type, ev, e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1856 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1857 e2 = Cast(type, type, e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1858 if (e2 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1859 return e2;
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1860
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1861 addVarToInterstate(istate, v);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1862 if (ae)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1863 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1864 /* Create new array literal reflecting updated elem
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1865 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1866 int elemi = index->toInteger();
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1867 Expressions *expsx = changeOneElement(ae->elements, elemi, e2);
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1868 v->value = new ArrayLiteralExp(ae->loc, expsx);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1869 v->value->type = ae->type;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1870 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1871 else if (aae)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1872 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1873 /* Create new associative array literal reflecting updated key/value
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1874 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1875 Expressions *keysx = aae->keys;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1876 Expressions *valuesx = new Expressions();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1877 valuesx->setDim(aae->values->dim);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1878 int updated = 0;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1879 for (size_t j = valuesx->dim; j; )
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1880 { j--;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1881 Expression ekey = (Expression )aae->keys->data[j];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1882 Expression *ex = Equal(TOKequal, Type::tbool, ekey, index);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1883 if (ex == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1884 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1885 if (ex->isBool(TRUE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1886 { valuesx->data[j] = (void *)e2;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1887 updated = 1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1888 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1889 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1890 valuesx->data[j] = aae->values->data[j];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1891 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1892 if (!updated)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1893 { // Append index/e2 to keysx[]/valuesx[]
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1894 valuesx->push(e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1895 keysx = (Expressions *)keysx->copy();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1896 keysx->push(index);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1897 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1898 v->value = new AssocArrayLiteralExp(aae->loc, keysx, valuesx);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1899 v->value->type = aae->type;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1900 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1901 else if (se)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1902 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1903 /* Create new string literal reflecting updated elem
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1904 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1905 int elemi = index->toInteger();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1906 unsigned char *s;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1907 s = (unsigned char *)mem.calloc(se->len + 1, se->sz);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1908 memcpy(s, se->string, se->len * se->sz);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1909 unsigned value = e2->toInteger();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1910 switch (se->sz)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1911 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1912 case 1: s[elemi] = value; break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1913 case 2: ((unsigned short *)s)[elemi] = value; break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1914 case 4: ((unsigned *)s)[elemi] = value; break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1915 default:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1916 assert(0);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1917 break;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1918 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1919 StringExp *se2 = new StringExp(se->loc, s, se->len);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1920 se2->committed = se->committed;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1921 se2->postfix = se->postfix;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1922 se2->type = se->type;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1923 v->value = se2;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1924 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1925 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1926 assert(0);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1927
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1928 e = Cast(type, type, post ? ev : e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	1929 }
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1930
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1931 /* Assignment to struct element in array, of the form:
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1932 * a[i].var = e2
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1933 */
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1934 else if (e1->op == TOKdotvar && aggregate->op == TOKindex &&
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1935 ((IndexExp *)aggregate)->e1->op == TOKvar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1936 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1937 IndexExp * ie = (IndexExp *)aggregate;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1938 VarExp ve = (VarExp )(ie->e1);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1939 VarDeclaration *v = ve->var->isVarDeclaration();
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	1940 if (!v \|\| !v->isCTFE())
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1941 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1942 error("%s cannot be modified at compile time", v ? v->toChars(): "void");
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1943 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1944 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1945 Type *t = ve->type->toBasetype();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1946 ArrayLiteralExp ae = (ArrayLiteralExp )v->value;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1947 if (!ae)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1948 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1949 // assignment to one element in an uninitialized (static) array.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1950 // This is quite difficult, because defaultInit() for a struct is a VarExp,
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1951 // not a StructLiteralExp.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1952 Type *t = v->type->toBasetype();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1953 if (t->ty != Tsarray)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1954 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1955 error("Cannot index an uninitialized variable");
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1956 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1957 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1958
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1959 Type telem = ((TypeSArray )t)->nextOf()->toBasetype();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1960 if (telem->ty != Tstruct) { return EXP_CANT_INTERPRET; }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1961
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1962 // Create a default struct literal...
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1963 StructDeclaration sym = ((TypeStruct )telem)->sym;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1964 StructLiteralExp *structinit = createDefaultInitStructLiteral(v->loc, sym);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1965
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1966 // ... and use to create a blank array literal
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1967 size_t dim = ((TypeSArray *)t)->dim->toInteger();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1968 ae = createBlockDuplicatedArrayLiteral(v->type, structinit, dim);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1969 v->value = ae;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1970 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1971 if ((Expression *)(ae->elements) == EXP_CANT_INTERPRET)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1972 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1973 // Note that this would be a runtime segfault
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1974 error("Cannot index null array %s", v->toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1975 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1976 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1977 // Set the $ variable
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1978 Expression *ee = ArrayLength(Type::tsize_t, v->value);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1979 if (ee != EXP_CANT_INTERPRET && ie->lengthVar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1980 ie->lengthVar->value = ee;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1981 // Determine the index, and check that it's OK.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1982 Expression *index = ie->e2->interpret(istate);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1983 if (index == EXP_CANT_INTERPRET)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1984 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1985
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1986 int elemi = index->toInteger();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1987 if (elemi >= ae->elements->dim)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1988 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1989 error("array index %d is out of bounds %s[0..%d]", elemi,
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1990 v->toChars(), ae->elements->dim);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1991 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1992 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1993 // Get old element
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1994 Expression vie = (Expression )(ae->elements->data[elemi]);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1995 if (vie->op != TOKstructliteral)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1996 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1997
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1998 // Work out which field needs to be changed
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	1999 StructLiteralExp se = (StructLiteralExp )vie;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2000 VarDeclaration vf = ((DotVarExp )e1)->var->isVarDeclaration();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2001 if (!vf)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2002 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2003
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2004 int fieldi = se->getFieldIndex(type, vf->offset);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2005 if (fieldi == -1)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2006 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2007
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2008 Expression *ev = se->getField(type, vf->offset);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2009 if (fp)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2010 e2 = (*fp)(type, ev, e2);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2011 else
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2012 e2 = Cast(type, type, e2);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2013 if (e2 == EXP_CANT_INTERPRET)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2014 return e2;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2015
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2016 // Create new struct literal reflecting updated field
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2017 Expressions *expsx = changeOneElement(se->elements, fieldi, e2);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2018 Expression * newstruct = new StructLiteralExp(se->loc, se->sd, expsx);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2019
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2020 // Create new array literal reflecting updated struct elem
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2021 ae->elements = changeOneElement(ae->elements, elemi, newstruct);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2022 return ae;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2023 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2024 /* Slice assignment, initialization of static arrays
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2025 * a[] = e
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2026 */
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2027 else if (e1->op == TOKslice && ((SliceExp *)e1)->e1->op==TOKvar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2028 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2029 SliceExp * sexp = (SliceExp *)e1;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2030 VarExp ve = (VarExp )(sexp->e1);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2031 VarDeclaration *v = ve->var->isVarDeclaration();
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2032 if (!v \|\| !v->isCTFE())
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2033 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2034 error("%s cannot be modified at compile time", v->toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2035 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2036 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2037 // Chase down rebinding of out and ref
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2038 if (v->value && v->value->op == TOKvar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2039 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2040 VarExp ve2 = (VarExp )v->value;
1590 8aa756a00228 Replace DMD's isSymbolDeclaration with isStaticStructInitDeclaration. Christian Kamm <kamm incasoftware de> parents: 1587 diff changeset	2041 if (ve2->var->isStaticStructInitDeclaration())
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2042 { // This can happen if v is a struct initialized to
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2043 // 0 using an __initZ SymbolDeclaration from
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2044 // TypeStruct::defaultInit()
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2045 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2046 else
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2047 v = ve2->var->isVarDeclaration();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2048 assert(v);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2049 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2050 /* Set the $ variable
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2051 */
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2052 Expression *ee = v->value ? ArrayLength(Type::tsize_t, v->value)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2053 : EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2054 if (ee != EXP_CANT_INTERPRET && sexp->lengthVar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2055 sexp->lengthVar->value = ee;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2056 Expression *upper = NULL;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2057 Expression *lower = NULL;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2058 if (sexp->upr)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2059 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2060 upper = sexp->upr->interpret(istate);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2061 if (upper == EXP_CANT_INTERPRET)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2062 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2063 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2064 if (sexp->lwr)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2065 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2066 lower = sexp->lwr->interpret(istate);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2067 if (lower == EXP_CANT_INTERPRET)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2068 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2069 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2070 Type *t = v->type->toBasetype();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2071 size_t dim;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2072 if (t->ty == Tsarray)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2073 dim = ((TypeSArray *)t)->dim->toInteger();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2074 else if (t->ty == Tarray)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2075 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2076 if (!v->value \|\| v->value->op == TOKnull)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2077 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2078 error("cannot assign to null array %s", v->toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2079 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2080 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2081 if (v->value->op == TOKarrayliteral)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2082 dim = ((ArrayLiteralExp *)v->value)->elements->dim;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2083 else if (v->value->op ==TOKstring)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2084 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2085 error("String slice assignment is not yet supported in CTFE");
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2086 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2087 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2088 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2089 else
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2090 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2091 error("%s cannot be evaluated at compile time", toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2092 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2093 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2094 int upperbound = upper ? upper->toInteger() : dim;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2095 int lowerbound = lower ? lower->toInteger() : 0;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2096
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2097 ArrayLiteralExp *existing;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2098 if (((int)lowerbound < 0) \|\| (upperbound > dim))
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2099 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2100 error("Array bounds [0..%d] exceeded in slice [%d..%d]", dim, lowerbound, upperbound);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2101 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2102 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2103 if (upperbound-lowerbound != dim)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2104 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2105 // Only modifying part of the array. Must create a new array literal.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2106 // If the existing array is uninitialized (this can only happen
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2107 // with static arrays), create it.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2108 if (v->value && v->value->op == TOKarrayliteral)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2109 existing = (ArrayLiteralExp *)v->value;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2110 else
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2111 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2112 // this can only happen with static arrays
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2113 existing = createBlockDuplicatedArrayLiteral(v->type, v->type->defaultInit(), dim);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2114 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2115 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2116
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2117 if (e2->op == TOKarrayliteral)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2118 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2119 // Static array assignment from literal
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2120 ArrayLiteralExp ae = (ArrayLiteralExp )e2;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2121 if (ae->elements->dim != (upperbound - lowerbound))
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2122 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2123 error("Array length mismatch assigning [0..%d] to [%d..%d]", ae->elements->dim, lowerbound, upperbound);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2124 return e;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2125 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2126 if (upperbound - lowerbound == dim)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2127 v->value = ae;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2128 else
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2129 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2130 // value[] = value[0..lower] ~ ae ~ value[upper..$]
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2131 existing->elements = spliceElements(existing->elements, ae->elements, lowerbound);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2132 v->value = existing;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2133 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2134 return e2;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2135 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2136 else if (t->nextOf()->ty == e2->type->ty)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2137 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2138 // Static array block assignment
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2139 if (upperbound-lowerbound ==dim)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2140 v->value = createBlockDuplicatedArrayLiteral(v->type, e2, dim);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2141 else
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2142 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2143 // value[] = value[0..lower] ~ ae ~ value[upper..$]
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2144 existing->elements = spliceElements(existing->elements, createBlockDuplicatedArrayLiteral(v->type, e2, upperbound-lowerbound)->elements, lowerbound);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2145 v->value = existing;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2146 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2147 return e2;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2148 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2149 else if (e2->op == TOKstring)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2150 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2151 StringExp se = (StringExp )e2;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2152 // This is problematic. char[8] should be storing
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2153 // values as a string literal, not
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2154 // as an array literal. Then, for static arrays, we
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2155 // could do modifications
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2156 // in-place, with a dramatic memory and speed improvement.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2157 error("String slice assignment is not yet supported in CTFE");
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2158 return e2;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2159 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2160 else
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2161 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2162 error("Slice operation %s cannot be evaluated at compile time", toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2163 return e;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2164 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2165 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2166 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2167 {
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2168 error("%s cannot be evaluated at compile time", toChars());
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2169 #ifdef DEBUG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2170 dump(0);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2171 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2172 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2173 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2174 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2175
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2176 Expression AssignExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2177 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2178 return interpretAssignCommon(istate, NULL);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2179 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2180
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2181 #define BIN_ASSIGN_INTERPRET(op) \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2182 Expression op##AssignExp::interpret(InterState istate) \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2183 { \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2184 return interpretAssignCommon(istate, &op); \
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2185 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2186
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2187 BIN_ASSIGN_INTERPRET(Add)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2188 BIN_ASSIGN_INTERPRET(Min)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2189 BIN_ASSIGN_INTERPRET(Cat)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2190 BIN_ASSIGN_INTERPRET(Mul)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2191 BIN_ASSIGN_INTERPRET(Div)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2192 BIN_ASSIGN_INTERPRET(Mod)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2193 BIN_ASSIGN_INTERPRET(Shl)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2194 BIN_ASSIGN_INTERPRET(Shr)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2195 BIN_ASSIGN_INTERPRET(Ushr)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2196 BIN_ASSIGN_INTERPRET(And)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2197 BIN_ASSIGN_INTERPRET(Or)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2198 BIN_ASSIGN_INTERPRET(Xor)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2199
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2200 Expression PostExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2201 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2202 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2203 printf("PostExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2204 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2205 Expression *e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2206 if (op == TOKplusplus)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2207 e = interpretAssignCommon(istate, &Add, 1);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2208 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2209 e = interpretAssignCommon(istate, &Min, 1);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2210 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2211 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2212 printf("PostExp::interpret() CANT\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2213 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2214 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2215 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2216
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2217 Expression AndAndExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2218 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2219 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2220 printf("AndAndExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2221 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2222 Expression *e = e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2223 if (e != EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2224 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2225 if (e->isBool(FALSE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2226 e = new IntegerExp(e1->loc, 0, type);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2227 else if (e->isBool(TRUE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2228 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2229 e = e2->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2230 if (e != EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2231 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2232 if (e->isBool(FALSE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2233 e = new IntegerExp(e1->loc, 0, type);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2234 else if (e->isBool(TRUE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2235 e = new IntegerExp(e1->loc, 1, type);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2236 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2237 e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2238 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2239 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2240 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2241 e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2242 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2243 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2244 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2245
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2246 Expression OrOrExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2247 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2248 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2249 printf("OrOrExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2250 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2251 Expression *e = e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2252 if (e != EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2253 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2254 if (e->isBool(TRUE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2255 e = new IntegerExp(e1->loc, 1, type);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2256 else if (e->isBool(FALSE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2257 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2258 e = e2->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2259 if (e != EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2260 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2261 if (e->isBool(FALSE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2262 e = new IntegerExp(e1->loc, 0, type);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2263 else if (e->isBool(TRUE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2264 e = new IntegerExp(e1->loc, 1, type);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2265 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2266 e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2267 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2268 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2269 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2270 e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2271 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2272 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2273 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2274
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2275
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2276 Expression CallExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2277 { Expression *e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2278
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2279 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2280 printf("CallExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2281 #endif
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2282 if (e1->op == TOKdotvar)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2283 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2284 Expression * pthis = ((DotVarExp*)e1)->e1;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2285 FuncDeclaration fd = ((DotVarExp)e1)->var->isFuncDeclaration();
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2286 TypeFunction tf = fd ? (TypeFunction )(fd->type) : NULL;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2287 if (tf)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2288 { // Member function call
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2289 if(pthis->op == TOKthis)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2290 pthis = istate->localThis;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2291 Expression *eresult = fd->interpret(istate, arguments, pthis);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2292 if (eresult)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2293 e = eresult;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2294 else if (fd->type->toBasetype()->nextOf()->ty == Tvoid && !global.errors)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2295 e = EXP_VOID_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2296 else
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2297 error("cannot evaluate %s at compile time", toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2298 return e;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2299 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2300 error("cannot evaluate %s at compile time", toChars());
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2301 return EXP_CANT_INTERPRET;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2302 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2303 if (e1->op == TOKvar)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2304 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2305 FuncDeclaration fd = ((VarExp )e1)->var->isFuncDeclaration();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2306 if (fd)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2307 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2308 #if DMDV2
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2309 enum BUILTIN b = fd->isBuiltin();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2310 if (b)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2311 { Expressions args;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2312 args.setDim(arguments->dim);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2313 for (size_t i = 0; i < args.dim; i++)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2314 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2315 Expression earg = (Expression )arguments->data[i];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2316 earg = earg->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2317 if (earg == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2318 return earg;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2319 args.data[i] = (void *)earg;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2320 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2321 e = eval_builtin(b, &args);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2322 if (!e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2323 e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2324 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2325 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2326 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2327 // Inline .dup
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2328 if (fd->ident == Id::adDup && arguments && arguments->dim == 2)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2329 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2330 e = (Expression *)arguments->data[1];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2331 e = e->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2332 if (e != EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2333 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2334 e = expType(type, e);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2335 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2336 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2337 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2338 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2339 Expression *eresult = fd->interpret(istate, arguments);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2340 if (eresult)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2341 e = eresult;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2342 else if (fd->type->toBasetype()->nextOf()->ty == Tvoid && !global.errors)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2343 e = EXP_VOID_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2344 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2345 error("cannot evaluate %s at compile time", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2346 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2347 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2348 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2349 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2350 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2351
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2352 Expression CommaExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2353 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2354 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2355 printf("CommaExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2356 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2357 Expression *e = e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2358 if (e != EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2359 e = e2->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2360 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2361 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2362
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2363 Expression CondExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2364 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2365 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2366 printf("CondExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2367 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2368 Expression *e = econd->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2369 if (e != EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2370 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2371 if (e->isBool(TRUE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2372 e = e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2373 else if (e->isBool(FALSE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2374 e = e2->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2375 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2376 e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2377 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2378 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2379 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2380
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2381 Expression ArrayLengthExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2382 { Expression *e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2383 Expression *e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2384
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2385 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2386 printf("ArrayLengthExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2387 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2388 e1 = this->e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2389 if (e1 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2390 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2391 if (e1->op == TOKstring \|\| e1->op == TOKarrayliteral \|\| e1->op == TOKassocarrayliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2392 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2393 e = ArrayLength(type, e1);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2394 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2395 else if (e1->op == TOKnull)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2396 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2397 e = new IntegerExp(loc, 0, type);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2398 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2399 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2400 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2401 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2402
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2403 Lcant:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2404 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2405 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2406
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2407 Expression IndexExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2408 { Expression *e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2409 Expression *e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2410 Expression *e2;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2411
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2412 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2413 printf("IndexExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2414 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2415 e1 = this->e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2416 if (e1 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2417 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2418
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2419 if (e1->op == TOKstring \|\| e1->op == TOKarrayliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2420 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2421 /* Set the $ variable
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2422 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2423 e = ArrayLength(Type::tsize_t, e1);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2424 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2425 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2426 if (lengthVar)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2427 lengthVar->value = e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2428 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2429
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2430 e2 = this->e2->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2431 if (e2 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2432 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2433 return Index(type, e1, e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2434
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2435 Lcant:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2436 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2437 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2438
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2439
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2440 Expression SliceExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2441 { Expression *e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2442 Expression *e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2443 Expression *lwr;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2444 Expression *upr;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2445
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2446 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2447 printf("SliceExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2448 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2449 e1 = this->e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2450 if (e1 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2451 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2452 if (!this->lwr)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2453 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2454 e = e1->castTo(NULL, type);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2455 return e->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2456 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2457
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2458 /* Set the $ variable
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2459 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2460 e = ArrayLength(Type::tsize_t, e1);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2461 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2462 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2463 if (lengthVar)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2464 lengthVar->value = e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2465
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2466 /* Evaluate lower and upper bounds of slice
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2467 */
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2468 lwr = this->lwr->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2469 if (lwr == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2470 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2471 upr = this->upr->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2472 if (upr == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2473 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2474
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2475 return Slice(type, e1, lwr, upr);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2476
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2477 Lcant:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2478 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2479 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2480
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2481
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2482 Expression CatExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2483 { Expression *e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2484 Expression *e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2485 Expression *e2;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2486
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2487 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2488 printf("CatExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2489 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2490 e1 = this->e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2491 if (e1 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2492 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2493 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2494 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2495 e2 = this->e2->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2496 if (e2 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2497 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2498 return Cat(type, e1, e2);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2499
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2500 Lcant:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2501 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2502 printf("CatExp::interpret() %s CANT\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2503 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2504 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2505 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2506
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2507
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2508 Expression CastExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2509 { Expression *e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2510 Expression *e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2511
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2512 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2513 printf("CastExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2514 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2515 e1 = this->e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2516 if (e1 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2517 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2518 return Cast(type, to, e1);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2519
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2520 Lcant:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2521 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2522 printf("CastExp::interpret() %s CANT\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2523 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2524 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2525 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2526
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2527
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2528 Expression AssertExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2529 { Expression *e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2530 Expression *e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2531
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2532 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2533 printf("AssertExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2534 #endif
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2535 if( this->e1->op == TOKaddress)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2536 { // Special case: deal with compiler-inserted assert(&this, "null this")
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2537 AddrExp ade = (AddrExp )this->e1;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2538 if(ade->e1->op == TOKthis && istate->localThis)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2539 return istate->localThis->interpret(istate);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2540 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2541 if (this->e1->op == TOKthis)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2542 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2543 if(istate->localThis)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2544 return istate->localThis->interpret(istate);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2545 }
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2546 e1 = this->e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2547 if (e1 == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2548 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2549 if (e1->isBool(TRUE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2550 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2551 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2552 else if (e1->isBool(FALSE))
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2553 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2554 if (msg)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2555 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2556 e = msg->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2557 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2558 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2559 error("%s", e->toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2560 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2561 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2562 error("%s failed", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2563 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2564 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2565 else
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2566 goto Lcant;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2567 return e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2568
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2569 Lcant:
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2570 return EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2571 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2572
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2573 Expression PtrExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2574 { Expression *e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2575
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2576 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2577 printf("PtrExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2578 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2579
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2580 // Constant fold *(&structliteral + offset)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2581 if (e1->op == TOKadd)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2582 { AddExp ae = (AddExp )e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2583 if (ae->e1->op == TOKaddress && ae->e2->op == TOKint64)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2584 { AddrExp ade = (AddrExp )ae->e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2585 Expression *ex = ade->e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2586 ex = ex->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2587 if (ex != EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2588 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2589 if (ex->op == TOKstructliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2590 { StructLiteralExp se = (StructLiteralExp )ex;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2591 unsigned offset = ae->e2->toInteger();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2592 e = se->getField(type, offset);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2593 if (!e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2594 e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2595 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2596 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2597 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2598 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2599 e = Ptr(type, e1);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2600 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2601 else if (e1->op == TOKsymoff)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2602 { SymOffExp soe = (SymOffExp )e1;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2603 VarDeclaration *v = soe->var->isVarDeclaration();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2604 if (v)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2605 { Expression *ev = getVarExp(loc, istate, v);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2606 if (ev != EXP_CANT_INTERPRET && ev->op == TOKstructliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2607 { StructLiteralExp se = (StructLiteralExp )ev;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2608 e = se->getField(type, soe->offset);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2609 if (!e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2610 e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2611 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2612 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2613 }
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2614 #if DMDV2
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2615 #else // this is required for D1, where structs return *this instead of 'this'.
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2616 else if (e1->op == TOKthis)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2617 {
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2618 if(istate->localThis)
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2619 return istate->localThis->interpret(istate);
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2620 }
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2621 #endif
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2622 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2623 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2624 printf("PtrExp::interpret() %s = EXP_CANT_INTERPRET\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2625 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2626 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2627 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2628
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2629 Expression DotVarExp::interpret(InterState istate)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2630 { Expression *e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2631
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2632 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2633 printf("DotVarExp::interpret() %s\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2634 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2635
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2636 Expression *ex = e1->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2637 if (ex != EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2638 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2639 if (ex->op == TOKstructliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2640 { StructLiteralExp se = (StructLiteralExp )ex;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2641 VarDeclaration *v = var->isVarDeclaration();
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2642 if (v)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2643 { e = se->getField(type, v->offset);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2644 if (!e)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2645 e = EXP_CANT_INTERPRET;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2646 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2647 }
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2648 } else error("%s.%s is not yet implemented at compile time", ex->toChars(), var->toChars());
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2649 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2650
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2651 #if LOG
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2652 if (e == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2653 printf("DotVarExp::interpret() %s = EXP_CANT_INTERPRET\n", toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2654 #endif
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2655 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2656 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2657
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2658 /***************************** Special Functions *************************/
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2659
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2660 #if DMDV1
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2661
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2662 Expression interpret_aaLen(InterState istate, Expressions *arguments)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2663 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2664 if (!arguments \|\| arguments->dim != 1)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2665 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2666 Expression earg = (Expression )arguments->data[0];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2667 earg = earg->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2668 if (earg == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2669 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2670 if (earg->op != TOKassocarrayliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2671 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2672 AssocArrayLiteralExp aae = (AssocArrayLiteralExp )earg;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2673 Expression *e = new IntegerExp(aae->loc, aae->keys->dim, Type::tsize_t);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2674 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2675 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2676
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2677 Expression interpret_aaKeys(InterState istate, Expressions *arguments)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2678 {
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2679 #if LOG
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2680 printf("interpret_aaKeys()\n");
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2681 #endif
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2682 if (!arguments \|\| arguments->dim != 2)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2683 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2684 Expression earg = (Expression )arguments->data[0];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2685 earg = earg->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2686 if (earg == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2687 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2688 if (earg->op != TOKassocarrayliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2689 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2690 AssocArrayLiteralExp aae = (AssocArrayLiteralExp )earg;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2691 Expression *e = new ArrayLiteralExp(aae->loc, aae->keys);
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2692 Type elemType = ((TypeAArray )aae->type)->index;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2693 e->type = new TypeSArray(elemType, new IntegerExp(arguments ? arguments->dim : 0));
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2694 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2695 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2696
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2697 Expression interpret_aaValues(InterState istate, Expressions *arguments)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2698 {
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2699 //printf("interpret_aaValues()\n");
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2700 if (!arguments \|\| arguments->dim != 3)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2701 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2702 Expression earg = (Expression )arguments->data[0];
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2703 earg = earg->interpret(istate);
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2704 if (earg == EXP_CANT_INTERPRET)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2705 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2706 if (earg->op != TOKassocarrayliteral)
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2707 return NULL;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2708 AssocArrayLiteralExp aae = (AssocArrayLiteralExp )earg;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2709 Expression *e = new ArrayLiteralExp(aae->loc, aae->values);
1587 def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2710 Type elemType = ((TypeAArray )aae->type)->next;
def7a1d494fd Merge DMD 1.051 Christian Kamm <kamm incasoftware de> parents: 1367 diff changeset	2711 e->type = new TypeSArray(elemType, new IntegerExp(arguments ? arguments->dim : 0));
875 330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2712 //printf("result is %s\n", e->toChars());
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2713 return e;
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2714 }
330f999ade44 Merged DMD 1.038 Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> parents: 658 diff changeset	2715
1621 fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2716 #endif
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2717
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2718 #if DMDV2
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2719
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2720 Expression interpret_length(InterState istate, Expression *earg)
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2721 {
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2722 //printf("interpret_length()\n");
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2723 earg = earg->interpret(istate);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2724 if (earg == EXP_CANT_INTERPRET)
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2725 return NULL;
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2726 if (earg->op != TOKassocarrayliteral)
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2727 return NULL;
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2728 AssocArrayLiteralExp aae = (AssocArrayLiteralExp )earg;
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2729 Expression *e = new IntegerExp(aae->loc, aae->keys->dim, Type::tsize_t);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2730 return e;
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2731 }
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2732
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2733 Expression interpret_keys(InterState istate, Expression earg, FuncDeclaration fd)
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2734 {
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2735 #if LOG
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2736 printf("interpret_keys()\n");
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2737 #endif
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2738 earg = earg->interpret(istate);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2739 if (earg == EXP_CANT_INTERPRET)
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2740 return NULL;
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2741 if (earg->op != TOKassocarrayliteral)
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2742 return NULL;
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2743 AssocArrayLiteralExp aae = (AssocArrayLiteralExp )earg;
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2744 Expression *e = new ArrayLiteralExp(aae->loc, aae->keys);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2745 assert(fd->type->ty == Tfunction);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2746 assert(fd->type->nextOf()->ty == Tarray);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2747 Type elemType = ((TypeFunction )fd->type)->nextOf()->nextOf();
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2748 e->type = new TypeSArray(elemType, new IntegerExp(aae->keys->dim));
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2749 return e;
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2750 }
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2751
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2752 Expression interpret_values(InterState istate, Expression earg, FuncDeclaration fd)
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2753 {
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2754 //printf("interpret_values()\n");
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2755 earg = earg->interpret(istate);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2756 if (earg == EXP_CANT_INTERPRET)
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2757 return NULL;
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2758 if (earg->op != TOKassocarrayliteral)
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2759 return NULL;
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2760 AssocArrayLiteralExp aae = (AssocArrayLiteralExp )earg;
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2761 Expression *e = new ArrayLiteralExp(aae->loc, aae->values);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2762 assert(fd->type->ty == Tfunction);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2763 assert(fd->type->nextOf()->ty == Tarray);
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2764 Type elemType = ((TypeFunction )fd->type)->nextOf()->nextOf();
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2765 e->type = new TypeSArray(elemType, new IntegerExp(aae->values->dim));
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2766 //printf("result is %s\n", e->toChars());
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2767 return e;
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2768 }
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2769
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2770 #endif
fb2e6707ad17 Merge DMD r314+r315: bugzilla 2029 Typesafe variadic functions don't... Leandro Lucarella <llucax@gmail.com> parents: 1620 diff changeset	2771

Mercurial > projects > ldc

annotate dmd/interpret.c @ 1621:fb2e6707ad17