projects/ldc: dmd/interpret.c annotate

annotate dmd/interpret.c @ 1607:207a8a438dea

author	Leandro Lucarella <llucax@gmail.com>
date	Wed, 06 Jan 2010 15:18:20 -0300
parents	8aa756a00228
children	8f50a13d09a0

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

Mercurial > projects > ldc

annotate dmd/interpret.c @ 1607:207a8a438dea