projects/ldc: dmd/interpret.c annotate

annotate dmd/interpret.c @ 1651:cb960b882ca3 default tip

bindings were moved to dsource.org/projects/bindings/

author	Moritz Warning <moritzwarning@web.de>
date	Thu, 20 May 2010 20:05:03 +0200
parents	9bf06e02070b
children

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

Mercurial > projects > ldc

annotate dmd/interpret.c @ 1651:cb960b882ca3 default tip