projects/ldc: dmd2/expression.c annotate

annotate dmd2/expression.c @ 1526:54b3c1394d62

Merged dmdfe 2.031.

author	Robert Clipsham <robert@octarineparrot.com>
date	Tue, 07 Jul 2009 02:26:11 +0100
parents	833337c65fd3
children	e4f7b5d9c68a

rev	line source
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2 // Compiler implementation of the D programming language
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3 // Copyright (c) 1999-2009 by Digital Mars
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4 // All Rights Reserved
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5 // written by Walter Bright
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6 // http://www.digitalmars.com
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7 // License for redistribution is by either the Artistic License
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8 // in artistic.txt, or the GNU General Public License in gnu.txt.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9 // See the included readme.txt for details.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	11 #include <stdio.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	12 #include <stdlib.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	13 #include <ctype.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	14 #include <math.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	15 #include <assert.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	16 #if _MSC_VER
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	17 #include <complex>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	18 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	19 #if IN_DMD
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	20 #include <complex.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	21 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	22 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	23
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	24 #if _WIN32 && __DMC__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	25 extern "C" char * __cdecl __locale_decpoint;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	26 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	27
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	28 #if __MINGW32__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	29 #ifndef isnan
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	30 #define isnan _isnan
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	31 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	32 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	33
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	34 #ifdef __APPLE__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	35 #ifndef isnan
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	36 int isnan(double);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	37 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	38 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	39
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	40 #include "rmem.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	41 #if IN_DMD
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	42 #include "port.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	43 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	44 #include "mtype.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	45 #include "init.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	46 #include "expression.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	47 #include "template.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	48 #include "utf.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	49 #include "enum.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	50 #include "scope.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	51 #include "statement.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	52 #include "declaration.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	53 #include "aggregate.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	54 #include "import.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	55 #include "id.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	56 #include "dsymbol.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	57 #include "module.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	58 #include "attrib.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	59 #include "hdrgen.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	60 #include "parse.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	61
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	62 #if IN_DMD
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	63 Expression createTypeInfoArray(Scope sc, Expression *args[], int dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	64 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	65 Expression expandVar(int result, VarDeclaration v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	66
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	67 #define LOGSEMANTIC 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	68
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	69 /**********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	70 * Set operator precedence for each operator.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	71 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	72
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	73 // Operator precedence - greater values are higher precedence
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	74
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	75 enum PREC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	76 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	77 PREC_zero,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	78 PREC_expr,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	79 PREC_assign,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	80 PREC_cond,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	81 PREC_oror,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	82 PREC_andand,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	83 PREC_or,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	84 PREC_xor,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	85 PREC_and,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	86 PREC_equal,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	87 PREC_rel,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	88 PREC_shift,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	89 PREC_add,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	90 PREC_mul,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	91 PREC_unary,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	92 PREC_primary,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	93 };
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	94
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	95 enum PREC precedence[TOKMAX];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	96
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	97 void initPrecedence()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	98 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	99 precedence[TOKdotvar] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	100 precedence[TOKimport] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	101 precedence[TOKidentifier] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	102 precedence[TOKthis] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	103 precedence[TOKsuper] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	104 precedence[TOKint64] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	105 precedence[TOKfloat64] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	106 precedence[TOKnull] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	107 precedence[TOKstring] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	108 precedence[TOKarrayliteral] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	109 precedence[TOKtypeid] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	110 precedence[TOKis] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	111 precedence[TOKassert] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	112 precedence[TOKfunction] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	113 precedence[TOKvar] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	114 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	115 precedence[TOKdefault] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	116 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	117
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	118 // post
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	119 precedence[TOKdotti] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	120 precedence[TOKdot] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	121 // precedence[TOKarrow] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	122 precedence[TOKplusplus] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	123 precedence[TOKminusminus] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	124 precedence[TOKcall] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	125 precedence[TOKslice] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	126 precedence[TOKarray] = PREC_primary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	127
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	128 precedence[TOKaddress] = PREC_unary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	129 precedence[TOKstar] = PREC_unary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	130 precedence[TOKneg] = PREC_unary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	131 precedence[TOKuadd] = PREC_unary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	132 precedence[TOKnot] = PREC_unary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	133 precedence[TOKtobool] = PREC_add;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	134 precedence[TOKtilde] = PREC_unary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	135 precedence[TOKdelete] = PREC_unary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	136 precedence[TOKnew] = PREC_unary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	137 precedence[TOKcast] = PREC_unary;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	138
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	139 precedence[TOKmul] = PREC_mul;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	140 precedence[TOKdiv] = PREC_mul;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	141 precedence[TOKmod] = PREC_mul;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	142
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	143 precedence[TOKadd] = PREC_add;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	144 precedence[TOKmin] = PREC_add;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	145 precedence[TOKcat] = PREC_add;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	146
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	147 precedence[TOKshl] = PREC_shift;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	148 precedence[TOKshr] = PREC_shift;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	149 precedence[TOKushr] = PREC_shift;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	150
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	151 precedence[TOKlt] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	152 precedence[TOKle] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	153 precedence[TOKgt] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	154 precedence[TOKge] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	155 precedence[TOKunord] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	156 precedence[TOKlg] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	157 precedence[TOKleg] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	158 precedence[TOKule] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	159 precedence[TOKul] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	160 precedence[TOKuge] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	161 precedence[TOKug] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	162 precedence[TOKue] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	163 precedence[TOKin] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	164
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	165 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	166 precedence[TOKequal] = PREC_equal;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	167 precedence[TOKnotequal] = PREC_equal;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	168 precedence[TOKidentity] = PREC_equal;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	169 precedence[TOKnotidentity] = PREC_equal;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	170 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	171 /* Note that we changed precedence, so that < and != have the same
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	172 * precedence. This change is in the parser, too.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	173 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	174 precedence[TOKequal] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	175 precedence[TOKnotequal] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	176 precedence[TOKidentity] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	177 precedence[TOKnotidentity] = PREC_rel;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	178 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	179
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	180 precedence[TOKand] = PREC_and;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	181
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	182 precedence[TOKxor] = PREC_xor;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	183
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	184 precedence[TOKor] = PREC_or;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	185
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	186 precedence[TOKandand] = PREC_andand;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	187
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	188 precedence[TOKoror] = PREC_oror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	189
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	190 precedence[TOKquestion] = PREC_cond;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	191
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	192 precedence[TOKassign] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	193 precedence[TOKconstruct] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	194 precedence[TOKblit] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	195 precedence[TOKaddass] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	196 precedence[TOKminass] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	197 precedence[TOKcatass] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	198 precedence[TOKmulass] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	199 precedence[TOKdivass] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	200 precedence[TOKmodass] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	201 precedence[TOKshlass] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	202 precedence[TOKshrass] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	203 precedence[TOKushrass] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	204 precedence[TOKandass] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	205 precedence[TOKorass] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	206 precedence[TOKxorass] = PREC_assign;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	207
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	208 precedence[TOKcomma] = PREC_expr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	209 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	210
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	211 /*************************************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	212 * Given var, we need to get the
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	213 * right 'this' pointer if var is in an outer class, but our
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	214 * existing 'this' pointer is in an inner class.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	215 * Input:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	216 * e1 existing 'this'
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	217 * ad struct or class we need the correct 'this' for
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	218 * var the specific member of ad we're accessing
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	219 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	220
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	221 Expression getRightThis(Loc loc, Scope sc, AggregateDeclaration *ad,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	222 Expression e1, Declaration var)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	223 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	224 //printf("\ngetRightThis(e1 = %s, ad = %s, var = %s)\n", e1->toChars(), ad->toChars(), var->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	225 L1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	226 Type *t = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	227 //printf("e1->type = %s, var->type = %s\n", e1->type->toChars(), var->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	228
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	229 /* If e1 is not the 'this' pointer for ad
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	230 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	231 if (ad &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	232 !(t->ty == Tpointer && t->nextOf()->ty == Tstruct &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	233 ((TypeStruct *)t->nextOf())->sym == ad)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	234 &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	235 !(t->ty == Tstruct &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	236 ((TypeStruct *)t)->sym == ad)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	237 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	238 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	239 ClassDeclaration *cd = ad->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	240 ClassDeclaration *tcd = t->isClassHandle();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	241
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	242 /* e1 is the right this if ad is a base class of e1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	243 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	244 if (!cd \|\| !tcd \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	245 !(tcd == cd \|\| cd->isBaseOf(tcd, NULL))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	246 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	247 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	248 /* Only classes can be inner classes with an 'outer'
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	249 * member pointing to the enclosing class instance
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	250 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	251 if (tcd && tcd->isNested())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	252 { /* e1 is the 'this' pointer for an inner class: tcd.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	253 * Rewrite it as the 'this' pointer for the outer class.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	254 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	255
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	256 e1 = new DotVarExp(loc, e1, tcd->vthis);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	257 e1->type = tcd->vthis->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	258 // Do not call checkNestedRef()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	259 //e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	260
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	261 // Skip up over nested functions, and get the enclosing
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	262 // class type.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	263 int n = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	264 Dsymbol *s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	265 for (s = tcd->toParent();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	266 s && s->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	267 s = s->toParent())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	268 { FuncDeclaration *f = s->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	269 if (f->vthis)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	270 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	271 //printf("rewriting e1 to %s's this\n", f->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	272 n++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	273
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	274 // LDC seems dmd misses it sometimes here :/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	275 //f->vthis->nestedrefs = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	276
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	277 e1 = new VarExp(loc, f->vthis);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	278 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	279 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	280 if (s && s->isClassDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	281 { e1->type = s->isClassDeclaration()->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	282 if (n > 1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	283 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	284 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	285 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	286 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	287 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	288 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	289 /* Can't find a path from e1 to ad
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	290 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	291 e1->error("this for %s needs to be type %s not type %s",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	292 var->toChars(), ad->toChars(), t->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	293 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	294 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	295 return e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	296 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	297
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	298 /*****************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	299 * Determine if 'this' is available.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	300 * If it is, return the FuncDeclaration that has it.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	301 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	302
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	303 FuncDeclaration hasThis(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	304 { FuncDeclaration *fd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	305 FuncDeclaration *fdthis;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	306
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	307 //printf("hasThis()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	308 fdthis = sc->parent->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	309 //printf("fdthis = %p, '%s'\n", fdthis, fdthis ? fdthis->toChars() : "");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	310
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	311 // Go upwards until we find the enclosing member function
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	312 fd = fdthis;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	313 while (1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	314 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	315 if (!fd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	316 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	317 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	318 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	319 if (!fd->isNested())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	320 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	321
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	322 Dsymbol *parent = fd->parent;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	323 while (parent)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	324 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	325 TemplateInstance *ti = parent->isTemplateInstance();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	326 if (ti)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	327 parent = ti->parent;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	328 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	329 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	330 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	331
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	332 fd = fd->parent->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	333 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	334
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	335 if (!fd->isThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	336 { //printf("test '%s'\n", fd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	337 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	338 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	339
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	340 assert(fd->vthis);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	341 return fd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	342
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	343 Lno:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	344 return NULL; // don't have 'this' available
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	345 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	346
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	347
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	348 /***************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	349 * Pull out any properties.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	350 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	351
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	352 Expression resolveProperties(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	353 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	354 //printf("resolveProperties(%s)\n", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	355 if (e->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	356 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	357 Type *t = e->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	358
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	359 if (t->ty == Tfunction \|\| e->op == TOKoverloadset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	360 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	361 e = new CallExp(e->loc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	362 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	363 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	364
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	365 /* Look for e being a lazy parameter; rewrite as delegate call
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	366 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	367 else if (e->op == TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	368 { VarExp ve = (VarExp )e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	369
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	370 if (ve->var->storage_class & STClazy)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	371 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	372 e = new CallExp(e->loc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	373 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	374 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	375 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	376
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	377 else if (e->op == TOKdotexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	378 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	379 e->error("expression has no value");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	380 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	381
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	382 }
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	383 else if (e->op == TOKdottd)
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	384 {
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	385 e = new CallExp(e->loc, e);
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	386 e = e->semantic(sc);
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	387 }
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	388 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	389 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	390
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	391 /******************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	392 * Perform semantic() on an array of Expressions.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	393 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	394
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	395 void arrayExpressionSemantic(Expressions exps, Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	396 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	397 if (exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	398 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	399 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	400 { Expression e = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	401
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	402 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	403 exps->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	404 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	405 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	406 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	407
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	408
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	409 /******************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	410 * Perform canThrow() on an array of Expressions.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	411 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	412
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	413 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	414 int arrayExpressionCanThrow(Expressions *exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	415 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	416 if (exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	417 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	418 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	419 { Expression e = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	420 if (e && e->canThrow())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	421 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	422 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	423 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	424 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	425 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	426 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	427
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	428 /****************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	429 * Expand tuples.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	430 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	431
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	432 void expandTuples(Expressions *exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	433 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	434 //printf("expandTuples()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	435 if (exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	436 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	437 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	438 { Expression arg = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	439 if (!arg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	440 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	441
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	442 // Look for tuple with 0 members
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	443 if (arg->op == TOKtype)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	444 { TypeExp e = (TypeExp )arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	445 if (e->type->toBasetype()->ty == Ttuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	446 { TypeTuple tt = (TypeTuple )e->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	447
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	448 if (!tt->arguments \|\| tt->arguments->dim == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	449 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	450 exps->remove(i);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	451 if (i == exps->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	452 return;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	453 i--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	454 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	455 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	456 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	457 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	458
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	459 // Inline expand all the tuples
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	460 while (arg->op == TOKtuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	461 { TupleExp te = (TupleExp )arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	462
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	463 exps->remove(i); // remove arg
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	464 exps->insert(i, te->exps); // replace with tuple contents
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	465 if (i == exps->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	466 return; // empty tuple, no more arguments
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	467 arg = (Expression *)exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	468 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	469 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	470 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	471 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	472
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	473 /****************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	474 * Preprocess arguments to function.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	475 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	476
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	477 void preFunctionArguments(Loc loc, Scope sc, Expressions exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	478 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	479 if (exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	480 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	481 expandTuples(exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	482
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	483 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	484 { Expression arg = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	485
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	486 if (!arg->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	487 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	488 #ifdef DEBUG
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	489 if (!global.gag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	490 printf("1: \n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	491 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	492 arg->error("%s is not an expression", arg->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	493 arg = new IntegerExp(arg->loc, 0, Type::tint32);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	494 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	495
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	496 arg = resolveProperties(sc, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	497 exps->data[i] = (void *) arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	498
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	499 //arg->rvalue();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	500 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	501 if (arg->type->ty == Tfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	502 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	503 arg = new AddrExp(arg->loc, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	504 arg = arg->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	505 exps->data[i] = (void *) arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	506 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	507 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	508 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	509 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	510 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	511
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	512 /*********************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	513 * Call copy constructor for struct value argument.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	514 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	515 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	516 Expression callCpCtor(Loc loc, Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	517 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	518 Type *tb = e->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	519 assert(tb->ty == Tstruct);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	520 StructDeclaration sd = ((TypeStruct )tb)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	521 if (sd->cpctor)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	522 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	523 /* Create a variable tmp, and replace the argument e with:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	524 * (tmp = e),tmp
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	525 * and let AssignExp() handle the construction.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	526 * This is not the most efficent, ideally tmp would be constructed
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	527 * directly onto the stack.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	528 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	529 Identifier *idtmp = Lexer::uniqueId("__tmp");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	530 VarDeclaration *tmp = new VarDeclaration(loc, tb, idtmp, new ExpInitializer(0, e));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	531 Expression *ae = new DeclarationExp(loc, tmp);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	532 e = new CommaExp(loc, ae, new VarExp(loc, tmp));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	533 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	534 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	535 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	536 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	537 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	538
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	539 /****************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	540 * Now that we know the exact type of the function we're calling,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	541 * the arguments[] need to be adjusted:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	542 * 1. implicitly convert argument to the corresponding parameter type
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	543 * 2. add default arguments for any missing arguments
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	544 * 3. do default promotions on arguments corresponding to ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	545 * 4. add hidden _arguments[] argument
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	546 * 5. call copy constructor for struct value arguments
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	547 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	548
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	549 void functionArguments(Loc loc, Scope sc, TypeFunction tf, Expressions *arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	550 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	551 unsigned n;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	552
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	553 //printf("functionArguments()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	554 assert(arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	555 size_t nargs = arguments ? arguments->dim : 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	556 size_t nparams = Argument::dim(tf->parameters);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	557
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	558 if (nargs > nparams && tf->varargs == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	559 error(loc, "expected %zu arguments, not %zu for non-variadic function type %s", nparams, nargs, tf->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	560
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	561 n = (nargs > nparams) ? nargs : nparams; // n = max(nargs, nparams)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	562
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	563 int done = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	564 for (size_t i = 0; i < n; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	565 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	566 Expression *arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	567
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	568 if (i < nargs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	569 arg = (Expression *)arguments->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	570 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	571 arg = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	572 Type *tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	573
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	574 if (i < nparams)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	575 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	576 Argument *p = Argument::getNth(tf->parameters, i);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	577
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	578 if (!arg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	579 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	580 if (!p->defaultArg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	581 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	582 if (tf->varargs == 2 && i + 1 == nparams)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	583 goto L2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	584 error(loc, "expected %zu function arguments, not %zu", nparams, nargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	585 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	586 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	587 arg = p->defaultArg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	588 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	589 if (arg->op == TOKdefault)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	590 { DefaultInitExp de = (DefaultInitExp )arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	591 arg = de->resolve(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	592 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	593 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	594 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	595 arg = arg->copy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	596 arguments->push(arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	597 nargs++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	598 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	599
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	600 if (tf->varargs == 2 && i + 1 == nparams)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	601 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	602 //printf("\t\tvarargs == 2, p->type = '%s'\n", p->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	603 if (arg->implicitConvTo(p->type))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	604 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	605 if (nargs != nparams)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	606 error(loc, "expected %zu function arguments, not %zu", nparams, nargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	607 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	608 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	609 L2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	610 Type *tb = p->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	611 Type *tret = p->isLazyArray();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	612 switch (tb->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	613 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	614 case Tsarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	615 case Tarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	616 { // Create a static array variable v of type arg->type
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	617 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	618 /* GCC 4.0 does not like zero length arrays used like
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	619 this; pass a null array value instead. Could also
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	620 just make a one-element array. */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	621 if (nargs - i == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	622 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	623 arg = new NullExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	624 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	625 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	626 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	627 Identifier *id = Lexer::uniqueId("__arrayArg");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	628 Type t = new TypeSArray(((TypeArray )tb)->next, new IntegerExp(nargs - i));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	629 t = t->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	630 VarDeclaration *v = new VarDeclaration(loc, t, id, new VoidInitializer(loc));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	631 v->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	632 v->parent = sc->parent;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	633 //sc->insert(v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	634
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	635 Expression *c = new DeclarationExp(0, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	636 c->type = v->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	637
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	638 for (size_t u = i; u < nargs; u++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	639 { Expression a = (Expression )arguments->data[u];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	640 if (tret && !((TypeArray *)tb)->next->equals(a->type))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	641 a = a->toDelegate(sc, tret);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	642
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	643 Expression *e = new VarExp(loc, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	644 e = new IndexExp(loc, e, new IntegerExp(u + 1 - nparams));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	645 AssignExp *ae = new AssignExp(loc, e, a);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	646 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	647 ae->op = TOKconstruct;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	648 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	649 if (c)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	650 c = new CommaExp(loc, c, ae);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	651 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	652 c = ae;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	653 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	654 arg = new VarExp(loc, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	655 if (c)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	656 arg = new CommaExp(loc, c, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	657 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	658 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	659 case Tclass:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	660 { /* Set arg to be:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	661 * new Tclass(arg0, arg1, ..., argn)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	662 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	663 Expressions *args = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	664 args->setDim(nargs - i);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	665 for (size_t u = i; u < nargs; u++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	666 args->data[u - i] = arguments->data[u];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	667 arg = new NewExp(loc, NULL, NULL, p->type, args);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	668 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	669 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	670 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	671 if (!arg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	672 { error(loc, "not enough arguments");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	673 return;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	674 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	675 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	676 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	677 arg = arg->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	678 //printf("\targ = '%s'\n", arg->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	679 arguments->setDim(i + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	680 done = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	681 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	682
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	683 L1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	684 if (!(p->storageClass & STClazy && p->type->ty == Tvoid))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	685 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	686 if (p->type != arg->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	687 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	688 //printf("arg->type = %s, p->type = %s\n", arg->type->toChars(), p->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	689 arg = arg->implicitCastTo(sc, p->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	690 arg = arg->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	691 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	692 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	693 if (p->storageClass & STCref)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	694 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	695 arg = arg->toLvalue(sc, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	696 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	697 else if (p->storageClass & STCout)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	698 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	699 arg = arg->modifiableLvalue(sc, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	700 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	701
1461 49e6f9d2d33f Fix a segfault in ldc2 (use of an uninitialized variable). Frits van Bommel <fvbommel wxs.nl> parents: 1452 diff changeset	702 tb = arg->type->toBasetype();
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	703 // LDC we don't want this!
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	704 #if !IN_LLVM
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	705 // Convert static arrays to pointers
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	706 if (tb->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	707 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	708 arg = arg->checkToPointer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	709 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	710 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	711 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	712 if (tb->ty == Tstruct && !(p->storageClass & (STCref \| STCout)))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	713 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	714 arg = callCpCtor(loc, sc, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	715 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	716 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	717
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	718 // Convert lazy argument to a delegate
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	719 if (p->storageClass & STClazy)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	720 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	721 arg = arg->toDelegate(sc, p->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	722 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	723 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	724 /* Look for arguments that cannot 'escape' from the called
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	725 * function.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	726 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	727 if (!tf->parameterEscapes(p))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	728 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	729 /* Function literals can only appear once, so if this
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	730 * appearance was scoped, there cannot be any others.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	731 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	732 if (arg->op == TOKfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	733 { FuncExp fe = (FuncExp )arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	734 fe->fd->tookAddressOf = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	735 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	736
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	737 /* For passing a delegate to a scoped parameter,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	738 * this doesn't count as taking the address of it.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	739 * We only worry about 'escaping' references to the function.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	740 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	741 else if (arg->op == TOKdelegate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	742 { DelegateExp de = (DelegateExp )arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	743 if (de->e1->op == TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	744 { VarExp ve = (VarExp )de->e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	745 FuncDeclaration *f = ve->var->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	746 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	747 { f->tookAddressOf--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	748 //printf("tookAddressOf = %d\n", f->tookAddressOf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	749 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	750 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	751 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	752 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	753 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	754 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	755 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	756 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	757
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	758 // If not D linkage, do promotions
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	759 // LDC: don't do promotions on intrinsics
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	760 if (tf->linkage != LINKd && tf->linkage != LINKintrinsic)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	761 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	762 // Promote bytes, words, etc., to ints
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	763 arg = arg->integralPromotions(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	764
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	765 // Promote floats to doubles
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	766 switch (arg->type->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	767 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	768 case Tfloat32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	769 arg = arg->castTo(sc, Type::tfloat64);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	770 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	771
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	772 case Timaginary32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	773 arg = arg->castTo(sc, Type::timaginary64);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	774 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	775 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	776 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	777
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	778 // Convert static arrays to dynamic arrays
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	779 tb = arg->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	780 if (tb->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	781 { TypeSArray ts = (TypeSArray )tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	782 Type *ta = ts->next->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	783 if (ts->size(arg->loc) == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	784 { arg = new NullExp(arg->loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	785 arg->type = ta;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	786 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	787 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	788 arg = arg->castTo(sc, ta);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	789 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	790 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	791 if (tb->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	792 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	793 arg = callCpCtor(loc, sc, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	794 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	795
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	796 // Give error for overloaded function addresses
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	797 if (arg->op == TOKsymoff)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	798 { SymOffExp se = (SymOffExp )arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	799 if (se->hasOverloads && !se->var->isFuncDeclaration()->isUnique())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	800 arg->error("function %s is overloaded", arg->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	801 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	802 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	803 arg->rvalue();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	804 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	805 arg = arg->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	806 arguments->data[i] = (void *) arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	807 if (done)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	808 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	809 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	810
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	811 #if !IN_LLVM
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	812 // If D linkage and variadic, add _arguments[] as first argument
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	813 if (tf->linkage == LINKd && tf->varargs == 1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	814 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	815 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	816
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	817 e = createTypeInfoArray(sc, (Expression **)&arguments->data[nparams],
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	818 arguments->dim - nparams);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	819 arguments->insert(0, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	820 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	821 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	822 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	823
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	824 /**************************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	825 * Write expression out to buf, but wrap it
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	826 * in ( ) if its precedence is less than pr.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	827 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	828
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	829 void expToCBuffer(OutBuffer buf, HdrGenState hgs, Expression *e, enum PREC pr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	830 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	831 //if (precedence[e->op] == 0) e->dump(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	832 if (precedence[e->op] < pr \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	833 /* Despite precedence, we don't allow a<b<c expressions.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	834 * They must be parenthesized.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	835 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	836 (pr == PREC_rel && precedence[e->op] == pr))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	837 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	838 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	839 e->toCBuffer(buf, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	840 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	841 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	842 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	843 e->toCBuffer(buf, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	844 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	845
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	846 /**************************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	847 * Write out argument list to buf.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	848 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	849
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	850 void argsToCBuffer(OutBuffer buf, Expressions arguments, HdrGenState *hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	851 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	852 if (arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	853 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	854 for (size_t i = 0; i < arguments->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	855 { Expression arg = (Expression )arguments->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	856
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	857 if (arg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	858 { if (i)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	859 buf->writeByte(',');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	860 expToCBuffer(buf, hgs, arg, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	861 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	862 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	863 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	864 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	865
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	866 /**************************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	867 * Write out argument types to buf.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	868 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	869
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	870 void argExpTypesToCBuffer(OutBuffer buf, Expressions arguments, HdrGenState *hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	871 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	872 if (arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	873 { OutBuffer argbuf;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	874
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	875 for (size_t i = 0; i < arguments->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	876 { Expression arg = (Expression )arguments->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	877
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	878 if (i)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	879 buf->writeByte(',');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	880 argbuf.reset();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	881 arg->type->toCBuffer2(&argbuf, hgs, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	882 buf->write(&argbuf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	883 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	884 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	885 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	886
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	887 /****************************** Expression ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	888
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	889 Expression::Expression(Loc loc, enum TOK op, int size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	890 : loc(loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	891 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	892 //printf("Expression::Expression(op = %d) this = %p\n", op, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	893 this->loc = loc;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	894 this->op = op;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	895 this->size = size;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	896 type = NULL;
1465 dd72f56ad211 Added missing initializer of (LDC introduced) Expression::cachedLvalue in D2 frontend. Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1461 diff changeset	897
dd72f56ad211 Added missing initializer of (LDC introduced) Expression::cachedLvalue in D2 frontend. Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1461 diff changeset	898 #if IN_LLVM
dd72f56ad211 Added missing initializer of (LDC introduced) Expression::cachedLvalue in D2 frontend. Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1461 diff changeset	899 cachedLvalue = NULL;
dd72f56ad211 Added missing initializer of (LDC introduced) Expression::cachedLvalue in D2 frontend. Tomas Lindquist Olsen <tomas.l.olsen gmail com> parents: 1461 diff changeset	900 #endif
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	901 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	902
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	903 Expression *Expression::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	904 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	905 //printf("Expression::syntaxCopy()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	906 //dump(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	907 return copy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	908 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	909
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	910 /*********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	911 * Does not do a deep copy.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	912 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	913
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	914 Expression *Expression::copy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	915 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	916 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	917 if (!size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	918 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	919 #ifdef DEBUG
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	920 fprintf(stdmsg, "No expression copy for: %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	921 printf("op = %d\n", op);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	922 dump(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	923 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	924 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	925 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	926 e = (Expression *)mem.malloc(size);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	927 //printf("Expression::copy(op = %d) e = %p\n", op, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	928 return (Expression *)memcpy(e, this, size);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	929 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	930
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	931 /**************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	932 * Semantically analyze Expression.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	933 * Determine types, fold constants, etc.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	934 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	935
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	936 Expression Expression::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	937 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	938 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	939 printf("Expression::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	940 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	941 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	942 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	943 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	944 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	945 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	946 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	947
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	948 /**********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	949 * Try to run semantic routines.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	950 * If they fail, return NULL.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	951 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	952
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	953 Expression Expression::trySemantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	954 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	955 unsigned errors = global.errors;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	956 global.gag++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	957 Expression *e = semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	958 global.gag--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	959 if (errors != global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	960 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	961 global.errors = errors;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	962 e = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	963 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	964 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	965 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	966
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	967 void Expression::print()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	968 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	969 fprintf(stdmsg, "%s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	970 fflush(stdmsg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	971 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	972
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	973 char *Expression::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	974 { OutBuffer *buf;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	975 HdrGenState hgs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	976
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	977 memset(&hgs, 0, sizeof(hgs));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	978 buf = new OutBuffer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	979 toCBuffer(buf, &hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	980 return buf->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	981 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	982
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	983 void Expression::error(const char *format, ...)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	984 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	985 va_list ap;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	986 va_start(ap, format);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	987 ::verror(loc, format, ap);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	988 va_end( ap );
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	989 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	990
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	991 void Expression::warning(const char *format, ...)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	992 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	993 if (global.params.warnings && !global.gag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	994 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	995 va_list ap;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	996 va_start(ap, format);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	997 ::vwarning(loc, format, ap);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	998 va_end( ap );
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	999 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1000 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1001
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1002 void Expression::rvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1003 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1004 if (type && type->toBasetype()->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1005 { error("expression %s is void and has no value", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1006 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1007 dump(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1008 halt();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1009 #endif
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	1010 type = Type::terror;
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1011 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1012 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1013
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1014 Expression Expression::combine(Expression e1, Expression *e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1015 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1016 if (e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1017 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1018 if (e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1019 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1020 e1 = new CommaExp(e1->loc, e1, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1021 e1->type = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1022 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1023 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1024 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1025 e1 = e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1026 return e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1027 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1028
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1029 dinteger_t Expression::toInteger()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1030 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1031 //printf("Expression %s\n", Token::toChars(op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1032 error("Integer constant expression expected instead of %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1033 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1034 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1035
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1036 uinteger_t Expression::toUInteger()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1037 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1038 //printf("Expression %s\n", Token::toChars(op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1039 return (uinteger_t)toInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1040 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1041
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1042 real_t Expression::toReal()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1043 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1044 error("Floating point constant expression expected instead of %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1045 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1046 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1047
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1048 real_t Expression::toImaginary()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1049 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1050 error("Floating point constant expression expected instead of %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1051 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1052 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1053
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1054 complex_t Expression::toComplex()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1055 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1056 error("Floating point constant expression expected instead of %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1057 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1058 return complex_t(real_t(0)); // %% nicer
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1059 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1060 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1061 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1062 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1063
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1064 void Expression::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1065 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1066 buf->writestring(Token::toChars(op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1067 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1068
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1069 void Expression::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1070 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1071 error("expression %s is not a valid template value argument", toChars());
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	1072 #ifdef DEBUG
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	1073 dump(0);
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	1074 #endif
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1075 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1076
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1077 /***************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1078 * Return !=0 if expression is an lvalue.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1079 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1080 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1081 int Expression::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1082 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1083 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1084 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1085 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1086
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1087 /*******************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1088 * Give error if we're not an lvalue.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1089 * If we can, convert expression to be an lvalue.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1090 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1091
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1092 Expression Expression::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1093 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1094 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1095 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1096 else if (!loc.filename)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1097 loc = e->loc;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1098 error("%s is not an lvalue", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1099 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1100 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1101
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1102 Expression Expression::modifiableLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1103 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1104 //printf("Expression::modifiableLvalue() %s, type = %s\n", toChars(), type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1105
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1106 // See if this expression is a modifiable lvalue (i.e. not const)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1107 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1108 if (type && (!type->isMutable() \|\| !type->isAssignable()))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1109 error("%s is not mutable", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1110 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1111 return toLvalue(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1112 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1113
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1114 /************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1115 * Detect cases where pointers to the stack can 'escape' the
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1116 * lifetime of the stack frame.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1117 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1118
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1119 void Expression::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1120 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1121 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1122
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1123 void Expression::checkScalar()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1124 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1125 if (!type->isscalar())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1126 error("'%s' is not a scalar, it is a %s", toChars(), type->toChars());
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	1127 rvalue();
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1128 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1129
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1130 void Expression::checkNoBool()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1131 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1132 if (type->toBasetype()->ty == Tbool)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1133 error("operation not allowed on bool '%s'", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1134 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1135
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1136 Expression *Expression::checkIntegral()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1137 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1138 if (!type->isintegral())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1139 { error("'%s' is not of integral type, it is a %s", toChars(), type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1140 return new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1141 }
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	1142 rvalue();
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1143 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1144 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1145
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1146 Expression *Expression::checkArithmetic()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1147 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1148 if (!type->isintegral() && !type->isfloating())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1149 { error("'%s' is not of arithmetic type, it is a %s", toChars(), type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1150 return new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1151 }
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	1152 rvalue();
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1153 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1154 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1155
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1156 void Expression::checkDeprecated(Scope sc, Dsymbol s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1157 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1158 s->checkDeprecated(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1159 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1160
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1161 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1162 void Expression::checkPurity(Scope sc, FuncDeclaration f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1163 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1164 #if 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1165 if (sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1166 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1167 FuncDeclaration *outerfunc=sc->func;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1168 while (outerfunc->toParent2() && outerfunc->toParent2()->isFuncDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1169 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1170 outerfunc = outerfunc->toParent2()->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1171 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1172 if (outerfunc->isPure() && !sc->intypeof && (!f->isNested() && !f->isPure()))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1173 error("pure function '%s' cannot call impure function '%s'\n",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1174 sc->func->toChars(), f->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1175 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1176 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1177 if (sc->func && sc->func->isPure() && !sc->intypeof && !f->isPure())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1178 error("pure function '%s' cannot call impure function '%s'\n",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1179 sc->func->toChars(), f->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1180 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1181 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1182 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1183
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1184 /********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1185 * Check for expressions that have no use.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1186 * Input:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1187 * flag 0 not going to use the result, so issue error message if no
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1188 * side effects
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1189 * 1 the result of the expression is used, but still check
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1190 * for useless subexpressions
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1191 * 2 do not issue error messages, just return !=0 if expression
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1192 * has side effects
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1193 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1194
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1195 int Expression::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1196 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1197 if (flag == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1198 { if (op == TOKimport)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1199 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1200 error("%s has no effect", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1201 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1202 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1203 error("%s has no effect in expression (%s)",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1204 Token::toChars(op), toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1205 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1206 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1207 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1208
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1209 /*****************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1210 * Check that expression can be tested for true or false.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1211 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1212
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1213 Expression *Expression::checkToBoolean()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1214 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1215 // Default is 'yes' - do nothing
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1216
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1217 #ifdef DEBUG
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1218 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1219 dump(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1220 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1221
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1222 if (!type->checkBoolean())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1223 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1224 error("expression %s of type %s does not have a boolean value", toChars(), type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1225 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1226 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1227 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1228
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1229 /****************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1230 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1231
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1232 Expression *Expression::checkToPointer()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1233 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1234 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1235 Type *tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1236
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1237 //printf("Expression::checkToPointer()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1238 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1239
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1240 // If C static array, convert to pointer
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1241 tb = type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1242 if (tb->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1243 { TypeSArray ts = (TypeSArray )tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1244 if (ts->size(loc) == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1245 e = new NullExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1246 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1247 e = new AddrExp(loc, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1248 e->type = ts->next->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1249 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1250 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1251 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1252
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1253 /******************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1254 * Take address of expression.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1255 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1256
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1257 Expression Expression::addressOf(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1258 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1259 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1260
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1261 //printf("Expression::addressOf()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1262 e = toLvalue(sc, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1263 e = new AddrExp(loc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1264 e->type = type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1265 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1266 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1267
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1268 /******************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1269 * If this is a reference, dereference it.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1270 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1271
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1272 Expression *Expression::deref()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1273 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1274 //printf("Expression::deref()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1275 if (type->ty == Treference)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1276 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1277
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1278 e = new PtrExp(loc, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1279 e->type = ((TypeReference *)type)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1280 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1281 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1282 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1283 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1284
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1285 /********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1286 * Does this expression statically evaluate to a boolean TRUE or FALSE?
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1287 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1288
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1289 int Expression::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1290 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1291 return FALSE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1292 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1293
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1294 /********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1295 * Does this expression result in either a 1 or a 0?
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1296 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1297
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1298 int Expression::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1299 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1300 return FALSE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1301 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1302
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1303 /********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1304 * Can this expression throw an exception?
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1305 * Valid only after semantic() pass.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1306 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1307
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1308 int Expression::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1309 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1310 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1311 return FALSE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1312 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1313 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1314 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1315 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1316
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1317
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1318
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1319 Expressions Expression::arraySyntaxCopy(Expressions exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1320 { Expressions *a = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1321
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1322 if (exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1323 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1324 a = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1325 a->setDim(exps->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1326 for (int i = 0; i < a->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1327 { Expression e = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1328
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1329 e = e->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1330 a->data[i] = e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1331 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1332 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1333 return a;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1334 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1335
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1336 /****************************** IntegerExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1337
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1338 IntegerExp::IntegerExp(Loc loc, dinteger_t value, Type *type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1339 : Expression(loc, TOKint64, sizeof(IntegerExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1340 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1341 //printf("IntegerExp(value = %lld, type = '%s')\n", value, type ? type->toChars() : "");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1342 if (type && !type->isscalar())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1343 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1344 //printf("%s, loc = %d\n", toChars(), loc.linnum);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1345 error("integral constant must be scalar type, not %s", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1346 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1347 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1348 this->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1349 this->value = value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1350 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1351
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1352 IntegerExp::IntegerExp(dinteger_t value)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1353 : Expression(0, TOKint64, sizeof(IntegerExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1354 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1355 this->type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1356 this->value = value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1357 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1358
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1359 int IntegerExp::equals(Object *o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1360 { IntegerExp *ne;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1361
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1362 if (this == o \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1363 (((Expression *)o)->op == TOKint64 &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1364 ((ne = (IntegerExp *)o), type->toHeadMutable()->equals(ne->type->toHeadMutable())) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1365 value == ne->value))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1366 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1367 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1368 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1369
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1370 char *IntegerExp::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1371 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1372 #if 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1373 return Expression::toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1374 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1375 static char buffer[sizeof(value) * 3 + 1];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1376
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1377 sprintf(buffer, "%jd", value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1378 return buffer;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1379 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1380 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1381
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1382 dinteger_t IntegerExp::toInteger()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1383 { Type *t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1384
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1385 t = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1386 while (t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1387 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1388 switch (t->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1389 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1390 case Tbit:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1391 case Tbool: value = (value != 0); break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1392 case Tint8: value = (d_int8) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1393 case Tchar:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1394 case Tuns8: value = (d_uns8) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1395 case Tint16: value = (d_int16) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1396 case Twchar:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1397 case Tuns16: value = (d_uns16) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1398 case Tint32: value = (d_int32) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1399 case Tdchar:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1400 case Tuns32: value = (d_uns32) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1401 case Tint64: value = (d_int64) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1402 case Tuns64: value = (d_uns64) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1403 case Tpointer:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1404 if (PTRSIZE == 4)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1405 value = (d_uns32) value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1406 else if (PTRSIZE == 8)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1407 value = (d_uns64) value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1408 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1409 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1410 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1411
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1412 case Tenum:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1413 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1414 TypeEnum te = (TypeEnum )t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1415 t = te->sym->memtype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1416 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1417 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1418
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1419 case Ttypedef:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1420 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1421 TypeTypedef tt = (TypeTypedef )t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1422 t = tt->sym->basetype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1423 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1424 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1425
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1426 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1427 /* This can happen if errors, such as
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1428 * the type is painted on like in fromConstInitializer().
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1429 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1430 if (!global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1431 { type->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1432 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1433 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1434 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1435 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1436 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1437 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1438 return value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1439 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1440
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1441 real_t IntegerExp::toReal()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1442 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1443 Type *t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1444
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1445 toInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1446 t = type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1447 if (t->ty == Tuns64)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1448 return (real_t)(d_uns64)value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1449 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1450 return (real_t)(d_int64)value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1451 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1452
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1453 real_t IntegerExp::toImaginary()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1454 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1455 return (real_t) 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1456 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1457
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1458 complex_t IntegerExp::toComplex()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1459 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1460 return toReal();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1461 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1462
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1463 int IntegerExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1464 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1465 return result ? value != 0 : value == 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1466 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1467
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1468 Expression IntegerExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1469 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1470 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1471 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1472 // Determine what the type of this number is
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1473 dinteger_t number = value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1474
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1475 if (number & 0x8000000000000000LL)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1476 type = Type::tuns64;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1477 else if (number & 0xFFFFFFFF80000000LL)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1478 type = Type::tint64;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1479 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1480 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1481 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1482 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1483 { if (!type->deco)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1484 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1485 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1486 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1487 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1488
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1489 Expression IntegerExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1490 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1491 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1492 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1493 else if (!loc.filename)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1494 loc = e->loc;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1495 e->error("constant %s is not an lvalue", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1496 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1497 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1498
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1499 void IntegerExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1500 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1501 dinteger_t v = toInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1502
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1503 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1504 { Type *t = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1505
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1506 L1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1507 switch (t->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1508 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1509 case Tenum:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1510 { TypeEnum te = (TypeEnum )t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1511 buf->printf("cast(%s)", te->sym->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1512 t = te->sym->memtype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1513 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1514 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1515
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1516 case Ttypedef:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1517 { TypeTypedef tt = (TypeTypedef )t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1518 buf->printf("cast(%s)", tt->sym->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1519 t = tt->sym->basetype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1520 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1521 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1522
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1523 case Twchar: // BUG: need to cast(wchar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1524 case Tdchar: // BUG: need to cast(dchar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1525 if ((uinteger_t)v > 0xFF)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1526 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1527 buf->printf("'\\U%08x'", (unsigned)v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1528 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1529 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1530 case Tchar:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1531 if (v == '\'')
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1532 buf->writestring("'\\''");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1533 else if (isprint(v) && v != '\\')
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1534 buf->printf("'%c'", (int)v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1535 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1536 buf->printf("'\\x%02x'", (int)v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1537 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1538
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1539 case Tint8:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1540 buf->writestring("cast(byte)");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1541 goto L2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1542
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1543 case Tint16:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1544 buf->writestring("cast(short)");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1545 goto L2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1546
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1547 case Tint32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1548 L2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1549 buf->printf("%d", (int)v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1550 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1551
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1552 case Tuns8:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1553 buf->writestring("cast(ubyte)");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1554 goto L3;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1555
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1556 case Tuns16:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1557 buf->writestring("cast(ushort)");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1558 goto L3;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1559
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1560 case Tuns32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1561 L3:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1562 buf->printf("%du", (unsigned)v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1563 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1564
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1565 case Tint64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1566 buf->printf("%jdL", v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1567 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1568
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1569 case Tuns64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1570 L4:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1571 buf->printf("%juLU", v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1572 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1573
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1574 case Tbit:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1575 case Tbool:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1576 buf->writestring((char *)(v ? "true" : "false"));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1577 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1578
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1579 case Tpointer:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1580 buf->writestring("cast(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1581 buf->writestring(t->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1582 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1583 if (PTRSIZE == 4)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1584 goto L3;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1585 else if (PTRSIZE == 8)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1586 goto L4;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1587 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1588 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1589
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1590 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1591 /* This can happen if errors, such as
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1592 * the type is painted on like in fromConstInitializer().
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1593 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1594 if (!global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1595 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1596 #ifdef DEBUG
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1597 t->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1598 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1599 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1600 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1601 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1602 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1603 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1604 else if (v & 0x8000000000000000LL)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1605 buf->printf("0x%jx", v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1606 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1607 buf->printf("%jd", v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1608 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1609
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1610 void IntegerExp::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1611 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1612 if ((sinteger_t)value < 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1613 buf->printf("N%jd", -value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1614 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1615 buf->printf("%jd", value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1616 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1617
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1618 /****************************** ErrorExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1619
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1620 /* Use this expression for error recovery.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1621 * It should behave as a 'sink' to prevent further cascaded error messages.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1622 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1623
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1624 ErrorExp::ErrorExp()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1625 : IntegerExp(0, 0, Type::terror)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1626 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1627 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1628
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1629 void ErrorExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1630 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1631 buf->writestring("__error");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1632 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1633
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1634 /****************************** RealExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1635
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1636 RealExp::RealExp(Loc loc, real_t value, Type *type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1637 : Expression(loc, TOKfloat64, sizeof(RealExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1638 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1639 //printf("RealExp::RealExp(%Lg)\n", value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1640 this->value = value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1641 this->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1642 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1643
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1644 char *RealExp::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1645 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1646 char buffer[sizeof(value) * 3 + 8 + 1 + 1];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1647
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1648 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1649 value.format(buffer, sizeof(buffer));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1650 if (type->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1651 strcat(buffer, "i");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1652 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1653 sprintf(buffer, type->isimaginary() ? "%Lgi" : "%Lg", value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1654 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1655 assert(strlen(buffer) < sizeof(buffer));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1656 return mem.strdup(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1657 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1658
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1659 dinteger_t RealExp::toInteger()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1660 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1661 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1662 return toReal().toInt();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1663 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1664 return (sinteger_t) toReal();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1665 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1666 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1667
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1668 uinteger_t RealExp::toUInteger()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1669 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1670 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1671 return (uinteger_t) toReal().toInt();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1672 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1673 return (uinteger_t) toReal();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1674 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1675 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1676
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1677 real_t RealExp::toReal()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1678 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1679 return type->isreal() ? value : 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1680 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1681
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1682 real_t RealExp::toImaginary()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1683 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1684 return type->isreal() ? 0 : value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1685 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1686
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1687 complex_t RealExp::toComplex()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1688 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1689 #ifdef __DMC__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1690 return toReal() + toImaginary() * I;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1691 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1692 return complex_t(toReal(), toImaginary());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1693 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1694 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1695
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1696 /********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1697 * Test to see if two reals are the same.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1698 * Regard NaN's as equivalent.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1699 * Regard +0 and -0 as different.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1700 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1701
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1702 int RealEquals(real_t x1, real_t x2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1703 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1704 //#if 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1705 // return (Port::isNan(x1) && Port::isNan(x2)) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1706 //#elif __APPLE__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1707 #if __APPLE__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1708 return (__inline_isnan(x1) && __inline_isnan(x2)) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1709 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1710 return // special case nans
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1711 (isnan(x1) && isnan(x2)) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1712 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1713 // and zero, in order to distinguish +0 from -0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1714 (x1 == 0 && x2 == 0 && 1./x1 == 1./x2) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1715 // otherwise just compare
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1716 (x1 != 0. && x1 == x2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1717 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1718
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1719 int RealExp::equals(Object *o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1720 { RealExp *ne;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1721
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1722 if (this == o \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1723 (((Expression *)o)->op == TOKfloat64 &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1724 ((ne = (RealExp *)o), type->toHeadMutable()->equals(ne->type->toHeadMutable())) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1725 RealEquals(value, ne->value)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1726 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1727 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1728 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1729 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1730 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1731
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1732 Expression RealExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1733 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1734 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1735 type = Type::tfloat64;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1736 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1737 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1738 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1739 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1740
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1741 int RealExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1742 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1743 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1744 return result ? (! value.isZero()) : (value.isZero());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1745 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1746 return result ? (value != 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1747 : (value == 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1748 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1749 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1750
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1751 void floatToBuffer(OutBuffer buf, Type type, real_t value)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1752 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1753 /* In order to get an exact representation, try converting it
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1754 * to decimal then back again. If it matches, use it.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1755 * If it doesn't, fall back to hex, which is
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1756 * always exact.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1757 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1758 char buffer[25];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1759 sprintf(buffer, "%Lg", value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1760 assert(strlen(buffer) < sizeof(buffer));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1761 #if _WIN32 && __DMC__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1762 char *save = __locale_decpoint;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1763 __locale_decpoint = ".";
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1764 real_t r = strtold(buffer, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1765 __locale_decpoint = save;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1766 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1767 real_t r = strtold(buffer, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1768 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1769 if (r == value) // if exact duplication
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1770 buf->writestring(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1771 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1772 buf->printf("%La", value); // ensure exact duplication
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1773
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1774 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1775 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1776 Type *t = type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1777 switch (t->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1778 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1779 case Tfloat32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1780 case Timaginary32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1781 case Tcomplex32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1782 buf->writeByte('F');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1783 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1784
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1785 case Tfloat80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1786 case Timaginary80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1787 case Tcomplex80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1788 buf->writeByte('L');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1789 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1790
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1791 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1792 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1793 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1794 if (t->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1795 buf->writeByte('i');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1796 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1797 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1798
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1799 void RealExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1800 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1801 floatToBuffer(buf, type, value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1802 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1803
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1804 void realToMangleBuffer(OutBuffer *buf, real_t value)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1805 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1806 /* Rely on %A to get portable mangling.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1807 * Must munge result to get only identifier characters.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1808 *
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1809 * Possible values from %A => mangled result
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1810 * NAN => NAN
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1811 * -INF => NINF
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1812 * INF => INF
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1813 * -0X1.1BC18BA997B95P+79 => N11BC18BA997B95P79
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1814 * 0X1.9P+2 => 19P2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1815 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1816
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1817 //#if 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1818 // if (Port::isNan(value))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1819 //#elif __APPLE__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1820 #if __APPLE__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1821 if (__inline_isnan(value))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1822 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1823 if (isnan(value))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1824 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1825 buf->writestring("NAN"); // no -NAN bugs
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1826 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1827 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1828 char buffer[32];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1829 int n = sprintf(buffer, "%LA", value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1830 assert(n > 0 && n < sizeof(buffer));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1831 for (int i = 0; i < n; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1832 { char c = buffer[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1833
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1834 switch (c)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1835 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1836 case '-':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1837 buf->writeByte('N');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1838 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1839
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1840 case '+':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1841 case 'X':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1842 case '.':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1843 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1844
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1845 case '0':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1846 if (i < 2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1847 break; // skip leading 0X
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1848 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1849 buf->writeByte(c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1850 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1851 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1852 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1853 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1854 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1855
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1856 void RealExp::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1857 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1858 buf->writeByte('e');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1859 realToMangleBuffer(buf, value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1860 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1861
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1862
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1863 /****************************** ComplexExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1864
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1865 ComplexExp::ComplexExp(Loc loc, complex_t value, Type *type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1866 : Expression(loc, TOKcomplex80, sizeof(ComplexExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1867 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1868 this->value = value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1869 this->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1870 //printf("ComplexExp::ComplexExp(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1871 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1872
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1873 char *ComplexExp::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1874 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1875 char buffer[sizeof(value) * 3 + 8 + 1];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1876
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1877 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1878 char buf1[sizeof(value) * 3 + 8 + 1];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1879 char buf2[sizeof(value) * 3 + 8 + 1];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1880 creall(value).format(buf1, sizeof(buf1));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1881 cimagl(value).format(buf2, sizeof(buf2));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1882 sprintf(buffer, "(%s+%si)", buf1, buf2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1883 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1884 sprintf(buffer, "(%Lg+%Lgi)", creall(value), cimagl(value));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1885 assert(strlen(buffer) < sizeof(buffer));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1886 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1887 return mem.strdup(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1888 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1889
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1890 dinteger_t ComplexExp::toInteger()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1891 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1892 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1893 return (sinteger_t) toReal().toInt();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1894 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1895 return (sinteger_t) toReal();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1896 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1897 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1898
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1899 uinteger_t ComplexExp::toUInteger()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1900 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1901 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1902 return (uinteger_t) toReal().toInt();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1903 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1904 return (uinteger_t) toReal();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1905 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1906 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1907
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1908 real_t ComplexExp::toReal()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1909 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1910 return creall(value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1911 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1912
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1913 real_t ComplexExp::toImaginary()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1914 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1915 return cimagl(value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1916 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1917
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1918 complex_t ComplexExp::toComplex()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1919 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1920 return value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1921 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1922
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1923 int ComplexExp::equals(Object *o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1924 { ComplexExp *ne;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1925
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1926 if (this == o \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1927 (((Expression *)o)->op == TOKcomplex80 &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1928 ((ne = (ComplexExp *)o), type->toHeadMutable()->equals(ne->type->toHeadMutable())) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1929 RealEquals(creall(value), creall(ne->value)) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1930 RealEquals(cimagl(value), cimagl(ne->value))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1931 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1932 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1933 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1934 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1935 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1936
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1937 Expression ComplexExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1938 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1939 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1940 type = Type::tcomplex80;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1941 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1942 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1943 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1944 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1945
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1946 int ComplexExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1947 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1948 if (result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1949 return (bool)(value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1950 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1951 return !value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1952 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1953
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1954 void ComplexExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1955 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1956 /* Print as:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1957 * (re+imi)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1958 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1959 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1960 char buf1[sizeof(value) * 3 + 8 + 1];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1961 char buf2[sizeof(value) * 3 + 8 + 1];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1962 creall(value).format(buf1, sizeof(buf1));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1963 cimagl(value).format(buf2, sizeof(buf2));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1964 buf->printf("(%s+%si)", buf1, buf2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1965 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1966 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1967 floatToBuffer(buf, type, creall(value));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1968 buf->writeByte('+');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1969 floatToBuffer(buf, type, cimagl(value));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1970 buf->writestring("i)");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1971 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1972 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1973
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1974 void ComplexExp::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1975 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1976 buf->writeByte('c');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1977 real_t r = toReal();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1978 realToMangleBuffer(buf, r);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1979 buf->writeByte('c'); // separate the two
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1980 r = toImaginary();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1981 realToMangleBuffer(buf, r);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1982 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1983
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1984 /****************************** IdentifierExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1985
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1986 IdentifierExp::IdentifierExp(Loc loc, Identifier *ident)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1987 : Expression(loc, TOKidentifier, sizeof(IdentifierExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1988 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1989 this->ident = ident;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1990 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1991
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1992 Expression IdentifierExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1993 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1994 Dsymbol *s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1995 Dsymbol *scopesym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1996
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1997 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1998 printf("IdentifierExp::semantic('%s')\n", ident->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1999 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2000 s = sc->search(loc, ident, &scopesym);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2001 if (s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2002 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2003 WithScopeSymbol *withsym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2004
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2005 /* See if the symbol was a member of an enclosing 'with'
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2006 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2007 withsym = scopesym->isWithScopeSymbol();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2008 if (withsym)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2009 {
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2010 #if DMDV2
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2011 /* Disallow shadowing
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2012 */
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2013 // First find the scope of the with
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2014 Scope *scwith = sc;
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2015 while (scwith->scopesym != scopesym)
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2016 { scwith = scwith->enclosing;
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2017 assert(scwith);
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2018 }
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2019 // Look at enclosing scopes for symbols with the same name,
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2020 // in the same function
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2021 for (Scope *scx = scwith; scx && scx->func == scwith->func; scx = scx->enclosing)
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2022 { Dsymbol *s2;
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2023
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2024 if (scx->scopesym && scx->scopesym->symtab &&
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2025 (s2 = scx->scopesym->symtab->lookup(s->ident)) != NULL &&
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2026 s != s2)
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2027 {
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2028 error("with symbol %s is shadowing local symbol %s", s->toPrettyChars(), s2->toPrettyChars());
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2029 }
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2030 }
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2031 #endif
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2032 s = s->toAlias();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2033
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2034 // Same as wthis.ident
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2035 if (s->needThis() \|\| s->isTemplateDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2036 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2037 e = new VarExp(loc, withsym->withstate->wthis);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2038 e = new DotIdExp(loc, e, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2039 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2040 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2041 { Type *t = withsym->withstate->wthis->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2042 if (t->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2043 t = ((TypePointer *)t)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2044 e = typeDotIdExp(loc, t, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2045 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2046 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2047 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2048 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2049 /* If f is really a function template,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2050 * then replace f with the function template declaration.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2051 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2052 FuncDeclaration *f = s->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2053 if (f && f->parent)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2054 { TemplateInstance *ti = f->parent->isTemplateInstance();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2055
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2056 if (ti &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2057 !ti->isTemplateMixin() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2058 (ti->name == f->ident \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2059 ti->toAlias()->ident == f->ident)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2060 &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2061 ti->tempdecl && ti->tempdecl->onemember)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2062 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2063 TemplateDeclaration *tempdecl = ti->tempdecl;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2064 if (tempdecl->overroot) // if not start of overloaded list of TemplateDeclaration's
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2065 tempdecl = tempdecl->overroot; // then get the start
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2066 e = new TemplateExp(loc, tempdecl);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2067 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2068 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2069 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2070 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2071 // Haven't done overload resolution yet, so pass 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2072 e = new DsymbolExp(loc, s, 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2073 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2074 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2075 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2076 error("undefined identifier %s", ident->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2077 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2078 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2079 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2080
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2081 char *IdentifierExp::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2082 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2083 return ident->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2084 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2085
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2086 void IdentifierExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2087 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2088 if (hgs->hdrgen)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2089 buf->writestring(ident->toHChars2());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2090 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2091 buf->writestring(ident->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2092 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2093
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2094 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2095 int IdentifierExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2096 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2097 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2098 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2099 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2100
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2101 Expression IdentifierExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2102 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2103 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2104 tym = tybasic(e1->ET->Tty);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2105 if (!(tyscalar(tym) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2106 tym == TYstruct \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2107 tym == TYarray && e->Eoper == TOKaddr))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2108 synerr(EM_lvalue); // lvalue expected
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2109 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2110 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2111 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2112
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2113 /****************************** DollarExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2114
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2115 DollarExp::DollarExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2116 : IdentifierExp(loc, Id::dollar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2117 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2118 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2119
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2120 /****************************** DsymbolExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2121
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2122 DsymbolExp::DsymbolExp(Loc loc, Dsymbol *s, int hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2123 : Expression(loc, TOKdsymbol, sizeof(DsymbolExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2124 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2125 this->s = s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2126 this->hasOverloads = hasOverloads;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2127 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2128
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2129 Expression DsymbolExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2130 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2131 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2132 printf("DsymbolExp::semantic('%s')\n", s->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2133 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2134
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2135 Lagain:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2136 EnumMember *em;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2137 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2138 VarDeclaration *v;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2139 FuncDeclaration *f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2140 FuncLiteralDeclaration *fld;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2141 OverloadSet *o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2142 Declaration *d;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2143 ClassDeclaration *cd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2144 ClassDeclaration *thiscd = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2145 Import *imp;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2146 Package *pkg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2147 Type *t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2148
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2149 //printf("DsymbolExp:: %p '%s' is a symbol\n", this, toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2150 //printf("s = '%s', s->kind = '%s'\n", s->toChars(), s->kind());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2151 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2152 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2153 if (!s->isFuncDeclaration()) // functions are checked after overloading
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2154 checkDeprecated(sc, s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2155 s = s->toAlias();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2156 //printf("s = '%s', s->kind = '%s', s->needThis() = %p\n", s->toChars(), s->kind(), s->needThis());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2157 if (!s->isFuncDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2158 checkDeprecated(sc, s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2159
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2160 if (sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2161 thiscd = sc->func->parent->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2162
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2163 // BUG: This should happen after overload resolution for functions, not before
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2164 if (s->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2165 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2166 if (hasThis(sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2167 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2168 && !s->isFuncDeclaration()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2169 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2170 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2171 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2172 // Supply an implicit 'this', as in
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2173 // this.ident
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2174
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2175 DotVarExp *de;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2176
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2177 de = new DotVarExp(loc, new ThisExp(loc), s->isDeclaration());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2178 return de->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2179 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2180 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2181
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2182 em = s->isEnumMember();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2183 if (em)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2184 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2185 e = em->value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2186 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2187 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2188 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2189 v = s->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2190 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2191 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2192 //printf("Identifier '%s' is a variable, type '%s'\n", toChars(), v->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2193 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2194 { type = v->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2195 if (!v->type)
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2196 { error("forward reference of %s %s", v->kind(), v->toChars());
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2197 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2198 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2199 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2200 e = new VarExp(loc, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2201 e->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2202 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2203 return e->deref();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2204 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2205 fld = s->isFuncLiteralDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2206 if (fld)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2207 { //printf("'%s' is a function literal\n", fld->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2208 e = new FuncExp(loc, fld);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2209 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2210 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2211 f = s->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2212 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2213 { //printf("'%s' is a function\n", f->toChars());
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2214
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2215 if (!f->type->deco)
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2216 {
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2217 error("forward reference to %s", toChars());
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2218 }
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2219 return new VarExp(loc, f, hasOverloads);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2220 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2221 o = s->isOverloadSet();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2222 if (o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2223 { //printf("'%s' is an overload set\n", o->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2224 return new OverExp(o);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2225 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2226 cd = s->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2227 if (cd && thiscd && cd->isBaseOf(thiscd, NULL) && sc->func->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2228 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2229 // We need to add an implicit 'this' if cd is this class or a base class.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2230 DotTypeExp *dte;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2231
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2232 dte = new DotTypeExp(loc, new ThisExp(loc), s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2233 return dte->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2234 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2235 imp = s->isImport();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2236 if (imp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2237 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2238 if (!imp->pkg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2239 { error("forward reference of import %s", imp->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2240 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2241 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2242 ScopeExp *ie = new ScopeExp(loc, imp->pkg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2243 return ie->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2244 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2245 pkg = s->isPackage();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2246 if (pkg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2247 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2248 ScopeExp *ie;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2249
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2250 ie = new ScopeExp(loc, pkg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2251 return ie->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2252 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2253 Module *mod = s->isModule();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2254 if (mod)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2255 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2256 ScopeExp *ie;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2257
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2258 ie = new ScopeExp(loc, mod);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2259 return ie->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2260 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2261
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2262 t = s->getType();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2263 if (t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2264 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2265 return new TypeExp(loc, t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2266 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2267
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2268 TupleDeclaration *tup = s->isTupleDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2269 if (tup)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2270 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2271 e = new TupleExp(loc, tup);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2272 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2273 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2274 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2275
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2276 TemplateInstance *ti = s->isTemplateInstance();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2277 if (ti && !global.errors)
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2278 { if (!ti->semanticRun)
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2279 ti->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2280 s = ti->inst->toAlias();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2281 if (!s->isTemplateInstance())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2282 goto Lagain;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2283 e = new ScopeExp(loc, ti);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2284 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2285 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2286 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2287
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2288 TemplateDeclaration *td = s->isTemplateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2289 if (td)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2290 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2291 e = new TemplateExp(loc, td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2292 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2293 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2294 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2295
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2296 Lerr:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2297 error("%s '%s' is not a variable", s->kind(), s->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2298 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2299 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2300 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2301
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2302 char *DsymbolExp::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2303 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2304 return s->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2305 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2306
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2307 void DsymbolExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2308 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2309 buf->writestring(s->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2310 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2311
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2312 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2313 int DsymbolExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2314 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2315 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2316 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2317 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2318
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2319 Expression DsymbolExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2320 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2321 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2322 tym = tybasic(e1->ET->Tty);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2323 if (!(tyscalar(tym) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2324 tym == TYstruct \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2325 tym == TYarray && e->Eoper == TOKaddr))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2326 synerr(EM_lvalue); // lvalue expected
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2327 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2328 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2329 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2330
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2331 /****************************** ThisExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2332
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2333 ThisExp::ThisExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2334 : Expression(loc, TOKthis, sizeof(ThisExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2335 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2336 //printf("ThisExp::ThisExp() loc = %d\n", loc.linnum);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2337 var = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2338 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2339
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2340 Expression ThisExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2341 { FuncDeclaration *fd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2342 FuncDeclaration *fdthis;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2343 int nested = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2344
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2345 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2346 printf("ThisExp::semantic()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2347 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2348 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2349 { //assert(global.errors \|\| var);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2350 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2351 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2352
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2353 /* Special case for typeof(this) and typeof(super) since both
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2354 * should work even if they are not inside a non-static member function
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2355 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2356 if (sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2357 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2358 // Find enclosing struct or class
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2359 for (Dsymbol *s = sc->parent; 1; s = s->parent)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2360 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2361 if (!s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2362 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2363 error("%s is not in a class or struct scope", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2364 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2365 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2366 ClassDeclaration *cd = s->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2367 if (cd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2368 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2369 type = cd->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2370 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2371 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2372 StructDeclaration *sd = s->isStructDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2373 if (sd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2374 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2375 #if STRUCTTHISREF
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2376 type = sd->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2377 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2378 type = sd->type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2379 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2380 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2381 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2382 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2383 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2384
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2385 fdthis = sc->parent->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2386 fd = hasThis(sc); // fd is the uplevel function with the 'this' variable
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2387 if (!fd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2388 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2389
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2390 assert(fd->vthis);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2391 var = fd->vthis;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2392 assert(var->parent);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2393 type = var->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2394 var->isVarDeclaration()->checkNestedReference(sc, loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2395 if (!sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2396 sc->callSuper \|= CSXthis;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2397 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2398
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2399 Lerr:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2400 error("'this' is only defined in non-static member functions, not %s", sc->parent->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2401 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2402 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2403 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2404
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2405 int ThisExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2406 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2407 return result ? TRUE : FALSE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2408 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2409
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2410 void ThisExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2411 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2412 buf->writestring("this");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2413 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2414
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2415 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2416 int ThisExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2417 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2418 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2419 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2420 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2421
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2422 Expression ThisExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2423 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2424 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2425 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2426
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2427 /****************************** SuperExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2428
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2429 SuperExp::SuperExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2430 : ThisExp(loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2431 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2432 op = TOKsuper;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2433 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2434
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2435 Expression SuperExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2436 { FuncDeclaration *fd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2437 FuncDeclaration *fdthis;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2438 ClassDeclaration *cd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2439 Dsymbol *s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2440
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2441 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2442 printf("SuperExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2443 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2444 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2445 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2446
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2447 /* Special case for typeof(this) and typeof(super) since both
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2448 * should work even if they are not inside a non-static member function
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2449 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2450 if (sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2451 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2452 // Find enclosing class
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2453 for (Dsymbol *s = sc->parent; 1; s = s->parent)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2454 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2455 ClassDeclaration *cd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2456
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2457 if (!s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2458 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2459 error("%s is not in a class scope", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2460 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2461 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2462 cd = s->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2463 if (cd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2464 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2465 cd = cd->baseClass;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2466 if (!cd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2467 { error("class %s has no 'super'", s->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2468 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2469 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2470 type = cd->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2471 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2472 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2473 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2474 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2475
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2476 fdthis = sc->parent->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2477 fd = hasThis(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2478 if (!fd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2479 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2480 assert(fd->vthis);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2481 var = fd->vthis;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2482 assert(var->parent);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2483
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2484 s = fd->toParent();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2485 while (s && s->isTemplateInstance())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2486 s = s->toParent();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2487 assert(s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2488 cd = s->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2489 //printf("parent is %s %s\n", fd->toParent()->kind(), fd->toParent()->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2490 if (!cd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2491 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2492 if (!cd->baseClass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2493 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2494 error("no base class for %s", cd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2495 type = fd->vthis->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2496 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2497 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2498 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2499 type = cd->baseClass->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2500 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2501
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2502 var->isVarDeclaration()->checkNestedReference(sc, loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2503
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2504 if (!sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2505 sc->callSuper \|= CSXsuper;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2506 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2507
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2508
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2509 Lerr:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2510 error("'super' is only allowed in non-static class member functions");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2511 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2512 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2513 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2514
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2515 void SuperExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2516 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2517 buf->writestring("super");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2518 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2519
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2520
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2521 /****************************** NullExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2522
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2523 NullExp::NullExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2524 : Expression(loc, TOKnull, sizeof(NullExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2525 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2526 committed = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2527 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2528
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2529 Expression NullExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2530 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2531 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2532 printf("NullExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2533 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2534 // NULL is the same as (void *)0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2535 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2536 type = Type::tvoid->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2537 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2538 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2539
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2540 int NullExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2541 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2542 return result ? FALSE : TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2543 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2544
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2545 void NullExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2546 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2547 buf->writestring("null");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2548 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2549
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2550 void NullExp::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2551 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2552 buf->writeByte('n');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2553 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2554
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2555 /****************************** StringExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2556
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2557 StringExp::StringExp(Loc loc, char *string)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2558 : Expression(loc, TOKstring, sizeof(StringExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2559 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2560 this->string = string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2561 this->len = strlen(string);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2562 this->sz = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2563 this->committed = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2564 this->postfix = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2565 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2566
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2567 StringExp::StringExp(Loc loc, void *string, size_t len)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2568 : Expression(loc, TOKstring, sizeof(StringExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2569 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2570 this->string = string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2571 this->len = len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2572 this->sz = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2573 this->committed = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2574 this->postfix = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2575 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2576
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2577 StringExp::StringExp(Loc loc, void *string, size_t len, unsigned char postfix)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2578 : Expression(loc, TOKstring, sizeof(StringExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2579 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2580 this->string = string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2581 this->len = len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2582 this->sz = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2583 this->committed = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2584 this->postfix = postfix;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2585 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2586
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2587 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2588 Expression *StringExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2589 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2590 printf("StringExp::syntaxCopy() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2591 return copy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2592 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2593 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2594
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2595 int StringExp::equals(Object *o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2596 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2597 //printf("StringExp::equals('%s')\n", o->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2598 if (o && o->dyncast() == DYNCAST_EXPRESSION)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2599 { Expression e = (Expression )o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2600
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2601 if (e->op == TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2602 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2603 return compare(o) == 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2604 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2605 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2606 return FALSE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2607 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2608
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2609 char *StringExp::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2610 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2611 OutBuffer buf;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2612 HdrGenState hgs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2613 char *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2614
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2615 memset(&hgs, 0, sizeof(hgs));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2616 toCBuffer(&buf, &hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2617 buf.writeByte(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2618 p = (char *)buf.data;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2619 buf.data = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2620 return p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2621 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2622
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2623 Expression StringExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2624 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2625 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2626 printf("StringExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2627 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2628 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2629 { OutBuffer buffer;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2630 size_t newlen = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2631 const char *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2632 size_t u;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2633 unsigned c;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2634
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2635 switch (postfix)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2636 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2637 case 'd':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2638 for (u = 0; u < len;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2639 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2640 p = utf_decodeChar((unsigned char *)string, len, &u, &c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2641 if (p)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2642 { error("%s", p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2643 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2644 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2645 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2646 { buffer.write4(c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2647 newlen++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2648 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2649 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2650 buffer.write4(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2651 string = buffer.extractData();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2652 len = newlen;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2653 sz = 4;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2654 //type = new TypeSArray(Type::tdchar, new IntegerExp(loc, len, Type::tindex));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2655 type = new TypeDArray(Type::tdchar->invariantOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2656 committed = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2657 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2658
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2659 case 'w':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2660 for (u = 0; u < len;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2661 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2662 p = utf_decodeChar((unsigned char *)string, len, &u, &c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2663 if (p)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2664 { error("%s", p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2665 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2666 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2667 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2668 { buffer.writeUTF16(c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2669 newlen++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2670 if (c >= 0x10000)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2671 newlen++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2672 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2673 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2674 buffer.writeUTF16(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2675 string = buffer.extractData();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2676 len = newlen;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2677 sz = 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2678 //type = new TypeSArray(Type::twchar, new IntegerExp(loc, len, Type::tindex));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2679 type = new TypeDArray(Type::twchar->invariantOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2680 committed = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2681 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2682
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2683 case 'c':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2684 committed = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2685 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2686 //type = new TypeSArray(Type::tchar, new IntegerExp(loc, len, Type::tindex));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2687 type = new TypeDArray(Type::tchar->invariantOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2688 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2689 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2690 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2691 //type = type->invariantOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2692 //printf("type = %s\n", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2693 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2694 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2695 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2696
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2697 /**********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2698 * Return length of string.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2699 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2700
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2701 size_t StringExp::length()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2702 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2703 size_t result = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2704 dchar_t c;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2705 const char *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2706
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2707 switch (sz)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2708 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2709 case 1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2710 for (size_t u = 0; u < len;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2711 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2712 p = utf_decodeChar((unsigned char *)string, len, &u, &c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2713 if (p)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2714 { error("%s", p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2715 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2716 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2717 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2718 result++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2719 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2720 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2721
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2722 case 2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2723 for (size_t u = 0; u < len;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2724 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2725 p = utf_decodeWchar((unsigned short *)string, len, &u, &c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2726 if (p)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2727 { error("%s", p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2728 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2729 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2730 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2731 result++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2732 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2733 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2734
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2735 case 4:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2736 result = len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2737 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2738
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2739 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2740 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2741 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2742 return result;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2743 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2744
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2745 /****************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2746 * Convert string to char[].
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2747 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2748
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2749 StringExp StringExp::toUTF8(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2750 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2751 if (sz != 1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2752 { // Convert to UTF-8 string
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2753 committed = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2754 Expression *e = castTo(sc, Type::tchar->arrayOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2755 e = e->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2756 assert(e->op == TOKstring);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2757 StringExp se = (StringExp )e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2758 assert(se->sz == 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2759 return se;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2760 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2761 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2762 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2763
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2764 int StringExp::compare(Object *obj)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2765 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2766 // Used to sort case statement expressions so we can do an efficient lookup
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2767 StringExp se2 = (StringExp )(obj);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2768
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2769 // This is a kludge so isExpression() in template.c will return 5
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2770 // for StringExp's.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2771 if (!se2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2772 return 5;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2773
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2774 assert(se2->op == TOKstring);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2775
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2776 int len1 = len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2777 int len2 = se2->len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2778
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2779 if (len1 == len2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2780 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2781 switch (sz)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2782 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2783 case 1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2784 return strcmp((char )string, (char )se2->string);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2785
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2786 case 2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2787 { unsigned u;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2788 d_wchar s1 = (d_wchar )string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2789 d_wchar s2 = (d_wchar )se2->string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2790
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2791 for (u = 0; u < len; u++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2792 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2793 if (s1[u] != s2[u])
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2794 return s1[u] - s2[u];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2795 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2796 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2797
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2798 case 4:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2799 { unsigned u;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2800 d_dchar s1 = (d_dchar )string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2801 d_dchar s2 = (d_dchar )se2->string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2802
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2803 for (u = 0; u < len; u++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2804 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2805 if (s1[u] != s2[u])
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2806 return s1[u] - s2[u];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2807 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2808 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2809 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2810
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2811 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2812 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2813 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2814 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2815 return len1 - len2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2816 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2817
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2818 int StringExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2819 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2820 return result ? TRUE : FALSE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2821 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2822
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2823 unsigned StringExp::charAt(size_t i)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2824 { unsigned value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2825
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2826 switch (sz)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2827 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2828 case 1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2829 value = ((unsigned char *)string)[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2830 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2831
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2832 case 2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2833 value = ((unsigned short *)string)[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2834 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2835
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2836 case 4:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2837 value = ((unsigned int *)string)[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2838 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2839
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2840 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2841 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2842 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2843 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2844 return value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2845 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2846
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2847 void StringExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2848 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2849 buf->writeByte('"');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2850 for (size_t i = 0; i < len; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2851 { unsigned c = charAt(i);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2852
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2853 switch (c)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2854 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2855 case '"':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2856 case '\\':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2857 if (!hgs->console)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2858 buf->writeByte('\\');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2859 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2860 if (c <= 0xFF)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2861 { if (c <= 0x7F && (isprint(c) \|\| hgs->console))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2862 buf->writeByte(c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2863 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2864 buf->printf("\\x%02x", c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2865 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2866 else if (c <= 0xFFFF)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2867 buf->printf("\\x%02x\\x%02x", c & 0xFF, c >> 8);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2868 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2869 buf->printf("\\x%02x\\x%02x\\x%02x\\x%02x",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2870 c & 0xFF, (c >> 8) & 0xFF, (c >> 16) & 0xFF, c >> 24);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2871 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2872 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2873 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2874 buf->writeByte('"');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2875 if (postfix)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2876 buf->writeByte(postfix);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2877 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2878
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2879 void StringExp::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2880 { char m;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2881 OutBuffer tmp;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2882 const char *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2883 unsigned c;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2884 size_t u;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2885 unsigned char *q;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2886 unsigned qlen;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2887
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2888 /* Write string in UTF-8 format
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2889 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2890 switch (sz)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2891 { case 1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2892 m = 'a';
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2893 q = (unsigned char *)string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2894 qlen = len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2895 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2896 case 2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2897 m = 'w';
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2898 for (u = 0; u < len; )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2899 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2900 p = utf_decodeWchar((unsigned short *)string, len, &u, &c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2901 if (p)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2902 error("%s", p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2903 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2904 tmp.writeUTF8(c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2905 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2906 q = tmp.data;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2907 qlen = tmp.offset;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2908 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2909 case 4:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2910 m = 'd';
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2911 for (u = 0; u < len; u++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2912 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2913 c = ((unsigned *)string)[u];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2914 if (!utf_isValidDchar(c))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2915 error("invalid UCS-32 char \\U%08x", c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2916 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2917 tmp.writeUTF8(c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2918 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2919 q = tmp.data;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2920 qlen = tmp.offset;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2921 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2922 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2923 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2924 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2925 buf->writeByte(m);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2926 buf->printf("%d_", qlen);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2927 for (size_t i = 0; i < qlen; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2928 buf->printf("%02x", q[i]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2929 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2930
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2931 /********************** ArrayLiteralExp **********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2932
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2933 // [ e1, e2, e3, ... ]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2934
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2935 ArrayLiteralExp::ArrayLiteralExp(Loc loc, Expressions *elements)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2936 : Expression(loc, TOKarrayliteral, sizeof(ArrayLiteralExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2937 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2938 this->elements = elements;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2939 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2940
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2941 ArrayLiteralExp::ArrayLiteralExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2942 : Expression(loc, TOKarrayliteral, sizeof(ArrayLiteralExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2943 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2944 elements = new Expressions;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2945 elements->push(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2946 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2947
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2948 Expression *ArrayLiteralExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2949 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2950 return new ArrayLiteralExp(loc, arraySyntaxCopy(elements));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2951 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2952
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2953 Expression ArrayLiteralExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2954 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2955 Type *t0 = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2956
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2957 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2958 printf("ArrayLiteralExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2959 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2960 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2961 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2962
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2963 // Run semantic() on each element
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2964 for (int i = 0; i < elements->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2965 { e = (Expression *)elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2966 e = e->semantic(sc);
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	2967 assert(e->type);
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2968 elements->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2969 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2970 expandTuples(elements);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2971 for (int i = 0; i < elements->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2972 { e = (Expression *)elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2973
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2974 if (!e->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2975 error("%s has no value", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2976 e = resolveProperties(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2977
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2978 unsigned char committed = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2979 if (e->op == TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2980 committed = ((StringExp *)e)->committed;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2981
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2982 if (!t0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2983 { t0 = e->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2984 // Convert any static arrays to dynamic arrays
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2985 if (t0->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2986 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2987 t0 = ((TypeSArray *)t0)->next->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2988 e = e->implicitCastTo(sc, t0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2989 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2990 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2991 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2992 e = e->implicitCastTo(sc, t0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2993 if (!committed && e->op == TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2994 { StringExp se = (StringExp )e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2995 se->committed = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2996 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2997 elements->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2998 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2999
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3000 if (!t0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3001 t0 = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3002 type = new TypeSArray(t0, new IntegerExp(elements->dim));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3003 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3004 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3005 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3006
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3007 int ArrayLiteralExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3008 { int f = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3009
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3010 for (size_t i = 0; i < elements->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3011 { Expression e = (Expression )elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3012
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3013 f \|= e->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3014 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3015 if (flag == 0 && f == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3016 Expression::checkSideEffect(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3017 return f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3018 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3019
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3020 int ArrayLiteralExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3021 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3022 size_t dim = elements ? elements->dim : 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3023 return result ? (dim != 0) : (dim == 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3024 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3025
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3026 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3027 int ArrayLiteralExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3028 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3029 return 1; // because it can fail allocating memory
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3030 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3031 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3032
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3033 void ArrayLiteralExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3034 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3035 buf->writeByte('[');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3036 argsToCBuffer(buf, elements, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3037 buf->writeByte(']');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3038 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3039
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3040 void ArrayLiteralExp::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3041 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3042 size_t dim = elements ? elements->dim : 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3043 buf->printf("A%zu", dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3044 for (size_t i = 0; i < dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3045 { Expression e = (Expression )elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3046 e->toMangleBuffer(buf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3047 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3048 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3049
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3050 /********************** AssocArrayLiteralExp **********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3051
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3052 // [ key0 : value0, key1 : value1, ... ]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3053
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3054 AssocArrayLiteralExp::AssocArrayLiteralExp(Loc loc,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3055 Expressions keys, Expressions values)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3056 : Expression(loc, TOKassocarrayliteral, sizeof(AssocArrayLiteralExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3057 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3058 assert(keys->dim == values->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3059 this->keys = keys;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3060 this->values = values;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3061 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3062
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3063 Expression *AssocArrayLiteralExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3064 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3065 return new AssocArrayLiteralExp(loc,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3066 arraySyntaxCopy(keys), arraySyntaxCopy(values));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3067 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3068
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3069 Expression AssocArrayLiteralExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3070 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3071 Type *tkey = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3072 Type *tvalue = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3073
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3074 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3075 printf("AssocArrayLiteralExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3076 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3077
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3078 // Run semantic() on each element
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3079 for (size_t i = 0; i < keys->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3080 { Expression key = (Expression )keys->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3081 Expression value = (Expression )values->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3082
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3083 key = key->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3084 value = value->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3085
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3086 keys->data[i] = (void *)key;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3087 values->data[i] = (void *)value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3088 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3089 expandTuples(keys);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3090 expandTuples(values);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3091 if (keys->dim != values->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3092 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3093 error("number of keys is %u, must match number of values %u", keys->dim, values->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3094 keys->setDim(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3095 values->setDim(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3096 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3097 for (size_t i = 0; i < keys->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3098 { Expression key = (Expression )keys->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3099 Expression value = (Expression )values->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3100
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3101 if (!key->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3102 error("%s has no value", key->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3103 if (!value->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3104 error("%s has no value", value->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3105 key = resolveProperties(sc, key);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3106 value = resolveProperties(sc, value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3107
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3108 if (!tkey)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3109 tkey = key->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3110 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3111 key = key->implicitCastTo(sc, tkey);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3112 keys->data[i] = (void *)key;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3113
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3114 if (!tvalue)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3115 tvalue = value->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3116 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3117 value = value->implicitCastTo(sc, tvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3118 values->data[i] = (void *)value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3119 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3120
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3121 if (!tkey)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3122 tkey = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3123 if (!tvalue)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3124 tvalue = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3125 type = new TypeAArray(tvalue, tkey);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3126 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3127 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3128 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3129
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3130 int AssocArrayLiteralExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3131 { int f = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3132
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3133 for (size_t i = 0; i < keys->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3134 { Expression key = (Expression )keys->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3135 Expression value = (Expression )values->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3136
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3137 f \|= key->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3138 f \|= value->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3139 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3140 if (flag == 0 && f == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3141 Expression::checkSideEffect(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3142 return f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3143 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3144
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3145 int AssocArrayLiteralExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3146 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3147 size_t dim = keys->dim;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3148 return result ? (dim != 0) : (dim == 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3149 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3150
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3151 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3152 int AssocArrayLiteralExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3153 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3154 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3155 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3156 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3157
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3158 void AssocArrayLiteralExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3159 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3160 buf->writeByte('[');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3161 for (size_t i = 0; i < keys->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3162 { Expression key = (Expression )keys->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3163 Expression value = (Expression )values->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3164
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3165 if (i)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3166 buf->writeByte(',');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3167 expToCBuffer(buf, hgs, key, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3168 buf->writeByte(':');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3169 expToCBuffer(buf, hgs, value, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3170 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3171 buf->writeByte(']');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3172 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3173
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3174 void AssocArrayLiteralExp::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3175 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3176 size_t dim = keys->dim;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3177 buf->printf("A%zu", dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3178 for (size_t i = 0; i < dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3179 { Expression key = (Expression )keys->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3180 Expression value = (Expression )values->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3181
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3182 key->toMangleBuffer(buf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3183 value->toMangleBuffer(buf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3184 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3185 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3186
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3187 /********************** StructLiteralExp **********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3188
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3189 // sd( e1, e2, e3, ... )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3190
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3191 StructLiteralExp::StructLiteralExp(Loc loc, StructDeclaration sd, Expressions elements)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3192 : Expression(loc, TOKstructliteral, sizeof(StructLiteralExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3193 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3194 this->sd = sd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3195 this->elements = elements;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3196 #if IN_DMD
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3197 this->sym = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3198 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3199 this->soffset = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3200 this->fillHoles = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3201 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3202
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3203 Expression *StructLiteralExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3204 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3205 return new StructLiteralExp(loc, sd, arraySyntaxCopy(elements));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3206 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3207
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3208 Expression StructLiteralExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3209 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3210 int nfields = sd->fields.dim - sd->isnested;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3211
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3212 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3213 printf("StructLiteralExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3214 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3215 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3216 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3217
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3218 // Run semantic() on each element
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3219 for (size_t i = 0; i < elements->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3220 { e = (Expression *)elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3221 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3222 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3223 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3224 elements->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3225 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3226 expandTuples(elements);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3227 size_t offset = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3228 for (size_t i = 0; i < elements->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3229 { e = (Expression *)elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3230 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3231 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3232
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3233 if (!e->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3234 error("%s has no value", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3235 e = resolveProperties(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3236 if (i >= nfields)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3237 { error("more initializers than fields of %s", sd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3238 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3239 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3240 Dsymbol s = (Dsymbol )sd->fields.data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3241 VarDeclaration *v = s->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3242 assert(v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3243 if (v->offset < offset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3244 error("overlapping initialization for %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3245 offset = v->offset + v->type->size();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3246
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3247 Type *telem = v->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3248 while (!e->implicitConvTo(telem) && telem->toBasetype()->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3249 { /* Static array initialization, as in:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3250 * T[3][5] = e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3251 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3252 telem = telem->toBasetype()->nextOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3253 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3254
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3255 e = e->implicitCastTo(sc, telem);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3256
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3257 elements->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3258 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3259
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3260 /* Fill out remainder of elements[] with default initializers for fields[]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3261 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3262 for (size_t i = elements->dim; i < nfields; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3263 { Dsymbol s = (Dsymbol )sd->fields.data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3264 VarDeclaration *v = s->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3265 assert(v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3266 assert(!v->isThisDeclaration());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3267
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3268 if (v->offset < offset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3269 { e = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3270 sd->hasUnions = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3271 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3272 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3273 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3274 if (v->init)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3275 { e = v->init->toExpression();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3276 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3277 error("cannot make expression out of initializer for %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3278 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3279 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3280 { e = v->type->defaultInit();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3281 e->loc = loc;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3282 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3283 offset = v->offset + v->type->size();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3284 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3285 elements->push(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3286 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3287
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3288 type = sd->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3289 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3290 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3291
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3292 /**************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3293 * Gets expression at offset of type.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3294 * Returns NULL if not found.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3295 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3296
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3297 Expression StructLiteralExp::getField(Type type, unsigned offset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3298 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3299 //printf("StructLiteralExp::getField(this = %s, type = %s, offset = %u)\n",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3300 // /toChars()/"", type->toChars(), offset);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3301 Expression *e = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3302 int i = getFieldIndex(type, offset);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3303
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3304 if (i != -1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3305 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3306 //printf("\ti = %d\n", i);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3307 assert(i < elements->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3308 e = (Expression *)elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3309 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3310 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3311 e = e->copy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3312 e->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3313 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3314 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3315 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3316 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3317
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3318 /************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3319 * Get index of field.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3320 * Returns -1 if not found.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3321 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3322
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3323 int StructLiteralExp::getFieldIndex(Type *type, unsigned offset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3324 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3325 /* Find which field offset is by looking at the field offsets
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3326 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3327 if (elements->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3328 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3329 for (size_t i = 0; i < sd->fields.dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3330 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3331 Dsymbol s = (Dsymbol )sd->fields.data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3332 VarDeclaration *v = s->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3333 assert(v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3334
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3335 if (offset == v->offset &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3336 type->size() == v->type->size())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3337 { Expression e = (Expression )elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3338 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3339 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3340 return i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3341 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3342 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3343 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3344 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3345 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3346 return -1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3347 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3348
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3349 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3350 int StructLiteralExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3351 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3352 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3353 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3354 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3355
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3356 /*
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3357 Removed in LDC. See declaration.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3358 Expression StructLiteralExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3359 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3360 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3361 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3362 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3363
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3364
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3365 int StructLiteralExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3366 { int f = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3367
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3368 for (size_t i = 0; i < elements->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3369 { Expression e = (Expression )elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3370 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3371 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3372
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3373 f \|= e->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3374 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3375 if (flag == 0 && f == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3376 Expression::checkSideEffect(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3377 return f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3378 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3379
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3380 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3381 int StructLiteralExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3382 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3383 return arrayExpressionCanThrow(elements);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3384 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3385 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3386
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3387 void StructLiteralExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3388 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3389 buf->writestring(sd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3390 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3391 argsToCBuffer(buf, elements, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3392 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3393 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3394
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3395 void StructLiteralExp::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3396 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3397 size_t dim = elements ? elements->dim : 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3398 buf->printf("S%zu", dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3399 for (size_t i = 0; i < dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3400 { Expression e = (Expression )elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3401 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3402 e->toMangleBuffer(buf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3403 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3404 buf->writeByte('v'); // 'v' for void
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3405 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3406 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3407
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3408 /********************** TypeDotIdExp **********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3409
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3410 /* Things like:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3411 * int.size
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3412 * foo.size
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3413 * (foo).size
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3414 * cast(foo).size
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3415 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3416
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3417 Expression typeDotIdExp(Loc loc, Type type, Identifier *ident)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3418 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3419 return new DotIdExp(loc, new TypeExp(loc, type), ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3420 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3421
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3422
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3423 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3424
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3425 // Mainly just a placeholder
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3426
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3427 TypeExp::TypeExp(Loc loc, Type *type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3428 : Expression(loc, TOKtype, sizeof(TypeExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3429 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3430 //printf("TypeExp::TypeExp(%s)\n", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3431 this->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3432 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3433
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3434 Expression *TypeExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3435 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3436 //printf("TypeExp::syntaxCopy()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3437 return new TypeExp(loc, type->syntaxCopy());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3438 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3439
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3440 Expression TypeExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3441 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3442 //printf("TypeExp::semantic(%s)\n", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3443 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3444 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3445 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3446
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3447 void TypeExp::rvalue()
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3448 {
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3449 error("type %s has no value", toChars());
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3450 }
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3451
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3452 void TypeExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3453 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3454 type->toCBuffer(buf, NULL, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3455 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3456
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3457 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3458
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3459 // Mainly just a placeholder
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3460
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3461 ScopeExp::ScopeExp(Loc loc, ScopeDsymbol *pkg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3462 : Expression(loc, TOKimport, sizeof(ScopeExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3463 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3464 //printf("ScopeExp::ScopeExp(pkg = '%s')\n", pkg->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3465 //static int count; if (++count == 38) (char)0=0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3466 this->sds = pkg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3467 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3468
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3469 Expression *ScopeExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3470 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3471 ScopeExp se = new ScopeExp(loc, (ScopeDsymbol )sds->syntaxCopy(NULL));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3472 return se;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3473 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3474
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3475 Expression ScopeExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3476 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3477 TemplateInstance *ti;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3478 ScopeDsymbol *sds2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3479
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3480 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3481 printf("+ScopeExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3482 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3483 Lagain:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3484 ti = sds->isTemplateInstance();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3485 if (ti && !global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3486 { Dsymbol *s;
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3487 if (!ti->semanticRun)
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3488 ti->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3489 s = ti->inst->toAlias();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3490 sds2 = s->isScopeDsymbol();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3491 if (!sds2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3492 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3493
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3494 //printf("s = %s, '%s'\n", s->kind(), s->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3495 if (ti->withsym)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3496 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3497 // Same as wthis.s
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3498 e = new VarExp(loc, ti->withsym->withstate->wthis);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3499 e = new DotVarExp(loc, e, s->isDeclaration());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3500 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3501 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3502 e = new DsymbolExp(loc, s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3503 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3504 //printf("-1ScopeExp::semantic()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3505 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3506 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3507 if (sds2 != sds)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3508 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3509 sds = sds2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3510 goto Lagain;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3511 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3512 //printf("sds = %s, '%s'\n", sds->kind(), sds->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3513 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3514 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3515 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3516 //printf("sds = %s, '%s'\n", sds->kind(), sds->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3517 //printf("\tparent = '%s'\n", sds->parent->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3518 sds->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3519 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3520 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3521 //printf("-2ScopeExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3522 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3523 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3524
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3525 void ScopeExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3526 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3527 if (sds->isTemplateInstance())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3528 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3529 sds->toCBuffer(buf, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3530 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3531 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3532 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3533 buf->writestring(sds->kind());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3534 buf->writestring(" ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3535 buf->writestring(sds->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3536 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3537 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3538
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3539 /******************** TemplateExp ************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3540
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3541 // Mainly just a placeholder
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3542
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3543 TemplateExp::TemplateExp(Loc loc, TemplateDeclaration *td)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3544 : Expression(loc, TOKtemplate, sizeof(TemplateExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3545 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3546 //printf("TemplateExp(): %s\n", td->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3547 this->td = td;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3548 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3549
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3550 void TemplateExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3551 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3552 buf->writestring(td->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3553 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3554
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3555 void TemplateExp::rvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3556 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3557 error("template %s has no value", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3558 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3559
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3560 /******************** NewExp ************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3561
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3562 /* thisexp.new(newargs) newtype(arguments) */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3563
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3564 NewExp::NewExp(Loc loc, Expression thisexp, Expressions newargs,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3565 Type newtype, Expressions arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3566 : Expression(loc, TOKnew, sizeof(NewExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3567 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3568 this->thisexp = thisexp;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3569 this->newargs = newargs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3570 this->newtype = newtype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3571 this->arguments = arguments;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3572 member = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3573 allocator = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3574 onstack = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3575 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3576
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3577 Expression *NewExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3578 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3579 return new NewExp(loc,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3580 thisexp ? thisexp->syntaxCopy() : NULL,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3581 arraySyntaxCopy(newargs),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3582 newtype->syntaxCopy(), arraySyntaxCopy(arguments));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3583 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3584
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3585
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3586 Expression NewExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3587 { int i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3588 Type *tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3589 ClassDeclaration *cdthis = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3590
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3591 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3592 printf("NewExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3593 if (thisexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3594 printf("\tthisexp = %s\n", thisexp->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3595 printf("\tnewtype: %s\n", newtype->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3596 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3597 if (type) // if semantic() already run
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3598 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3599
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3600 Lagain:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3601 if (thisexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3602 { thisexp = thisexp->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3603 cdthis = thisexp->type->isClassHandle();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3604 if (cdthis)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3605 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3606 sc = sc->push(cdthis);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3607 type = newtype->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3608 sc = sc->pop();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3609 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3610 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3611 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3612 error("'this' for nested class must be a class type, not %s", thisexp->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3613 type = newtype->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3614 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3615 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3616 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3617 type = newtype->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3618 newtype = type; // in case type gets cast to something else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3619 tb = type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3620 //printf("tb: %s, deco = %s\n", tb->toChars(), tb->deco);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3621
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3622 arrayExpressionSemantic(newargs, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3623 preFunctionArguments(loc, sc, newargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3624 arrayExpressionSemantic(arguments, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3625 preFunctionArguments(loc, sc, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3626
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3627 if (thisexp && tb->ty != Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3628 error("e.new is only for allocating nested classes, not %s", tb->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3629
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3630 if (tb->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3631 { TypeFunction *tf;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3632
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3633 TypeClass tc = (TypeClass )(tb);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3634 ClassDeclaration *cd = tc->sym->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3635 if (cd->isInterfaceDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3636 error("cannot create instance of interface %s", cd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3637 else if (cd->isAbstract())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3638 { error("cannot create instance of abstract class %s", cd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3639 for (int i = 0; i < cd->vtbl.dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3640 { FuncDeclaration fd = ((Dsymbol )cd->vtbl.data[i])->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3641 if (fd && fd->isAbstract())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3642 error("function %s is abstract", fd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3643 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3644 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3645 checkDeprecated(sc, cd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3646 if (cd->isNested())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3647 { /* We need a 'this' pointer for the nested class.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3648 * Ensure we have the right one.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3649 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3650 Dsymbol *s = cd->toParent2();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3651 ClassDeclaration *cdn = s->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3652 FuncDeclaration *fdn = s->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3653
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3654 //printf("cd isNested, cdn = %s\n", cdn ? cdn->toChars() : "null");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3655 if (cdn)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3656 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3657 if (!cdthis)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3658 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3659 // Supply an implicit 'this' and try again
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3660 thisexp = new ThisExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3661 for (Dsymbol *sp = sc->parent; 1; sp = sp->parent)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3662 { if (!sp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3663 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3664 error("outer class %s 'this' needed to 'new' nested class %s", cdn->toChars(), cd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3665 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3666 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3667 ClassDeclaration *cdp = sp->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3668 if (!cdp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3669 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3670 if (cdp == cdn \|\| cdn->isBaseOf(cdp, NULL))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3671 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3672 // Add a '.outer' and try again
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3673 thisexp = new DotIdExp(loc, thisexp, Id::outer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3674 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3675 if (!global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3676 goto Lagain;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3677 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3678 if (cdthis)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3679 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3680 //printf("cdthis = %s\n", cdthis->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3681 if (cdthis != cdn && !cdn->isBaseOf(cdthis, NULL))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3682 error("'this' for nested class must be of type %s, not %s", cdn->toChars(), thisexp->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3683 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3684 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3685 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3686 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3687 for (Dsymbol *sf = sc->func; 1; sf= sf->toParent2()->isFuncDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3688 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3689 if (!sf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3690 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3691 error("outer class %s 'this' needed to 'new' nested class %s", cdn->toChars(), cd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3692 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3693 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3694 printf("sf = %s\n", sf->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3695 AggregateDeclaration *ad = sf->isThis();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3696 if (ad && (ad == cdn \|\| cdn->isBaseOf(ad->isClassDeclaration(), NULL)))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3697 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3698 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3699 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3700 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3701 }
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3702 #if 1
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3703 else if (thisexp)
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3704 error("e.new is only for allocating nested classes");
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3705 else if (fdn)
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3706 {
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3707 // make sure the parent context fdn of cd is reachable from sc
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3708 for (Dsymbol *sp = sc->parent; 1; sp = sp->parent)
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3709 {
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3710 if (fdn == sp)
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3711 break;
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3712 FuncDeclaration *fsp = sp ? sp->isFuncDeclaration() : NULL;
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3713 if (!sp \|\| (fsp && fsp->isStatic()))
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3714 {
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3715 error("outer function context of %s is needed to 'new' nested class %s", fdn->toPrettyChars(), cd->toPrettyChars());
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3716 break;
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3717 }
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3718 }
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3719 }
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3720 #else
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3721 else if (fdn)
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3722 { /* The nested class cd is nested inside a function,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3723 * we'll let getEthis() look for errors.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3724 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3725 //printf("nested class %s is nested inside function %s, we're in %s\n", cd->toChars(), fdn->toChars(), sc->func->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3726 if (thisexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3727 // Because thisexp cannot be a function frame pointer
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3728 error("e.new is only for allocating nested classes");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3729 }
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	3730 #endif
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3731 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3732 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3733 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3734 else if (thisexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3735 error("e.new is only for allocating nested classes");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3736
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3737 FuncDeclaration *f = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3738 if (cd->ctor)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3739 f = resolveFuncCall(sc, loc, cd->ctor, NULL, NULL, arguments, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3740 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3741 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3742 checkDeprecated(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3743 member = f->isCtorDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3744 assert(member);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3745
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3746 cd->accessCheck(loc, sc, member);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3747
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3748 tf = (TypeFunction *)f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3749
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3750 if (!arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3751 arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3752 functionArguments(loc, sc, tf, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3753 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3754 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3755 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3756 if (arguments && arguments->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3757 error("no constructor for %s", cd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3758 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3759
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3760 if (cd->aggNew)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3761 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3762 // Prepend the size argument to newargs[]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3763 Expression *e = new IntegerExp(loc, cd->size(loc), Type::tsize_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3764 if (!newargs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3765 newargs = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3766 newargs->shift(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3767
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3768 f = cd->aggNew->overloadResolve(loc, NULL, newargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3769 allocator = f->isNewDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3770 assert(allocator);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3771
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3772 tf = (TypeFunction *)f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3773 functionArguments(loc, sc, tf, newargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3774 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3775 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3776 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3777 if (newargs && newargs->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3778 error("no allocator for %s", cd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3779 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3780 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3781 else if (tb->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3782 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3783 TypeStruct ts = (TypeStruct )tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3784 StructDeclaration *sd = ts->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3785 TypeFunction *tf;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3786
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3787 FuncDeclaration *f = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3788 if (sd->ctor)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3789 f = resolveFuncCall(sc, loc, sd->ctor, NULL, NULL, arguments, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3790 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3791 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3792 checkDeprecated(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3793 member = f->isCtorDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3794 assert(member);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3795
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3796 sd->accessCheck(loc, sc, member);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3797
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3798 tf = (TypeFunction *)f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3799 // type = tf->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3800
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3801 if (!arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3802 arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3803 functionArguments(loc, sc, tf, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3804 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3805 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3806 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3807 if (arguments && arguments->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3808 error("no constructor for %s", sd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3809 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3810
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3811
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3812 if (sd->aggNew)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3813 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3814 // Prepend the uint size argument to newargs[]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3815 Expression *e = new IntegerExp(loc, sd->size(loc), Type::tuns32);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3816 if (!newargs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3817 newargs = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3818 newargs->shift(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3819
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3820 f = sd->aggNew->overloadResolve(loc, NULL, newargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3821 allocator = f->isNewDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3822 assert(allocator);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3823
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3824 tf = (TypeFunction *)f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3825 functionArguments(loc, sc, tf, newargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3826 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3827 e = new VarExp(loc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3828 e = new CallExp(loc, e, newargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3829 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3830 e->type = type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3831 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3832 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3833 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3834 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3835 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3836 if (newargs && newargs->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3837 error("no allocator for %s", sd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3838 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3839
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3840 type = type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3841 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3842 else if (tb->ty == Tarray && (arguments && arguments->dim))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3843 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3844 for (size_t i = 0; i < arguments->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3845 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3846 if (tb->ty != Tarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3847 { error("too many arguments for array");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3848 arguments->dim = i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3849 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3850 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3851
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3852 Expression arg = (Expression )arguments->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3853 arg = resolveProperties(sc, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3854 arg = arg->implicitCastTo(sc, Type::tsize_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3855 arg = arg->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3856 if (arg->op == TOKint64 && (long long)arg->toInteger() < 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3857 error("negative array index %s", arg->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3858 arguments->data[i] = (void *) arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3859 tb = ((TypeDArray *)tb)->next->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3860 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3861 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3862 else if (tb->isscalar())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3863 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3864 if (arguments && arguments->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3865 error("no constructor for %s", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3866
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3867 type = type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3868 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3869 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3870 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3871 error("new can only create structs, dynamic arrays or class objects, not %s's", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3872 type = type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3873 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3874
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3875 //printf("NewExp: '%s'\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3876 //printf("NewExp:type '%s'\n", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3877
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3878 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3879 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3880
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3881 int NewExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3882 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3883 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3884 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3885
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3886 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3887 int NewExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3888 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3889 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3890 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3891 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3892
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3893 void NewExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3894 { int i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3895
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3896 if (thisexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3897 { expToCBuffer(buf, hgs, thisexp, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3898 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3899 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3900 buf->writestring("new ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3901 if (newargs && newargs->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3902 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3903 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3904 argsToCBuffer(buf, newargs, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3905 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3906 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3907 newtype->toCBuffer(buf, NULL, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3908 if (arguments && arguments->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3909 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3910 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3911 argsToCBuffer(buf, arguments, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3912 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3913 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3914 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3915
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3916 /******************** NewAnonClassExp ************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3917
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3918 NewAnonClassExp::NewAnonClassExp(Loc loc, Expression *thisexp,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3919 Expressions newargs, ClassDeclaration cd, Expressions *arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3920 : Expression(loc, TOKnewanonclass, sizeof(NewAnonClassExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3921 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3922 this->thisexp = thisexp;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3923 this->newargs = newargs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3924 this->cd = cd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3925 this->arguments = arguments;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3926 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3927
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3928 Expression *NewAnonClassExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3929 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3930 return new NewAnonClassExp(loc,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3931 thisexp ? thisexp->syntaxCopy() : NULL,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3932 arraySyntaxCopy(newargs),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3933 (ClassDeclaration *)cd->syntaxCopy(NULL),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3934 arraySyntaxCopy(arguments));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3935 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3936
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3937
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3938 Expression NewAnonClassExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3939 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3940 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3941 printf("NewAnonClassExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3942 //printf("thisexp = %p\n", thisexp);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3943 //printf("type: %s\n", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3944 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3945
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3946 Expression *d = new DeclarationExp(loc, cd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3947 d = d->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3948
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3949 Expression *n = new NewExp(loc, thisexp, newargs, cd->type, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3950
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3951 Expression *c = new CommaExp(loc, d, n);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3952 return c->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3953 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3954
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3955 int NewAnonClassExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3956 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3957 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3958 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3959
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3960 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3961 int NewAnonClassExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3962 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3963 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3964 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3965 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3966
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3967 void NewAnonClassExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3968 { int i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3969
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3970 if (thisexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3971 { expToCBuffer(buf, hgs, thisexp, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3972 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3973 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3974 buf->writestring("new");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3975 if (newargs && newargs->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3976 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3977 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3978 argsToCBuffer(buf, newargs, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3979 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3980 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3981 buf->writestring(" class ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3982 if (arguments && arguments->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3983 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3984 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3985 argsToCBuffer(buf, arguments, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3986 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3987 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3988 //buf->writestring(" { }");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3989 if (cd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3990 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3991 cd->toCBuffer(buf, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3992 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3993 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3994
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3995 /******************** SymbolExp ************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3996
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3997 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3998 SymbolExp::SymbolExp(Loc loc, enum TOK op, int size, Declaration *var, int hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3999 : Expression(loc, op, size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4000 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4001 assert(var);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4002 this->var = var;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4003 this->hasOverloads = hasOverloads;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4004 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4005 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4006
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4007 /******************** SymOffExp ************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4008
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4009 SymOffExp::SymOffExp(Loc loc, Declaration *var, unsigned offset, int hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4010 : SymbolExp(loc, TOKsymoff, sizeof(SymOffExp), var, hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4011 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4012 this->offset = offset;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4013 m = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4014 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4015 if (v && v->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4016 error("need 'this' for address of %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4017 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4018
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4019 Expression SymOffExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4020 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4021 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4022 printf("SymOffExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4023 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4024 //var->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4025 m = sc->module;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4026 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4027 type = var->type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4028 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4029 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4030 v->checkNestedReference(sc, loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4031 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4032 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4033
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4034 int SymOffExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4035 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4036 return result ? TRUE : FALSE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4037 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4038
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4039 void SymOffExp::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4040 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4041 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4042 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4043 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4044 if (!v->isDataseg())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4045 error("escaping reference to local variable %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4046 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4047 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4048
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4049 void SymOffExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4050 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4051 if (offset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4052 buf->printf("(& %s+%u)", var->toChars(), offset);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4053 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4054 buf->printf("& %s", var->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4055 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4056
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4057 /****************************** VarExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4058
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4059 VarExp::VarExp(Loc loc, Declaration *var, int hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4060 : SymbolExp(loc, TOKvar, sizeof(VarExp), var, hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4061 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4062 //printf("VarExp(this = %p, '%s', loc = %s)\n", this, var->toChars(), loc.toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4063 //if (strcmp(var->ident->toChars(), "func") == 0) halt();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4064 this->type = var->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4065 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4066
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4067 int VarExp::equals(Object *o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4068 { VarExp *ne;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4069
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4070 if (this == o \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4071 (((Expression *)o)->op == TOKvar &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4072 ((ne = (VarExp *)o), type->toHeadMutable()->equals(ne->type->toHeadMutable())) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4073 var == ne->var))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4074 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4075 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4076 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4077
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4078 Expression VarExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4079 { FuncLiteralDeclaration *fd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4080
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4081 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4082 printf("VarExp::semantic(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4083 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4084 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4085 { type = var->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4086 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4087 if (var->storage_class & STClazy)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4088 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4089 TypeFunction *tf = new TypeFunction(NULL, type, 0, LINKd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4090 type = new TypeDelegate(tf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4091 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4092 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4093 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4094 }
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	4095
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4096 /* Fix for 1161 doesn't work because it causes protection
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4097 * problems when instantiating imported templates passing private
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4098 * variables as alias template parameters.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4099 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4100 //accessCheck(loc, sc, NULL, var);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4101
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4102 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4103 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4104 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4105 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4106 if ((v->isConst() \|\| v->isInvariant()) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4107 type->toBasetype()->ty != Tsarray && v->init)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4108 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4109 ExpInitializer *ei = v->init->isExpInitializer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4110 if (ei)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4111 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4112 //ei->exp->implicitCastTo(sc, type)->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4113 return ei->exp->implicitCastTo(sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4114 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4115 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4116 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4117 v->checkNestedReference(sc, loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4118 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4119 #if 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4120 if (sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4121 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4122 /* Determine if sc->func is pure or if any function that
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4123 * encloses it is also pure.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4124 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4125 bool hasPureParent = false;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4126 for (FuncDeclaration *outerfunc = sc->func; outerfunc;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4127 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4128 if (outerfunc->isPure())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4129 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4130 hasPureParent = true;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4131 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4132 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4133 Dsymbol *parent = outerfunc->toParent2();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4134 if (!parent)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4135 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4136 outerfunc = parent->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4137 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4138
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4139 /* If ANY of its enclosing functions are pure,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4140 * it cannot do anything impure.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4141 * If it is pure, it cannot access any mutable variables other
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4142 * than those inside itself
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4143 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4144 if (hasPureParent && !sc->intypeof && v->isDataseg() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4145 !v->isInvariant())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4146 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4147 error("pure function '%s' cannot access mutable static data '%s'",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4148 sc->func->toChars(), v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4149 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4150 else if (sc->func->isPure() && sc->parent != v->parent &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4151 !sc->intypeof && !v->isInvariant() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4152 !(v->storage_class & STCmanifest))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4153 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4154 error("pure nested function '%s' cannot access mutable data '%s'",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4155 sc->func->toChars(), v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4156 if (v->isEnumDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4157 error("enum");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4158 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4159 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4160 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4161 if (sc->func && sc->func->isPure() && !sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4162 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4163 if (v->isDataseg() && !v->isInvariant())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4164 error("pure function '%s' cannot access mutable static data '%s'", sc->func->toChars(), v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4165 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4166 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4167 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4168 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4169 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4170 else if ((fd = var->isFuncLiteralDeclaration()) != NULL)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4171 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4172 e = new FuncExp(loc, fd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4173 e->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4174 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4175 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4176 #endif
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	4177
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4178 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4179 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4180
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4181 char *VarExp::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4182 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4183 return var->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4184 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4185
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4186 void VarExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4187 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4188 buf->writestring(var->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4189 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4190
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4191 void VarExp::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4192 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4193 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4194 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4195 { Type *tb = v->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4196 // if reference type
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4197 if (tb->ty == Tarray \|\| tb->ty == Tsarray \|\| tb->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4198 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4199 if ((v->isAuto() \|\| v->isScope()) && !v->noauto)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4200 error("escaping reference to scope local %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4201 else if (v->storage_class & STCvariadic)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4202 error("escaping reference to variadic parameter %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4203 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4204 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4205 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4206
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4207 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4208 int VarExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4209 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4210 if (var->storage_class & STClazy)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4211 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4212 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4213 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4214 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4215
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4216 Expression VarExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4217 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4218 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4219 tym = tybasic(e1->ET->Tty);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4220 if (!(tyscalar(tym) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4221 tym == TYstruct \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4222 tym == TYarray && e->Eoper == TOKaddr))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4223 synerr(EM_lvalue); // lvalue expected
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4224 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4225 if (var->storage_class & STClazy)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4226 error("lazy variables cannot be lvalues");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4227 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4228 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4229
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4230 Expression VarExp::modifiableLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4231 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4232 //printf("VarExp::modifiableLvalue('%s')\n", var->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4233 if (type && type->toBasetype()->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4234 error("cannot change reference to static array '%s'", var->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4235
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4236 var->checkModify(loc, sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4237
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4238 // See if this expression is a modifiable lvalue (i.e. not const)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4239 return toLvalue(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4240 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4241
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4242
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4243 /****************************** OverExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4244
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4245 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4246 OverExp::OverExp(OverloadSet *s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4247 : Expression(loc, TOKoverloadset, sizeof(OverExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4248 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4249 //printf("OverExp(this = %p, '%s')\n", this, var->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4250 vars = s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4251 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4252 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4253
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4254 int OverExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4255 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4256 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4257 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4258
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4259 Expression OverExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4260 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4261 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4262 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4263 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4264
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4265
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4266 /****************************** TupleExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4267
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4268 TupleExp::TupleExp(Loc loc, Expressions *exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4269 : Expression(loc, TOKtuple, sizeof(TupleExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4270 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4271 //printf("TupleExp(this = %p)\n", this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4272 this->exps = exps;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4273 this->type = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4274 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4275
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4276
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4277 TupleExp::TupleExp(Loc loc, TupleDeclaration *tup)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4278 : Expression(loc, TOKtuple, sizeof(TupleExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4279 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4280 exps = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4281 type = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4282
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4283 exps->reserve(tup->objects->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4284 for (size_t i = 0; i < tup->objects->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4285 { Object o = (Object )tup->objects->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4286 if (o->dyncast() == DYNCAST_EXPRESSION)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4287 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4288 Expression e = (Expression )o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4289 e = e->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4290 exps->push(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4291 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4292 else if (o->dyncast() == DYNCAST_DSYMBOL)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4293 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4294 Dsymbol s = (Dsymbol )o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4295 Expression *e = new DsymbolExp(loc, s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4296 exps->push(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4297 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4298 else if (o->dyncast() == DYNCAST_TYPE)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4299 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4300 Type t = (Type )o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4301 Expression *e = new TypeExp(loc, t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4302 exps->push(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4303 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4304 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4305 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4306 error("%s is not an expression", o->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4307 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4308 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4309 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4310
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4311 int TupleExp::equals(Object *o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4312 { TupleExp *ne;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4313
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4314 if (this == o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4315 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4316 if (((Expression *)o)->op == TOKtuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4317 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4318 TupleExp te = (TupleExp )o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4319 if (exps->dim != te->exps->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4320 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4321 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4322 { Expression e1 = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4323 Expression e2 = (Expression )te->exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4324
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4325 if (!e1->equals(e2))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4326 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4327 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4328 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4329 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4330 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4331 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4332
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4333 Expression *TupleExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4334 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4335 return new TupleExp(loc, arraySyntaxCopy(exps));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4336 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4337
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4338 Expression TupleExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4339 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4340 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4341 printf("+TupleExp::semantic(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4342 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4343 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4344 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4345
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4346 // Run semantic() on each argument
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4347 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4348 { Expression e = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4349
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4350 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4351 if (!e->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4352 { error("%s has no value", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4353 e->type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4354 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4355 exps->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4356 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4357
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4358 expandTuples(exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4359 if (0 && exps->dim == 1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4360 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4361 return (Expression *)exps->data[0];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4362 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4363 type = new TypeTuple(exps);
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	4364 type = type->semantic(loc, sc);
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4365 //printf("-TupleExp::semantic(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4366 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4367 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4368
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4369 void TupleExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4370 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4371 buf->writestring("tuple(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4372 argsToCBuffer(buf, exps, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4373 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4374 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4375
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4376 int TupleExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4377 { int f = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4378
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4379 for (int i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4380 { Expression e = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4381
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4382 f \|= e->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4383 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4384 if (flag == 0 && f == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4385 Expression::checkSideEffect(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4386 return f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4387 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4388
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4389 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4390 int TupleExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4391 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4392 return arrayExpressionCanThrow(exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4393 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4394 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4395
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4396 void TupleExp::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4397 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4398 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4399 { Expression e = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4400 e->checkEscape();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4401 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4402 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4403
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4404 /****************************** FuncExp *******************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4405
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4406 FuncExp::FuncExp(Loc loc, FuncLiteralDeclaration *fd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4407 : Expression(loc, TOKfunction, sizeof(FuncExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4408 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4409 this->fd = fd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4410 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4411
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4412 Expression *FuncExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4413 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4414 return new FuncExp(loc, (FuncLiteralDeclaration *)fd->syntaxCopy(NULL));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4415 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4416
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4417 Expression FuncExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4418 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4419 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4420 printf("FuncExp::semantic(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4421 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4422 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4423 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4424 fd->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4425 //fd->parent = sc->parent;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4426 if (global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4427 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4428 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4429 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4430 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4431 fd->semantic2(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4432 if (!global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4433 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4434 fd->semantic3(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4435
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4436 if (!global.errors && global.params.useInline)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4437 fd->inlineScan();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4438 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4439 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4440
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4441 // Type is a "delegate to" or "pointer to" the function literal
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4442 if (fd->isNested())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4443 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4444 type = new TypeDelegate(fd->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4445 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4446 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4447 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4448 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4449 type = fd->type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4450 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4451 fd->tookAddressOf++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4452 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4453 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4454 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4455
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4456 char *FuncExp::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4457 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4458 return fd->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4459 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4460
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4461 void FuncExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4462 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4463 fd->toCBuffer(buf, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4464 //buf->writestring(fd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4465 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4466
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4467
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4468 /****************************** DeclarationExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4469
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4470 DeclarationExp::DeclarationExp(Loc loc, Dsymbol *declaration)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4471 : Expression(loc, TOKdeclaration, sizeof(DeclarationExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4472 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4473 this->declaration = declaration;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4474 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4475
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4476 Expression *DeclarationExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4477 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4478 return new DeclarationExp(loc, declaration->syntaxCopy(NULL));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4479 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4480
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4481 Expression DeclarationExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4482 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4483 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4484 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4485
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4486 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4487 printf("DeclarationExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4488 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4489
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4490 /* This is here to support extern(linkage) declaration,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4491 * where the extern(linkage) winds up being an AttribDeclaration
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4492 * wrapper.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4493 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4494 Dsymbol *s = declaration;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4495
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4496 AttribDeclaration *ad = declaration->isAttribDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4497 if (ad)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4498 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4499 if (ad->decl && ad->decl->dim == 1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4500 s = (Dsymbol *)ad->decl->data[0];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4501 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4502
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4503 if (s->isVarDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4504 { // Do semantic() on initializer first, so:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4505 // int a = a;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4506 // will be illegal.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4507 declaration->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4508 s->parent = sc->parent;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4509 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4510
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4511 //printf("inserting '%s' %p into sc = %p\n", s->toChars(), s, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4512 // Insert into both local scope and function scope.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4513 // Must be unique in both.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4514 if (s->ident)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4515 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4516 if (!sc->insert(s))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4517 error("declaration %s is already defined", s->toPrettyChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4518 else if (sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4519 { VarDeclaration *v = s->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4520 if (s->isFuncDeclaration() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4521 !sc->func->localsymtab->insert(s))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4522 error("declaration %s is already defined in another scope in %s", s->toPrettyChars(), sc->func->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4523 else if (!global.params.useDeprecated)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4524 { // Disallow shadowing
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4525
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4526 for (Scope *scx = sc->enclosing; scx && scx->func == sc->func; scx = scx->enclosing)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4527 { Dsymbol *s2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4528
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4529 if (scx->scopesym && scx->scopesym->symtab &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4530 (s2 = scx->scopesym->symtab->lookup(s->ident)) != NULL &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4531 s != s2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4532 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4533 error("shadowing declaration %s is deprecated", s->toPrettyChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4534 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4535 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4536 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4537 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4538 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4539 if (!s->isVarDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4540 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4541 declaration->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4542 s->parent = sc->parent;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4543 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4544 if (!global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4545 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4546 declaration->semantic2(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4547 if (!global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4548 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4549 declaration->semantic3(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4550
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4551 if (!global.errors && global.params.useInline)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4552 declaration->inlineScan();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4553 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4554 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4555
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4556 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4557 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4558 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4559
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4560 int DeclarationExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4561 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4562 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4563 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4564
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4565 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4566 int DeclarationExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4567 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4568 VarDeclaration *v = declaration->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4569 if (v && v->init)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4570 { ExpInitializer *ie = v->init->isExpInitializer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4571 return ie && ie->exp->canThrow();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4572 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4573 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4574 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4575 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4576
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4577 void DeclarationExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4578 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4579 declaration->toCBuffer(buf, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4580 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4581
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4582
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4583 /********************** TypeidExp **********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4584
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4585 /*
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4586 * typeid(int)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4587 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4588
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4589 TypeidExp::TypeidExp(Loc loc, Type *typeidType)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4590 : Expression(loc, TOKtypeid, sizeof(TypeidExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4591 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4592 this->typeidType = typeidType;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4593 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4594
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4595
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4596 Expression *TypeidExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4597 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4598 return new TypeidExp(loc, typeidType->syntaxCopy());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4599 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4600
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4601
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4602 Expression TypeidExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4603 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4604
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4605 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4606 printf("TypeidExp::semantic()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4607 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4608 typeidType = typeidType->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4609 e = typeidType->getTypeInfo(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4610 if (e->loc.linnum == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4611 e->loc = loc; // so there's at least some line number info
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4612 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4613 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4614
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4615 void TypeidExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4616 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4617 buf->writestring("typeid(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4618 typeidType->toCBuffer(buf, NULL, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4619 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4620 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4621
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4622 /********************** TraitsExp **********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4623 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4624 /*
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4625 * __traits(identifier, args...)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4626 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4627
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4628 TraitsExp::TraitsExp(Loc loc, Identifier ident, Objects args)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4629 : Expression(loc, TOKtraits, sizeof(TraitsExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4630 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4631 this->ident = ident;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4632 this->args = args;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4633 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4634
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4635
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4636 Expression *TraitsExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4637 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4638 return new TraitsExp(loc, ident, TemplateInstance::arraySyntaxCopy(args));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4639 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4640
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4641
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4642 void TraitsExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4643 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4644 buf->writestring("__traits(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4645 buf->writestring(ident->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4646 if (args)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4647 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4648 for (int i = 0; i < args->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4649 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4650 buf->writeByte(',');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4651 Object oarg = (Object )args->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4652 ObjectToCBuffer(buf, hgs, oarg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4653 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4654 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4655 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4656 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4657 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4658
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4659 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4660
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4661 HaltExp::HaltExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4662 : Expression(loc, TOKhalt, sizeof(HaltExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4663 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4664 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4665
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4666 Expression HaltExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4667 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4668 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4669 printf("HaltExp::semantic()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4670 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4671 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4672 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4673 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4674
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4675 int HaltExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4676 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4677 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4678 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4679
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4680 void HaltExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4681 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4682 buf->writestring("halt");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4683 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4684
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4685 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4686
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4687 IsExp::IsExp(Loc loc, Type targ, Identifier id, enum TOK tok,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4688 Type tspec, enum TOK tok2, TemplateParameters parameters)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4689 : Expression(loc, TOKis, sizeof(IsExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4690 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4691 this->targ = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4692 this->id = id;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4693 this->tok = tok;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4694 this->tspec = tspec;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4695 this->tok2 = tok2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4696 this->parameters = parameters;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4697 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4698
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4699 Expression *IsExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4700 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4701 // This section is identical to that in TemplateDeclaration::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4702 TemplateParameters *p = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4703 if (parameters)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4704 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4705 p = new TemplateParameters();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4706 p->setDim(parameters->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4707 for (int i = 0; i < p->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4708 { TemplateParameter tp = (TemplateParameter )parameters->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4709 p->data[i] = (void *)tp->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4710 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4711 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4712
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4713 return new IsExp(loc,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4714 targ->syntaxCopy(),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4715 id,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4716 tok,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4717 tspec ? tspec->syntaxCopy() : NULL,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4718 tok2,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4719 p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4720 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4721
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4722 Expression IsExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4723 { Type *tded;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4724
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4725 /* is(targ id tok tspec)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4726 * is(targ id == tok2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4727 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4728
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4729 //printf("IsExp::semantic(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4730 if (id && !(sc->flags & SCOPEstaticif))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4731 error("can only declare type aliases within static if conditionals");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4732
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4733 Type *t = targ->trySemantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4734 if (!t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4735 goto Lno; // errors, so condition is false
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4736 targ = t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4737 if (tok2 != TOKreserved)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4738 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4739 switch (tok2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4740 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4741 case TOKtypedef:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4742 if (targ->ty != Ttypedef)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4743 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4744 tded = ((TypeTypedef *)targ)->sym->basetype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4745 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4746
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4747 case TOKstruct:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4748 if (targ->ty != Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4749 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4750 if (((TypeStruct *)targ)->sym->isUnionDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4751 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4752 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4753 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4754
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4755 case TOKunion:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4756 if (targ->ty != Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4757 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4758 if (!((TypeStruct *)targ)->sym->isUnionDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4759 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4760 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4761 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4762
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4763 case TOKclass:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4764 if (targ->ty != Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4765 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4766 if (((TypeClass *)targ)->sym->isInterfaceDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4767 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4768 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4769 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4770
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4771 case TOKinterface:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4772 if (targ->ty != Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4773 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4774 if (!((TypeClass *)targ)->sym->isInterfaceDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4775 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4776 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4777 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4778 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4779 case TOKconst:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4780 if (!targ->isConst())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4781 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4782 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4783 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4784
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4785 case TOKinvariant:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4786 case TOKimmutable:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4787 if (!targ->isInvariant())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4788 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4789 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4790 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4791 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4792
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4793 case TOKsuper:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4794 // If class or interface, get the base class and interfaces
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4795 if (targ->ty != Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4796 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4797 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4798 { ClassDeclaration cd = ((TypeClass )targ)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4799 Arguments *args = new Arguments;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4800 args->reserve(cd->baseclasses.dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4801 for (size_t i = 0; i < cd->baseclasses.dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4802 { BaseClass b = (BaseClass )cd->baseclasses.data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4803 args->push(new Argument(STCin, b->type, NULL, NULL));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4804 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4805 tded = new TypeTuple(args);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4806 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4807 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4808
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4809 case TOKenum:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4810 if (targ->ty != Tenum)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4811 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4812 tded = ((TypeEnum *)targ)->sym->memtype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4813 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4814
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4815 case TOKdelegate:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4816 if (targ->ty != Tdelegate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4817 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4818 tded = ((TypeDelegate *)targ)->next; // the underlying function type
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4819 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4820
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4821 case TOKfunction:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4822 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4823 if (targ->ty != Tfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4824 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4825 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4826
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4827 /* Generate tuple from function parameter types.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4828 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4829 assert(tded->ty == Tfunction);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4830 Arguments params = ((TypeFunction )tded)->parameters;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4831 size_t dim = Argument::dim(params);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4832 Arguments *args = new Arguments;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4833 args->reserve(dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4834 for (size_t i = 0; i < dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4835 { Argument *arg = Argument::getNth(params, i);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4836 assert(arg && arg->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4837 args->push(new Argument(arg->storageClass, arg->type, NULL, NULL));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4838 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4839 tded = new TypeTuple(args);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4840 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4841 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4842 case TOKreturn:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4843 /* Get the 'return type' for the function,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4844 * delegate, or pointer to function.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4845 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4846 if (targ->ty == Tfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4847 tded = ((TypeFunction *)targ)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4848 else if (targ->ty == Tdelegate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4849 { tded = ((TypeDelegate *)targ)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4850 tded = ((TypeFunction *)tded)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4851 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4852 else if (targ->ty == Tpointer &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4853 ((TypePointer *)targ)->next->ty == Tfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4854 { tded = ((TypePointer *)targ)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4855 tded = ((TypeFunction *)tded)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4856 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4857 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4858 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4859 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4860
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4861 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4862 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4863 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4864 goto Lyes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4865 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4866 else if (id && tspec)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4867 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4868 /* Evaluate to TRUE if targ matches tspec.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4869 * If TRUE, declare id as an alias for the specialized type.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4870 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4871
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4872 MATCH m;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4873 assert(parameters && parameters->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4874
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4875 Objects dedtypes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4876 dedtypes.setDim(parameters->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4877 dedtypes.zero();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4878
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4879 m = targ->deduceType(NULL, tspec, parameters, &dedtypes);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4880 if (m == MATCHnomatch \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4881 (m != MATCHexact && tok == TOKequal))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4882 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4883 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4884 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4885 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4886 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4887 tded = (Type *)dedtypes.data[0];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4888 if (!tded)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4889 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4890
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4891 Objects tiargs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4892 tiargs.setDim(1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4893 tiargs.data[0] = (void *)targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4894
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4895 /* Declare trailing parameters
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4896 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4897 for (int i = 1; i < parameters->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4898 { TemplateParameter tp = (TemplateParameter )parameters->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4899 Declaration *s = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4900
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4901 m = tp->matchArg(sc, &tiargs, i, parameters, &dedtypes, &s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4902 if (m == MATCHnomatch)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4903 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4904 s->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4905 if (!sc->insert(s))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4906 error("declaration %s is already defined", s->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4907 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4908 Object o = (Object )dedtypes.data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4909 Dsymbol *s = TemplateDeclaration::declareParameter(loc, sc, tp, o);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4910 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4911 if (sc->sd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4912 s->addMember(sc, sc->sd, 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4913 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4914
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4915 goto Lyes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4916 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4917 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4918 else if (id)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4919 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4920 /* Declare id as an alias for type targ. Evaluate to TRUE
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4921 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4922 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4923 goto Lyes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4924 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4925 else if (tspec)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4926 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4927 /* Evaluate to TRUE if targ matches tspec
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4928 * is(targ == tspec)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4929 * is(targ : tspec)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4930 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4931 tspec = tspec->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4932 //printf("targ = %s\n", targ->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4933 //printf("tspec = %s\n", tspec->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4934 if (tok == TOKcolon)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4935 { if (targ->implicitConvTo(tspec))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4936 goto Lyes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4937 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4938 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4939 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4940 else /* == */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4941 { if (targ->equals(tspec))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4942 goto Lyes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4943 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4944 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4945 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4946 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4947
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4948 Lyes:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4949 if (id)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4950 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4951 Dsymbol *s = new AliasDeclaration(loc, id, tded);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4952 s->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4953 if (!sc->insert(s))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4954 error("declaration %s is already defined", s->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4955 if (sc->sd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4956 s->addMember(sc, sc->sd, 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4957 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4958 //printf("Lyes\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4959 return new IntegerExp(loc, 1, Type::tbool);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4960
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4961 Lno:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4962 //printf("Lno\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4963 return new IntegerExp(loc, 0, Type::tbool);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4964 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4965
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4966 void IsExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4967 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4968 buf->writestring("is(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4969 targ->toCBuffer(buf, id, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4970 if (tok2 != TOKreserved)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4971 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4972 buf->printf(" %s %s", Token::toChars(tok), Token::toChars(tok2));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4973 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4974 else if (tspec)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4975 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4976 if (tok == TOKcolon)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4977 buf->writestring(" : ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4978 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4979 buf->writestring(" == ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4980 tspec->toCBuffer(buf, NULL, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4981 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4982 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4983 if (parameters)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4984 { // First parameter is already output, so start with second
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4985 for (int i = 1; i < parameters->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4986 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4987 buf->writeByte(',');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4988 TemplateParameter tp = (TemplateParameter )parameters->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4989 tp->toCBuffer(buf, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4990 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4991 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4992 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4993 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4994 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4995
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4996
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4997 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4998
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4999 UnaExp::UnaExp(Loc loc, enum TOK op, int size, Expression *e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5000 : Expression(loc, op, size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5001 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5002 this->e1 = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5003 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5004
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5005 Expression *UnaExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5006 { UnaExp *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5007
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5008 e = (UnaExp *)copy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5009 e->type = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5010 e->e1 = e->e1->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5011 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5012 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5013
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5014 Expression UnaExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5015 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5016 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5017 printf("UnaExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5018 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5019 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5020 // if (!e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5021 // error("%s has no value", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5022 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5023 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5024
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5025 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5026 int UnaExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5027 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5028 return e1->canThrow();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5029 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5030 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5031
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5032 void UnaExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5033 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5034 buf->writestring(Token::toChars(op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5035 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5036 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5037
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5038 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5039
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5040 BinExp::BinExp(Loc loc, enum TOK op, int size, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5041 : Expression(loc, op, size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5042 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5043 this->e1 = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5044 this->e2 = e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5045 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5046
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5047 Expression *BinExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5048 { BinExp *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5049
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5050 e = (BinExp *)copy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5051 e->type = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5052 e->e1 = e->e1->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5053 e->e2 = e->e2->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5054 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5055 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5056
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5057 Expression BinExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5058 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5059 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5060 printf("BinExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5061 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5062 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5063 if (!e1->type &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5064 !(op == TOKassign && e1->op == TOKdottd)) // a.template = e2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5065 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5066 error("%s has no value", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5067 e1->type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5068 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5069 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5070 if (!e2->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5071 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5072 error("%s has no value", e2->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5073 e2->type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5074 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5075 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5076 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5077
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5078 Expression BinExp::semanticp(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5079 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5080 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5081 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5082 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5083 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5084 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5085
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5086 /***************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5087 * Common semantic routine for some xxxAssignExp's.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5088 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5089
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5090 Expression BinExp::commonSemanticAssign(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5091 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5092
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5093 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5094 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5095 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5096 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5097
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5098 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5099 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5100 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5101
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5102 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5103 { // T[] op= ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5104 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5105 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5106 return arrayOp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5107 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5108
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5109 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5110 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5111 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5112 if (type->toBasetype()->ty == Tbool)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5113 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5114 error("operator not allowed on bool expression %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5115 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5116 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5117 e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5118 e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5119
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5120 if (op == TOKmodass && e2->type->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5121 { error("cannot perform modulo complex arithmetic");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5122 return new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5123 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5124 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5125 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5126 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5127
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5128 Expression BinExp::commonSemanticAssignIntegral(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5129 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5130
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5131 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5132 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5133 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5134 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5135
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5136 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5137 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5138 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5139
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5140 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5141 { // T[] op= ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5142 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5143 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5144 return arrayOp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5145 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5146
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5147 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5148 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5149 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5150 if (type->toBasetype()->ty == Tbool)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5151 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5152 e2 = e2->implicitCastTo(sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5153 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5154
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5155 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5156 e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5157 e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5158 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5159 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5160 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5161
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5162 int BinExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5163 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5164 if (op == TOKplusplus \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5165 op == TOKminusminus \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5166 op == TOKassign \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5167 op == TOKconstruct \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5168 op == TOKblit \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5169 op == TOKaddass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5170 op == TOKminass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5171 op == TOKcatass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5172 op == TOKmulass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5173 op == TOKdivass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5174 op == TOKmodass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5175 op == TOKshlass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5176 op == TOKshrass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5177 op == TOKushrass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5178 op == TOKandass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5179 op == TOKorass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5180 op == TOKxorass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5181 op == TOKin \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5182 op == TOKremove)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5183 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5184 return Expression::checkSideEffect(flag);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5185 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5186
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5187 void BinExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5188 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5189 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5190 buf->writeByte(' ');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5191 buf->writestring(Token::toChars(op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5192 buf->writeByte(' ');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5193 expToCBuffer(buf, hgs, e2, (enum PREC)(precedence[op] + 1));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5194 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5195
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5196 int BinExp::isunsigned()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5197 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5198 return e1->type->isunsigned() \|\| e2->type->isunsigned();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5199 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5200
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5201 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5202 int BinExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5203 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5204 return e1->canThrow() \|\| e2->canThrow();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5205 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5206 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5207
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5208 void BinExp::incompatibleTypes()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5209 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5210 error("incompatible types for ((%s) %s (%s)): '%s' and '%s'",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5211 e1->toChars(), Token::toChars(op), e2->toChars(),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5212 e1->type->toChars(), e2->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5213 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5214
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5215 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5216
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5217 CompileExp::CompileExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5218 : UnaExp(loc, TOKmixin, sizeof(CompileExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5219 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5220 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5221
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5222 Expression CompileExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5223 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5224 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5225 printf("CompileExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5226 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5227 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5228 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5229 e1 = e1->optimize(WANTvalue \| WANTinterpret);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5230 if (e1->op != TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5231 { error("argument to mixin must be a string, not (%s)", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5232 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5233 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5234 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5235 StringExp se = (StringExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5236 se = se->toUTF8(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5237 Parser p(sc->module, (unsigned char *)se->string, se->len, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5238 p.loc = loc;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5239 p.nextToken();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5240 //printf("p.loc.linnum = %d\n", p.loc.linnum);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5241 Expression *e = p.parseExpression();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5242 if (p.token.value != TOKeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5243 error("incomplete mixin expression (%s)", se->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5244 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5245 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5246
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5247 void CompileExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5248 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5249 buf->writestring("mixin(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5250 expToCBuffer(buf, hgs, e1, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5251 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5252 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5253
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5254 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5255
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5256 FileExp::FileExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5257 : UnaExp(loc, TOKmixin, sizeof(FileExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5258 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5259 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5260
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5261 Expression FileExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5262 { char *name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5263 StringExp *se;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5264
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5265 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5266 printf("FileExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5267 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5268 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5269 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5270 e1 = e1->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5271 if (e1->op != TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5272 { error("file name argument must be a string, not (%s)", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5273 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5274 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5275 se = (StringExp *)e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5276 se = se->toUTF8(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5277 name = (char *)se->string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5278
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5279 if (!global.params.fileImppath)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5280 { error("need -Jpath switch to import text file %s", name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5281 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5282 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5283
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5284 if (name != FileName::name(name))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5285 { error("use -Jpath switch to provide path for filename %s", name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5286 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5287 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5288
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5289 name = FileName::searchPath(global.filePath, name, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5290 if (!name)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5291 { error("file %s cannot be found, check -Jpath", se->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5292 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5293 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5294
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5295 if (global.params.verbose)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5296 printf("file %s\t(%s)\n", (char*)se->string, name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5297
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5298 { File f(name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5299 if (f.read())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5300 { error("cannot read file %s", f.toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5301 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5302 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5303 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5304 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5305 f.ref = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5306 se = new StringExp(loc, f.buffer, f.len);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5307 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5308 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5309 Lret:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5310 return se->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5311
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5312 Lerror:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5313 se = new StringExp(loc, (char *)"");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5314 goto Lret;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5315 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5316
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5317 void FileExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5318 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5319 buf->writestring("import(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5320 expToCBuffer(buf, hgs, e1, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5321 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5322 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5323
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5324 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5325
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5326 AssertExp::AssertExp(Loc loc, Expression e, Expression msg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5327 : UnaExp(loc, TOKassert, sizeof(AssertExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5328 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5329 this->msg = msg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5330 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5331
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5332 Expression *AssertExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5333 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5334 AssertExp *ae = new AssertExp(loc, e1->syntaxCopy(),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5335 msg ? msg->syntaxCopy() : NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5336 return ae;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5337 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5338
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5339 Expression AssertExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5340 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5341 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5342 printf("AssertExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5343 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5344 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5345 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5346 // BUG: see if we can do compile time elimination of the Assert
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5347 e1 = e1->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5348 e1 = e1->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5349 if (msg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5350 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5351 msg = msg->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5352 msg = resolveProperties(sc, msg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5353 msg = msg->implicitCastTo(sc, Type::tchar->constOf()->arrayOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5354 msg = msg->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5355 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5356 if (e1->isBool(FALSE))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5357 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5358 FuncDeclaration *fd = sc->parent->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5359 fd->hasReturnExp \|= 4;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5360
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5361 if (!global.params.useAssert)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5362 { Expression *e = new HaltExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5363 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5364 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5365 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5366 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5367 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5368 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5369 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5370
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5371 int AssertExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5372 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5373 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5374 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5375
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5376 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5377 int AssertExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5378 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5379 /* assert()s are non-recoverable errors, so functions that
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5380 * use them can be considered "nothrow"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5381 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5382 return 0; //(global.params.useAssert != 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5383 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5384 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5385
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5386 void AssertExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5387 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5388 buf->writestring("assert(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5389 expToCBuffer(buf, hgs, e1, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5390 if (msg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5391 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5392 buf->writeByte(',');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5393 expToCBuffer(buf, hgs, msg, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5394 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5395 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5396 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5397
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5398 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5399
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5400 DotIdExp::DotIdExp(Loc loc, Expression e, Identifier ident)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5401 : UnaExp(loc, TOKdot, sizeof(DotIdExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5402 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5403 this->ident = ident;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5404 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5405
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5406 Expression DotIdExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5407 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5408 Expression *eleft;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5409 Expression *eright;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5410
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5411 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5412 printf("DotIdExp::semantic(this = %p, '%s')\n", this, toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5413 //printf("e1->op = %d, '%s'\n", e1->op, Token::toChars(e1->op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5414 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5415
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5416 //{ static int z; fflush(stdout); if (++z == 10) (char)0=0; }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5417
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5418 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5419 /* Don't do semantic analysis if we'll be converting
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5420 * it to a string.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5421 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5422 if (ident == Id::stringof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5423 { char *s = e1->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5424 e = new StringExp(loc, s, strlen(s), 'c');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5425 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5426 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5427 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5428 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5429
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5430 /* Special case: rewrite this.id and super.id
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5431 * to be classtype.id and baseclasstype.id
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5432 * if we have no this pointer.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5433 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5434 if ((e1->op == TOKthis \|\| e1->op == TOKsuper) && !hasThis(sc))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5435 { ClassDeclaration *cd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5436 StructDeclaration *sd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5437 AggregateDeclaration *ad;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5438
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5439 ad = sc->getStructClassScope();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5440 if (ad)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5441 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5442 cd = ad->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5443 if (cd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5444 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5445 if (e1->op == TOKthis)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5446 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5447 e = typeDotIdExp(loc, cd->type, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5448 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5449 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5450 else if (cd->baseClass && e1->op == TOKsuper)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5451 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5452 e = typeDotIdExp(loc, cd->baseClass->type, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5453 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5454 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5455 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5456 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5457 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5458 sd = ad->isStructDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5459 if (sd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5460 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5461 if (e1->op == TOKthis)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5462 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5463 e = typeDotIdExp(loc, sd->type, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5464 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5465 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5466 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5467 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5468 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5469 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5470
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5471 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5472
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5473 if (e1->op == TOKdotexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5474 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5475 DotExp de = (DotExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5476 eleft = de->e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5477 eright = de->e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5478 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5479 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5480 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5481 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5482 eleft = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5483 eright = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5484 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5485 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5486 if (e1->op == TOKtuple && ident == Id::offsetof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5487 { /* 'distribute' the .offsetof to each of the tuple elements.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5488 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5489 TupleExp te = (TupleExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5490 Expressions *exps = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5491 exps->setDim(te->exps->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5492 for (int i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5493 { Expression e = (Expression )te->exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5494 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5495 e = new DotIdExp(e->loc, e, Id::offsetof);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5496 exps->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5497 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5498 e = new TupleExp(loc, exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5499 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5500 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5501 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5502 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5503
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5504 if (e1->op == TOKtuple && ident == Id::length)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5505 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5506 TupleExp te = (TupleExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5507 e = new IntegerExp(loc, te->exps->dim, Type::tsize_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5508 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5509 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5510
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5511 if (e1->op == TOKdottd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5512 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5513 error("template %s does not have property %s", e1->toChars(), ident->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5514 return e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5515 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5516
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5517 if (!e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5518 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5519 error("expression %s does not have property %s", e1->toChars(), ident->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5520 return e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5521 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5522
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5523 Type *t1b = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5524
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5525 if (eright->op == TOKimport) // also used for template alias's
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5526 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5527 ScopeExp ie = (ScopeExp )eright;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5528
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5529 /* Disable access to another module's private imports.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5530 * The check for 'is sds our current module' is because
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5531 * the current module should have access to its own imports.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5532 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5533 Dsymbol *s = ie->sds->search(loc, ident,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5534 (ie->sds->isModule() && ie->sds != sc->module) ? 1 : 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5535 if (s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5536 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5537 s = s->toAlias();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5538 checkDeprecated(sc, s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5539
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5540 EnumMember *em = s->isEnumMember();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5541 if (em)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5542 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5543 e = em->value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5544 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5545 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5546 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5547
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5548 VarDeclaration *v = s->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5549 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5550 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5551 //printf("DotIdExp:: Identifier '%s' is a variable, type '%s'\n", toChars(), v->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5552 if (v->inuse)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5553 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5554 error("circular reference to '%s'", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5555 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5556 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5557 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5558 type = v->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5559 if (v->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5560 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5561 if (!eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5562 eleft = new ThisExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5563 e = new DotVarExp(loc, eleft, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5564 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5565 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5566 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5567 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5568 e = new VarExp(loc, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5569 if (eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5570 { e = new CommaExp(loc, eleft, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5571 e->type = v->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5572 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5573 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5574 return e->deref();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5575 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5576
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5577 FuncDeclaration *f = s->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5578 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5579 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5580 //printf("it's a function\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5581 if (f->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5582 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5583 if (!eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5584 eleft = new ThisExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5585 e = new DotVarExp(loc, eleft, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5586 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5587 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5588 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5589 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5590 e = new VarExp(loc, f, 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5591 if (eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5592 { e = new CommaExp(loc, eleft, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5593 e->type = f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5594 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5595 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5596 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5597 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5598 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5599 OverloadSet *o = s->isOverloadSet();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5600 if (o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5601 { //printf("'%s' is an overload set\n", o->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5602 return new OverExp(o);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5603 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5604 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5605
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5606 Type *t = s->getType();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5607 if (t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5608 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5609 return new TypeExp(loc, t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5610 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5611
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5612 TupleDeclaration *tup = s->isTupleDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5613 if (tup)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5614 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5615 if (eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5616 error("cannot have e.tuple");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5617 e = new TupleExp(loc, tup);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5618 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5619 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5620 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5621
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5622 ScopeDsymbol *sds = s->isScopeDsymbol();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5623 if (sds)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5624 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5625 //printf("it's a ScopeDsymbol\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5626 e = new ScopeExp(loc, sds);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5627 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5628 if (eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5629 e = new DotExp(loc, eleft, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5630 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5631 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5632
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5633 Import *imp = s->isImport();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5634 if (imp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5635 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5636 ScopeExp *ie;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5637
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5638 ie = new ScopeExp(loc, imp->pkg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5639 return ie->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5640 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5641
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5642 // BUG: handle other cases like in IdentifierExp::semantic()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5643 #ifdef DEBUG
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5644 printf("s = '%s', kind = '%s'\n", s->toChars(), s->kind());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5645 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5646 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5647 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5648 else if (ident == Id::stringof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5649 { char *s = ie->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5650 e = new StringExp(loc, s, strlen(s), 'c');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5651 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5652 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5653 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5654 error("undefined identifier %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5655 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5656 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5657 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5658 else if (t1b->ty == Tpointer &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5659 ident != Id::init && ident != Id::__sizeof &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5660 ident != Id::alignof && ident != Id::offsetof &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5661 ident != Id::mangleof && ident != Id::stringof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5662 { /* Rewrite:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5663 * p.ident
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5664 * as:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5665 * (*p).ident
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5666 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5667 e = new PtrExp(loc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5668 e->type = ((TypePointer *)t1b)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5669 return e->type->dotExp(sc, e, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5670 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5671 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5672 else if (t1b->ty == Tarray \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5673 t1b->ty == Tsarray \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5674 t1b->ty == Taarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5675 { /* If ident is not a valid property, rewrite:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5676 * e1.ident
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5677 * as:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5678 * .ident(e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5679 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5680 unsigned errors = global.errors;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5681 global.gag++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5682 e = e1->type->dotExp(sc, e1, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5683 global.gag--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5684 if (errors != global.errors) // if failed to find the property
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5685 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5686 global.errors = errors;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5687 e = new DotIdExp(loc, new IdentifierExp(loc, Id::empty), ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5688 e = new CallExp(loc, e, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5689 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5690 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5691 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5692 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5693 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5694 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5695 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5696 e = e1->type->dotExp(sc, e1, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5697 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5698 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5699 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5700 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5701
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5702 void DotIdExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5703 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5704 //printf("DotIdExp::toCBuffer()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5705 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5706 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5707 buf->writestring(ident->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5708 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5709
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5710 /******************** DotTemplateExp *********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5711
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5712 // Mainly just a placeholder
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5713
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5714 DotTemplateExp::DotTemplateExp(Loc loc, Expression e, TemplateDeclaration td)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5715 : UnaExp(loc, TOKdottd, sizeof(DotTemplateExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5716
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5717 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5718 this->td = td;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5719 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5720
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5721 void DotTemplateExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5722 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5723 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5724 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5725 buf->writestring(td->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5726 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5727
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5728
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5729 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5730
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5731 DotVarExp::DotVarExp(Loc loc, Expression e, Declaration v, int hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5732 : UnaExp(loc, TOKdotvar, sizeof(DotVarExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5733 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5734 //printf("DotVarExp()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5735 this->var = v;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5736 this->hasOverloads = hasOverloads;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5737 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5738
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5739 Expression DotVarExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5740 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5741 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5742 printf("DotVarExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5743 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5744 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5745 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5746 var = var->toAlias()->isDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5747
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5748 TupleDeclaration *tup = var->isTupleDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5749 if (tup)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5750 { /* Replace:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5751 * e1.tuple(a, b, c)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5752 * with:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5753 * tuple(e1.a, e1.b, e1.c)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5754 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5755 Expressions *exps = new Expressions;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5756
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5757 exps->reserve(tup->objects->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5758 for (size_t i = 0; i < tup->objects->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5759 { Object o = (Object )tup->objects->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5760 if (o->dyncast() != DYNCAST_EXPRESSION)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5761 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5762 error("%s is not an expression", o->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5763 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5764 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5765 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5766 Expression e = (Expression )o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5767 if (e->op != TOKdsymbol)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5768 error("%s is not a member", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5769 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5770 { DsymbolExp ve = (DsymbolExp )e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5771
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5772 e = new DotVarExp(loc, e1, ve->s->isDeclaration());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5773 exps->push(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5774 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5775 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5776 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5777 Expression *e = new TupleExp(loc, exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5778 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5779 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5780 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5781
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5782 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5783 type = var->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5784 if (!type && global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5785 { // var is goofed up, just return 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5786 return new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5787 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5788 assert(type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5789
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5790 if (!var->isFuncDeclaration()) // for functions, do checks after overload resolution
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5791 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5792 Type *t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5793 if (t1->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5794 t1 = t1->nextOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5795
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5796 type = type->addMod(t1->mod);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5797
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5798 Dsymbol *vparent = var->toParent();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5799 AggregateDeclaration *ad = vparent ? vparent->isAggregateDeclaration() : NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5800 e1 = getRightThis(loc, sc, ad, e1, var);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5801 if (!sc->noaccesscheck)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5802 accessCheck(loc, sc, e1, var);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5803
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5804 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5805 Expression *e = expandVar(WANTvalue, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5806 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5807 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5808 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5809 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5810 //printf("-DotVarExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5811 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5812 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5813
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5814 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5815 int DotVarExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5816 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5817 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5818 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5819 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5820
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5821 Expression DotVarExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5822 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5823 //printf("DotVarExp::toLvalue(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5824 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5825 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5826
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5827 Expression DotVarExp::modifiableLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5828 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5829 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5830 printf("DotVarExp::modifiableLvalue(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5831 printf("e1->type = %s\n", e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5832 printf("var->type = %s\n", var->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5833 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5834
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5835 if (var->isCtorinit())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5836 { // It's only modifiable if inside the right constructor
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5837 Dsymbol *s = sc->func;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5838 while (1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5839 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5840 FuncDeclaration *fd = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5841 if (s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5842 fd = s->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5843 if (fd &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5844 ((fd->isCtorDeclaration() && var->storage_class & STCfield) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5845 (fd->isStaticCtorDeclaration() && !(var->storage_class & STCfield))) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5846 fd->toParent() == var->toParent() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5847 e1->op == TOKthis
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5848 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5849 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5850 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5851 assert(v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5852 v->ctorinit = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5853 //printf("setting ctorinit\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5854 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5855 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5856 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5857 if (s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5858 { s = s->toParent2();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5859 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5860 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5861 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5862 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5863 const char *p = var->isStatic() ? "static " : "";
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5864 error("can only initialize %sconst member %s inside %sconstructor",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5865 p, var->toChars(), p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5866 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5867 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5868 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5869 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5870 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5871 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5872 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5873 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5874 Type *t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5875
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5876 if (!t1->isMutable() \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5877 (t1->ty == Tpointer && !t1->nextOf()->isMutable()) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5878 !var->type->isMutable() \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5879 !var->type->isAssignable() \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5880 var->storage_class & STCmanifest
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5881 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5882 error("cannot modify const/immutable expression %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5883 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5884 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5885 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5886 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5887
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5888 void DotVarExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5889 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5890 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5891 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5892 buf->writestring(var->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5893 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5894
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5895 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5896
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5897 /* Things like:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5898 * foo.bar!(args)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5899 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5900
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5901 DotTemplateInstanceExp::DotTemplateInstanceExp(Loc loc, Expression e, TemplateInstance ti)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5902 : UnaExp(loc, TOKdotti, sizeof(DotTemplateInstanceExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5903 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5904 //printf("DotTemplateInstanceExp()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5905 this->ti = ti;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5906 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5907
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5908 Expression *DotTemplateInstanceExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5909 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5910 DotTemplateInstanceExp *de = new DotTemplateInstanceExp(loc,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5911 e1->syntaxCopy(),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5912 (TemplateInstance *)ti->syntaxCopy(NULL));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5913 return de;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5914 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5915
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5916 Expression DotTemplateInstanceExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5917 { Dsymbol *s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5918 Dsymbol *s2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5919 TemplateDeclaration *td;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5920 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5921 Identifier *id;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5922 Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5923 Expression *eleft = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5924 Expression *eright;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5925
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5926 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5927 printf("DotTemplateInstanceExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5928 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5929 //e1->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5930 //print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5931 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5932 t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5933 if (t1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5934 t1 = t1->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5935 //t1->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5936
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5937 /* Extract the following from e1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5938 * s: the symbol which ti should be a member of
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5939 * eleft: if not NULL, it is the 'this' pointer for ti
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5940 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5941
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5942 if (e1->op == TOKdotexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5943 { DotExp de = (DotExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5944 eleft = de->e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5945 eright = de->e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5946 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5947 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5948 { eleft = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5949 eright = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5950 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5951 if (eright->op == TOKimport)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5952 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5953 s = ((ScopeExp *)eright)->sds;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5954 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5955 else if (e1->op == TOKtype)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5956 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5957 s = t1->isClassHandle();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5958 if (!s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5959 { if (t1->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5960 s = ((TypeStruct *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5961 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5962 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5963 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5964 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5965 else if (t1 && (t1->ty == Tstruct \|\| t1->ty == Tclass))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5966 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5967 s = t1->toDsymbol(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5968 eleft = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5969 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5970 else if (t1 && t1->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5971 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5972 t1 = ((TypePointer *)t1)->next->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5973 if (t1->ty != Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5974 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5975 s = t1->toDsymbol(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5976 eleft = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5977 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5978 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5979 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5980 L1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5981 error("template %s is not a member of %s", ti->toChars(), e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5982 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5983 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5984
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5985 assert(s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5986 id = ti->name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5987 s2 = s->search(loc, id, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5988 if (!s2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5989 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5990 if (!s->ident)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5991 error("template identifier %s is not a member of undefined %s", id->toChars(), s->kind());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5992 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5993 error("template identifier %s is not a member of %s %s", id->toChars(), s->kind(), s->ident->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5994 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5995 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5996 s = s2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5997 s->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5998 s = s->toAlias();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5999 td = s->isTemplateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6000 if (!td)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6001 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6002 error("%s is not a template", id->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6003 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6004 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6005 if (global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6006 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6007
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6008 ti->tempdecl = td;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6009
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6010 if (eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6011 { Declaration *v;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6012
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6013 ti->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6014 s = ti->inst->toAlias();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6015 v = s->isDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6016 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6017 { e = new DotVarExp(loc, eleft, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6018 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6019 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6020 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6021 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6022
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6023 e = new ScopeExp(loc, ti);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6024 if (eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6025 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6026 e = new DotExp(loc, eleft, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6027 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6028 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6029 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6030
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6031 Lerr:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6032 return new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6033 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6034
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6035 void DotTemplateInstanceExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6036 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6037 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6038 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6039 ti->toCBuffer(buf, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6040 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6041
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6042 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6043
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6044 DelegateExp::DelegateExp(Loc loc, Expression e, FuncDeclaration f, int hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6045 : UnaExp(loc, TOKdelegate, sizeof(DelegateExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6046 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6047 this->func = f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6048 this->hasOverloads = hasOverloads;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6049 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6050
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6051 Expression DelegateExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6052 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6053 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6054 printf("DelegateExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6055 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6056 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6057 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6058 m = sc->module;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6059 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6060 // LDC we need a copy as we store the LLVM tpye in TypeFunction, and delegate/members have different types for 'this'
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6061 type = new TypeDelegate(func->type->syntaxCopy());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6062 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6063 AggregateDeclaration *ad = func->toParent()->isAggregateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6064 if (func->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6065 e1 = getRightThis(loc, sc, ad, e1, func);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6066 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6067 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6068 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6069
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6070 void DelegateExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6071 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6072 buf->writeByte('&');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6073 if (!func->isNested())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6074 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6075 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6076 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6077 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6078 buf->writestring(func->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6079 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6080
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6081 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6082
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6083 DotTypeExp::DotTypeExp(Loc loc, Expression e, Dsymbol s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6084 : UnaExp(loc, TOKdottype, sizeof(DotTypeExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6085 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6086 this->sym = s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6087 this->type = s->getType();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6088 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6089
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6090 Expression DotTypeExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6091 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6092 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6093 printf("DotTypeExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6094 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6095 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6096 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6097 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6098
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6099 void DotTypeExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6100 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6101 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6102 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6103 buf->writestring(sym->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6104 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6105
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6106 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6107
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6108 CallExp::CallExp(Loc loc, Expression e, Expressions exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6109 : UnaExp(loc, TOKcall, sizeof(CallExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6110 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6111 this->arguments = exps;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6112 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6113
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6114 CallExp::CallExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6115 : UnaExp(loc, TOKcall, sizeof(CallExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6116 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6117 this->arguments = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6118 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6119
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6120 CallExp::CallExp(Loc loc, Expression e, Expression earg1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6121 : UnaExp(loc, TOKcall, sizeof(CallExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6122 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6123 Expressions *arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6124 arguments->setDim(1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6125 arguments->data[0] = (void *)earg1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6126
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6127 this->arguments = arguments;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6128 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6129
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6130 CallExp::CallExp(Loc loc, Expression e, Expression earg1, Expression *earg2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6131 : UnaExp(loc, TOKcall, sizeof(CallExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6132 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6133 Expressions *arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6134 arguments->setDim(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6135 arguments->data[0] = (void *)earg1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6136 arguments->data[1] = (void *)earg2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6137
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6138 this->arguments = arguments;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6139 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6140
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6141 Expression *CallExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6142 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6143 return new CallExp(loc, e1->syntaxCopy(), arraySyntaxCopy(arguments));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6144 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6145
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6146
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6147 Expression CallExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6148 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6149 TypeFunction *tf;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6150 FuncDeclaration *f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6151 int i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6152 Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6153 int istemp;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6154 Objects *targsi = NULL; // initial list of template arguments
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6155 TemplateInstance *tierror = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6156
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6157 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6158 printf("CallExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6159 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6160 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6161 return this; // semantic() already run
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6162 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6163 if (arguments && arguments->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6164 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6165 Expression earg = (Expression )arguments->data[0];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6166 earg->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6167 if (earg->type) earg->type->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6168 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6169 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6170
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6171 if (e1->op == TOKdelegate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6172 { DelegateExp de = (DelegateExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6173
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6174 e1 = new DotVarExp(de->loc, de->e1, de->func);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6175 return semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6176 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6177
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6178 /* Transform:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6179 * array.id(args) into .id(array,args)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6180 * aa.remove(arg) into delete aa[arg]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6181 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6182 if (e1->op == TOKdot)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6183 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6184 // BUG: we should handle array.a.b.c.e(args) too
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6185
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6186 DotIdExp dotid = (DotIdExp )(e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6187 dotid->e1 = dotid->e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6188 assert(dotid->e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6189 if (dotid->e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6190 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6191 TY e1ty = dotid->e1->type->toBasetype()->ty;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6192 if (e1ty == Taarray && dotid->ident == Id::remove)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6193 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6194 if (!arguments \|\| arguments->dim != 1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6195 { error("expected key as argument to aa.remove()");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6196 goto Lagain;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6197 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6198 Expression key = (Expression )arguments->data[0];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6199 key = key->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6200 key = resolveProperties(sc, key);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6201 key->rvalue();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6202
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6203 TypeAArray taa = (TypeAArray )dotid->e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6204 key = key->implicitCastTo(sc, taa->index);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6205
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6206 return new RemoveExp(loc, dotid->e1, key);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6207 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6208 else if (e1ty == Tarray \|\| e1ty == Tsarray \|\| e1ty == Taarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6209 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6210 if (!arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6211 arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6212 arguments->shift(dotid->e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6213 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6214 e1 = new DotIdExp(dotid->loc, new IdentifierExp(dotid->loc, Id::empty), dotid->ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6215 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6216 e1 = new IdentifierExp(dotid->loc, dotid->ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6217 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6218 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6219 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6220 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6221
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6222 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6223 /* This recognizes:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6224 * foo!(tiargs)(funcargs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6225 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6226 if (e1->op == TOKimport && !e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6227 { ScopeExp se = (ScopeExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6228 TemplateInstance *ti = se->sds->isTemplateInstance();
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6229 if (ti && !ti->semanticRun)
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6230 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6231 /* Attempt to instantiate ti. If that works, go with it.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6232 * If not, go with partial explicit specialization.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6233 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6234 ti->semanticTiargs(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6235 unsigned errors = global.errors;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6236 global.gag++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6237 ti->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6238 global.gag--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6239 if (errors != global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6240 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6241 /* Didn't work, go with partial explicit specialization
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6242 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6243 global.errors = errors;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6244 targsi = ti->tiargs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6245 tierror = ti; // for error reporting
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6246 e1 = new IdentifierExp(loc, ti->name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6247 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6248 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6249 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6250
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6251 /* This recognizes:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6252 * expr.foo!(tiargs)(funcargs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6253 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6254 if (e1->op == TOKdotti && !e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6255 { DotTemplateInstanceExp se = (DotTemplateInstanceExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6256 TemplateInstance *ti = se->ti;
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6257 if (!ti->semanticRun)
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6258 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6259 /* Attempt to instantiate ti. If that works, go with it.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6260 * If not, go with partial explicit specialization.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6261 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6262 ti->semanticTiargs(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6263 Expression *etmp = e1->trySemantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6264 if (etmp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6265 e1 = etmp; // it worked
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6266 else // didn't work
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6267 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6268 targsi = ti->tiargs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6269 tierror = ti; // for error reporting
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6270 e1 = new DotIdExp(loc, se->e1, ti->name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6271 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6272 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6273 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6274 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6275
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6276 istemp = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6277 Lagain:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6278 //printf("Lagain: %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6279 f = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6280 if (e1->op == TOKthis \|\| e1->op == TOKsuper)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6281 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6282 // semantic() run later for these
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6283 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6284 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6285 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6286 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6287
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6288 /* Look for e1 being a lazy parameter
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6289 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6290 if (e1->op == TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6291 { VarExp ve = (VarExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6292
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6293 if (ve->var->storage_class & STClazy)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6294 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6295 TypeFunction *tf = new TypeFunction(NULL, ve->var->type, 0, LINKd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6296 TypeDelegate *t = new TypeDelegate(tf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6297 ve->type = t->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6298 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6299 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6300
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6301 if (e1->op == TOKimport)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6302 { // Perhaps this should be moved to ScopeExp::semantic()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6303 ScopeExp se = (ScopeExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6304 e1 = new DsymbolExp(loc, se->sds);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6305 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6306 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6307 #if 1 // patch for #540 by Oskar Linde
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6308 else if (e1->op == TOKdotexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6309 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6310 DotExp de = (DotExp ) e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6311
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6312 if (de->e2->op == TOKimport)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6313 { // This should really be moved to ScopeExp::semantic()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6314 ScopeExp se = (ScopeExp )de->e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6315 de->e2 = new DsymbolExp(loc, se->sds);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6316 de->e2 = de->e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6317 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6318
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6319 if (de->e2->op == TOKtemplate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6320 { TemplateExp te = (TemplateExp ) de->e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6321 e1 = new DotTemplateExp(loc,de->e1,te->td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6322 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6323 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6324 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6325 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6326
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6327 if (e1->op == TOKcomma)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6328 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6329 CommaExp ce = (CommaExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6330
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6331 e1 = ce->e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6332 e1->type = ce->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6333 ce->e2 = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6334 ce->type = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6335 return ce->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6336 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6337
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6338 t1 = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6339 if (e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6340 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6341
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6342 // Check for call operator overload
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6343 if (t1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6344 { AggregateDeclaration *ad;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6345
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6346 if (t1->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6347 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6348 ad = ((TypeStruct *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6349
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6350 // First look for constructor
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6351 if (ad->ctor && arguments && arguments->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6352 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6353 // Create variable that will get constructed
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6354 Identifier *idtmp = Lexer::uniqueId("__ctmp");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6355 VarDeclaration *tmp = new VarDeclaration(loc, t1, idtmp, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6356 Expression *av = new DeclarationExp(loc, tmp);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6357 av = new CommaExp(loc, av, new VarExp(loc, tmp));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6358
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6359 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6360 CtorDeclaration *cf = ad->ctor->isCtorDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6361 if (cf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6362 e = new DotVarExp(loc, av, cf, 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6363 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6364 { TemplateDeclaration *td = ad->ctor->isTemplateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6365 assert(td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6366 e = new DotTemplateExp(loc, av, td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6367 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6368 e = new CallExp(loc, e, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6369 #if !STRUCTTHISREF
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6370 /* Constructors return a pointer to the instance
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6371 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6372 e = new PtrExp(loc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6373 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6374 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6375 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6376 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6377
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6378 // No constructor, look for overload of opCall
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6379 if (search_function(ad, Id::call))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6380 goto L1; // overload of opCall, therefore it's a call
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6381
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6382 if (e1->op != TOKtype)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6383 error("%s %s does not overload ()", ad->kind(), ad->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6384 /* It's a struct literal
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6385 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6386 Expression e = new StructLiteralExp(loc, (StructDeclaration )ad, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6387 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6388 e->type = e1->type; // in case e1->type was a typedef
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6389 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6390 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6391 else if (t1->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6392 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6393 ad = ((TypeClass *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6394 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6395 L1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6396 // Rewrite as e1.call(arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6397 Expression *e = new DotIdExp(loc, e1, Id::call);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6398 e = new CallExp(loc, e, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6399 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6400 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6401 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6402 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6403
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6404 arrayExpressionSemantic(arguments, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6405 preFunctionArguments(loc, sc, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6406
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6407 if (e1->op == TOKdotvar && t1->ty == Tfunction \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6408 e1->op == TOKdottd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6409 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6410 DotVarExp *dve;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6411 DotTemplateExp *dte;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6412 AggregateDeclaration *ad;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6413 UnaExp ue = (UnaExp )(e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6414
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6415 if (e1->op == TOKdotvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6416 { // Do overload resolution
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6417 dve = (DotVarExp *)(e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6418
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6419 f = dve->var->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6420 assert(f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6421 f = f->overloadResolve(loc, ue->e1, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6422
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6423 ad = f->toParent()->isAggregateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6424 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6425 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6426 { dte = (DotTemplateExp *)(e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6427 TemplateDeclaration *td = dte->td;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6428 assert(td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6429 if (!arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6430 // Should fix deduceFunctionTemplate() so it works on NULL argument
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6431 arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6432 f = td->deduceFunctionTemplate(sc, loc, targsi, ue->e1, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6433 if (!f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6434 { type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6435 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6436 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6437 ad = td->toParent()->isAggregateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6438 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6439 if (f->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6440 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6441 ue->e1 = getRightThis(loc, sc, ad, ue->e1, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6442 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6443
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6444 /* Cannot call public functions from inside invariant
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6445 * (because then the invariant would have infinite recursion)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6446 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6447 if (sc->func && sc->func->isInvariantDeclaration() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6448 ue->e1->op == TOKthis &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6449 f->addPostInvariant()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6450 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6451 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6452 error("cannot call public/export function %s from immutable", f->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6453 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6454
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6455 checkDeprecated(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6456 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6457 checkPurity(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6458 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6459 accessCheck(loc, sc, ue->e1, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6460 if (!f->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6461 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6462 VarExp *ve = new VarExp(loc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6463 e1 = new CommaExp(loc, ue->e1, ve);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6464 e1->type = f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6465 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6466 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6467 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6468 if (e1->op == TOKdotvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6469 dve->var = f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6470 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6471 e1 = new DotVarExp(loc, dte->e1, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6472 e1->type = f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6473 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6474 printf("ue->e1 = %s\n", ue->e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6475 printf("f = %s\n", f->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6476 printf("t = %s\n", t->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6477 printf("e1 = %s\n", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6478 printf("e1->type = %s\n", e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6479 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6480 // Const member function can take const/immutable/mutable this
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6481 if (!(f->type->isConst()))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6482 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6483 // Check for const/immutable compatibility
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6484 Type *tthis = ue->e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6485 if (tthis->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6486 tthis = tthis->nextOf()->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6487 if (f->type->isInvariant())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6488 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6489 if (tthis->mod != MODinvariant)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6490 error("%s can only be called on an invariant object", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6491 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6492 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6493 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6494 if (tthis->mod != 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6495 { //printf("mod = %x\n", tthis->mod);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6496 error("%s can only be called on a mutable object, not %s", e1->toChars(), tthis->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6497 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6498 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6499
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6500 /* Cannot call mutable method on a final struct
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6501 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6502 if (tthis->ty == Tstruct &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6503 ue->e1->op == TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6504 { VarExp v = (VarExp )ue->e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6505 if (v->var->storage_class & STCfinal)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6506 error("cannot call mutable method on final struct");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6507 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6508 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6509
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6510 // See if we need to adjust the 'this' pointer
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6511 AggregateDeclaration *ad = f->isThis();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6512 ClassDeclaration *cd = ue->e1->type->isClassHandle();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6513 if (ad && cd && ad->isClassDeclaration() && ad != cd &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6514 ue->e1->op != TOKsuper)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6515 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6516 ue->e1 = ue->e1->castTo(sc, ad->type); //new CastExp(loc, ue->e1, ad->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6517 ue->e1 = ue->e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6518 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6519 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6520 t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6521 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6522 else if (e1->op == TOKsuper)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6523 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6524 // Base class constructor call
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6525 ClassDeclaration *cd = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6526
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6527 if (sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6528 cd = sc->func->toParent()->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6529 if (!cd \|\| !cd->baseClass \|\| !sc->func->isCtorDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6530 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6531 error("super class constructor call must be in a constructor");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6532 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6533 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6534 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6535 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6536 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6537 if (!cd->baseClass->ctor)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6538 { error("no super class constructor for %s", cd->baseClass->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6539 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6540 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6541 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6542 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6543 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6544 if (!sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6545 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6546 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6547 if (sc->callSuper & (CSXthis \| CSXsuper))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6548 error("reference to this before super()");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6549 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6550 if (sc->noctor \|\| sc->callSuper & CSXlabel)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6551 error("constructor calls not allowed in loops or after labels");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6552 if (sc->callSuper & (CSXsuper_ctor \| CSXthis_ctor))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6553 error("multiple constructor calls");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6554 sc->callSuper \|= CSXany_ctor \| CSXsuper_ctor;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6555 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6556
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6557 f = resolveFuncCall(sc, loc, cd->baseClass->ctor, NULL, NULL, arguments, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6558 checkDeprecated(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6559 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6560 checkPurity(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6561 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6562 e1 = new DotVarExp(e1->loc, e1, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6563 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6564 t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6565 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6566 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6567 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6568 else if (e1->op == TOKthis)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6569 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6570 // same class constructor call
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6571 AggregateDeclaration *cd = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6572
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6573 if (sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6574 cd = sc->func->toParent()->isAggregateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6575 if (!cd \|\| !sc->func->isCtorDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6576 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6577 error("constructor call must be in a constructor");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6578 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6579 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6580 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6581 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6582 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6583 if (!sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6584 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6585 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6586 if (sc->callSuper & (CSXthis \| CSXsuper))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6587 error("reference to this before super()");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6588 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6589 if (sc->noctor \|\| sc->callSuper & CSXlabel)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6590 error("constructor calls not allowed in loops or after labels");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6591 if (sc->callSuper & (CSXsuper_ctor \| CSXthis_ctor))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6592 error("multiple constructor calls");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6593 sc->callSuper \|= CSXany_ctor \| CSXthis_ctor;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6594 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6595
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6596 f = resolveFuncCall(sc, loc, cd->ctor, NULL, NULL, arguments, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6597 checkDeprecated(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6598 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6599 checkPurity(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6600 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6601 e1 = new DotVarExp(e1->loc, e1, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6602 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6603 t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6604
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6605 // BUG: this should really be done by checking the static
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6606 // call graph
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6607 if (f == sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6608 error("cyclic constructor call");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6609 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6610 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6611 else if (e1->op == TOKoverloadset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6612 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6613 OverExp eo = (OverExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6614 FuncDeclaration *f = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6615 for (int i = 0; i < eo->vars->a.dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6616 { Dsymbol s = (Dsymbol )eo->vars->a.data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6617 FuncDeclaration *f2 = s->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6618 if (f2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6619 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6620 f2 = f2->overloadResolve(loc, NULL, arguments, 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6621 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6622 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6623 { TemplateDeclaration *td = s->isTemplateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6624 assert(td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6625 f2 = td->deduceFunctionTemplate(sc, loc, targsi, NULL, arguments, 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6626 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6627 if (f2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6628 { if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6629 /* Error if match in more than one overload set,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6630 * even if one is a 'better' match than the other.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6631 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6632 ScopeDsymbol::multiplyDefined(loc, f, f2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6633 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6634 f = f2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6635 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6636 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6637 if (!f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6638 { /* No overload matches, just set f and rely on error
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6639 * message being generated later.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6640 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6641 f = (FuncDeclaration *)eo->vars->a.data[0];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6642 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6643 e1 = new VarExp(loc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6644 goto Lagain;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6645 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6646 else if (!t1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6647 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6648 error("function expected before (), not '%s'", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6649 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6650 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6651 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6652 else if (t1->ty != Tfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6653 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6654 if (t1->ty == Tdelegate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6655 { TypeDelegate td = (TypeDelegate )t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6656 assert(td->next->ty == Tfunction);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6657 tf = (TypeFunction *)(td->next);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6658 if (sc->func && sc->func->isPure() && !tf->ispure)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6659 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6660 error("pure function '%s' cannot call impure delegate '%s'", sc->func->toChars(), e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6661 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6662 goto Lcheckargs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6663 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6664 else if (t1->ty == Tpointer && ((TypePointer *)t1)->next->ty == Tfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6665 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6666
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6667 e = new PtrExp(loc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6668 t1 = ((TypePointer *)t1)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6669 if (sc->func && sc->func->isPure() && !((TypeFunction *)t1)->ispure)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6670 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6671 error("pure function '%s' cannot call impure function pointer '%s'", sc->func->toChars(), e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6672 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6673 e->type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6674 e1 = e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6675 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6676 else if (e1->op == TOKtemplate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6677 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6678 TemplateExp te = (TemplateExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6679 f = te->td->deduceFunctionTemplate(sc, loc, targsi, NULL, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6680 if (!f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6681 { if (tierror)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6682 tierror->error("errors instantiating template"); // give better error message
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6683 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6684 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6685 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6686 if (f->needThis() && hasThis(sc))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6687 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6688 // Supply an implicit 'this', as in
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6689 // this.ident
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6690
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6691 e1 = new DotTemplateExp(loc, (new ThisExp(loc))->semantic(sc), te->td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6692 goto Lagain;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6693 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6694
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6695 e1 = new VarExp(loc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6696 goto Lagain;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6697 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6698 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6699 { error("function expected before (), not %s of type %s", e1->toChars(), e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6700 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6701 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6702 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6703 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6704 else if (e1->op == TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6705 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6706 // Do overload resolution
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6707 VarExp ve = (VarExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6708
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6709 f = ve->var->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6710 assert(f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6711
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6712 if (ve->hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6713 f = f->overloadResolve(loc, NULL, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6714 checkDeprecated(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6715 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6716 checkPurity(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6717 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6718
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6719 if (f->needThis() && hasThis(sc))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6720 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6721 // Supply an implicit 'this', as in
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6722 // this.ident
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6723
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6724 e1 = new DotVarExp(loc, new ThisExp(loc), f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6725 goto Lagain;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6726 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6727
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6728 accessCheck(loc, sc, NULL, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6729
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6730 ve->var = f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6731 // ve->hasOverloads = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6732 ve->type = f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6733 t1 = f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6734 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6735 assert(t1->ty == Tfunction);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6736 tf = (TypeFunction *)(t1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6737
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6738 Lcheckargs:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6739 assert(tf->ty == Tfunction);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6740 type = tf->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6741
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6742 if (!arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6743 arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6744 functionArguments(loc, sc, tf, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6745
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6746 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6747 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6748 error("forward reference to inferred return type of function call %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6749 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6750 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6751
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6752 if (f && f->tintro)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6753 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6754 Type *t = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6755 int offset = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6756 TypeFunction tf = (TypeFunction )f->tintro;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6757
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6758 if (tf->next->isBaseOf(t, &offset) && offset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6759 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6760 type = tf->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6761 return castTo(sc, t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6762 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6763 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6764
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6765 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6766 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6767
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6768 int CallExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6769 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6770 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6771 if (flag != 2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6772 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6773
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6774 if (e1->checkSideEffect(2))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6775 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6776
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6777 /* If any of the arguments have side effects, this expression does
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6778 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6779 for (size_t i = 0; i < arguments->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6780 { Expression e = (Expression )arguments->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6781
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6782 if (e->checkSideEffect(2))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6783 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6784 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6785
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6786 /* If calling a function or delegate that is typed as pure,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6787 * then this expression has no side effects.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6788 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6789 Type *t = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6790 if (t->ty == Tfunction && ((TypeFunction *)t)->ispure)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6791 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6792 if (t->ty == Tdelegate && ((TypeFunction )((TypeDelegate )t)->next)->ispure)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6793 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6794 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6795 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6796 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6797
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6798 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6799 int CallExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6800 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6801 //printf("CallExp::canThrow() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6802 if (e1->canThrow())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6803 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6804
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6805 /* If any of the arguments can throw, then this expression can throw
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6806 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6807 for (size_t i = 0; i < arguments->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6808 { Expression e = (Expression )arguments->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6809
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6810 if (e && e->canThrow())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6811 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6812 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6813
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6814 if (global.errors && !e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6815 return 0; // error recovery
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6816
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6817 /* If calling a function or delegate that is typed as nothrow,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6818 * then this expression cannot throw.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6819 * Note that pure functions can throw.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6820 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6821 Type *t = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6822 if (t->ty == Tfunction && ((TypeFunction *)t)->isnothrow)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6823 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6824 if (t->ty == Tdelegate && ((TypeFunction )((TypeDelegate )t)->next)->isnothrow)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6825 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6826
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6827 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6828 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6829 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6830
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6831 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6832 int CallExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6833 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6834 // if (type->toBasetype()->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6835 // return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6836 Type *tb = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6837 if (tb->ty == Tfunction && ((TypeFunction *)tb)->isref)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6838 return 1; // function returns a reference
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6839 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6840 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6841 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6842
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6843 Expression CallExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6844 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6845 if (isLvalue())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6846 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6847 return Expression::toLvalue(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6848 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6849
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6850 void CallExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6851 { int i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6852
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6853 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6854 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6855 argsToCBuffer(buf, arguments, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6856 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6857 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6858
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6859
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6860 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6861
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6862 AddrExp::AddrExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6863 : UnaExp(loc, TOKaddress, sizeof(AddrExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6864 {
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6865 #if IN_LLVM
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6866 m = NULL;
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6867 #endif
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6868 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6869
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6870 Expression AddrExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6871 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6872 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6873 printf("AddrExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6874 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6875 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6876 {
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6877 #if IN_LLVM
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6878 m = sc->module;
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6879 #endif
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6880 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6881 e1 = e1->toLvalue(sc, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6882 if (!e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6883 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6884 error("cannot take address of %s", e1->toChars());
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6885 return new ErrorExp();
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6886 }
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6887 if (!e1->type->deco)
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6888 {
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6889 /* No deco means semantic() was not run on the type.
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6890 * We have to run semantic() on the symbol to get the right type:
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6891 * auto x = &bar;
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6892 * pure: int bar() { return 1;}
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6893 * otherwise the 'pure' is missing from the type assigned to x.
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6894 */
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6895
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6896 error("forward reference to %s", e1->toChars());
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6897 return new ErrorExp();
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6898 }
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6899
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6900 //printf("test3 deco = %p\n", e1->type->deco);
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6901 type = e1->type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6902
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6903 // See if this should really be a delegate
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6904 if (e1->op == TOKdotvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6905 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6906 DotVarExp dve = (DotVarExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6907 FuncDeclaration *f = dve->var->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6908
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6909 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6910 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6911 if (!dve->hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6912 f->tookAddressOf++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6913 Expression *e = new DelegateExp(loc, dve->e1, f, dve->hasOverloads);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6914 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6915 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6916 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6917 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6918 else if (e1->op == TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6919 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6920 VarExp ve = (VarExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6921
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6922 VarDeclaration *v = ve->var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6923 if (v && !v->canTakeAddressOf())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6924 error("cannot take address of %s", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6925
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6926 FuncDeclaration *f = ve->var->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6927
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6928 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6929 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6930 if (!ve->hasOverloads \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6931 /* Because nested functions cannot be overloaded,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6932 * mark here that we took its address because castTo()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6933 * may not be called with an exact match.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6934 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6935 f->toParent2()->isFuncDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6936 f->tookAddressOf++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6937 if (f->isNested())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6938 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6939 Expression *e = new DelegateExp(loc, e1, f, ve->hasOverloads);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6940 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6941 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6942 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6943 if (f->needThis() && hasThis(sc))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6944 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6945 /* Should probably supply 'this' after overload resolution,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6946 * not before.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6947 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6948 Expression *ethis = new ThisExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6949 Expression *e = new DelegateExp(loc, ethis, f, ve->hasOverloads);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6950 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6951 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6952 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6953 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6954 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6955 return optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6956 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6957 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6958 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6959
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6960 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6961
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6962 PtrExp::PtrExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6963 : UnaExp(loc, TOKstar, sizeof(PtrExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6964 {
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6965 // if (e->type)
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6966 // type = ((TypePointer *)e->type)->next;
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6967 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6968
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6969 PtrExp::PtrExp(Loc loc, Expression e, Type t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6970 : UnaExp(loc, TOKstar, sizeof(PtrExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6971 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6972 type = t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6973 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6974
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6975 Expression PtrExp::semantic(Scope sc)
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6976 {
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6977 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6978 printf("PtrExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6979 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6980 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6981 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6982 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6983 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6984 if (!e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6985 printf("PtrExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6986 Expression *e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6987 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6988 return e;
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	6989 Type *tb = e1->type->toBasetype();
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6990 switch (tb->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6991 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6992 case Tpointer:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6993 type = ((TypePointer *)tb)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6994 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6995
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6996 case Tsarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6997 case Tarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6998 type = ((TypeArray *)tb)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6999 e1 = e1->castTo(sc, type->pointerTo());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7000 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7001
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7002 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7003 error("can only * a pointer, not a '%s'", e1->type->toChars());
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	7004 return new ErrorExp();
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7005 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7006 rvalue();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7007 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7008 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7009 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7010
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7011 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7012 int PtrExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7013 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7014 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7015 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7016 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7017
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7018 Expression PtrExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7019 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7020 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7021 tym = tybasic(e1->ET->Tty);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7022 if (!(tyscalar(tym) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7023 tym == TYstruct \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7024 tym == TYarray && e->Eoper == TOKaddr))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7025 synerr(EM_lvalue); // lvalue expected
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7026 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7027 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7028 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7029
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7030 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7031 Expression PtrExp::modifiableLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7032 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7033 //printf("PtrExp::modifiableLvalue() %s, type %s\n", toChars(), type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7034
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7035 if (e1->op == TOKsymoff)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7036 { SymOffExp se = (SymOffExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7037 se->var->checkModify(loc, sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7038 //return toLvalue(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7039 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7040
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7041 return Expression::modifiableLvalue(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7042 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7043 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7044
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7045 void PtrExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7046 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7047 buf->writeByte('*');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7048 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7049 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7050
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7051 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7052
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7053 NegExp::NegExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7054 : UnaExp(loc, TOKneg, sizeof(NegExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7055 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7056 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7057
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7058 Expression NegExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7059 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7060
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7061 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7062 printf("NegExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7063 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7064 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7065 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7066 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7067 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7068 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7069 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7070 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7071
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7072 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7073 if (e1->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7074 e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7075 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7076 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7077 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7078 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7079
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7080 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7081
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7082 UAddExp::UAddExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7083 : UnaExp(loc, TOKuadd, sizeof(UAddExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7084 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7085 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7086
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7087 Expression UAddExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7088 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7089
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7090 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7091 printf("UAddExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7092 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7093 assert(!type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7094 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7095 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7096 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7097 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7098 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7099 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7100 e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7101 return e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7102 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7103
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7104 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7105
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7106 ComExp::ComExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7107 : UnaExp(loc, TOKtilde, sizeof(ComExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7108 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7109 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7110
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7111 Expression ComExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7112 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7113
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7114 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7115 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7116 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7117 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7118 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7119 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7120 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7121
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7122 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7123 if (e1->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7124 e1 = e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7125 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7126 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7127 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7128 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7129
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7130 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7131
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7132 NotExp::NotExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7133 : UnaExp(loc, TOKnot, sizeof(NotExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7134 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7135 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7136
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7137 Expression NotExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7138 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7139 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7140 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7141 e1 = e1->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7142 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7143 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7144 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7145
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7146 int NotExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7147 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7148 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7149 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7150
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7151
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7152
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7153 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7154
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7155 BoolExp::BoolExp(Loc loc, Expression e, Type t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7156 : UnaExp(loc, TOKtobool, sizeof(BoolExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7157 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7158 type = t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7159 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7160
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7161 Expression BoolExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7162 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7163 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7164 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7165 e1 = e1->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7166 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7167 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7168 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7169
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7170 int BoolExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7171 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7172 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7173 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7174
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7175 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7176
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7177 DeleteExp::DeleteExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7178 : UnaExp(loc, TOKdelete, sizeof(DeleteExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7179 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7180 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7181
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7182 Expression DeleteExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7183 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7184 Type *tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7185
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7186 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7187 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7188 e1 = e1->toLvalue(sc, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7189 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7190
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7191 tb = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7192 switch (tb->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7193 { case Tclass:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7194 { TypeClass tc = (TypeClass )tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7195 ClassDeclaration *cd = tc->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7196
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7197 if (cd->isCOMinterface())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7198 { /* Because COM classes are deleted by IUnknown.Release()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7199 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7200 error("cannot delete instance of COM interface %s", cd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7201 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7202 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7203 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7204 case Tpointer:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7205 tb = ((TypePointer *)tb)->next->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7206 if (tb->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7207 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7208 TypeStruct ts = (TypeStruct )tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7209 StructDeclaration *sd = ts->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7210 FuncDeclaration *f = sd->aggDelete;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7211 FuncDeclaration *fd = sd->dtor;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7212
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7213 if (!f && !fd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7214 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7215
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7216 /* Construct:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7217 * ea = copy e1 to a tmp to do side effects only once
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7218 * eb = call destructor
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7219 * ec = call deallocator
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7220 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7221 Expression *ea = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7222 Expression *eb = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7223 Expression *ec = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7224 VarDeclaration *v;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7225
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7226 if (fd && f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7227 { Identifier *id = Lexer::idPool("__tmp");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7228 v = new VarDeclaration(loc, e1->type, id, new ExpInitializer(loc, e1));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7229 v->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7230 v->parent = sc->parent;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7231 ea = new DeclarationExp(loc, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7232 ea->type = v->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7233 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7234
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7235 if (fd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7236 { Expression *e = ea ? new VarExp(loc, v) : e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7237 e = new DotVarExp(0, e, fd, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7238 eb = new CallExp(loc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7239 eb = eb->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7240 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7241
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7242 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7243 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7244 Type *tpv = Type::tvoid->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7245 Expression *e = ea ? new VarExp(loc, v) : e1->castTo(sc, tpv);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7246 e = new CallExp(loc, new VarExp(loc, f), e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7247 ec = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7248 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7249 ea = combine(ea, eb);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7250 ea = combine(ea, ec);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7251 assert(ea);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7252 return ea;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7253 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7254 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7255
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7256 case Tarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7257 /* BUG: look for deleting arrays of structs with dtors.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7258 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7259 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7260
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7261 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7262 if (e1->op == TOKindex)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7263 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7264 IndexExp ae = (IndexExp )(e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7265 Type *tb1 = ae->e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7266 if (tb1->ty == Taarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7267 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7268 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7269 error("cannot delete type %s", e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7270 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7271 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7272
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7273 if (e1->op == TOKindex)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7274 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7275 IndexExp ae = (IndexExp )(e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7276 Type *tb1 = ae->e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7277 if (tb1->ty == Taarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7278 { if (!global.params.useDeprecated)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7279 error("delete aa[key] deprecated, use aa.remove(key)");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7280 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7281 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7282
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7283 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7284 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7285
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7286 int DeleteExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7287 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7288 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7289 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7290
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7291 Expression *DeleteExp::checkToBoolean()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7292 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7293 error("delete does not give a boolean result");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7294 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7295 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7296
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7297 void DeleteExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7298 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7299 buf->writestring("delete ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7300 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7301 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7302
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7303 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7304
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7305 CastExp::CastExp(Loc loc, Expression e, Type t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7306 : UnaExp(loc, TOKcast, sizeof(CastExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7307 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7308 to = t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7309 this->mod = ~0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7310 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7311
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7312 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7313 /* For cast(const) and cast(immutable)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7314 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7315 CastExp::CastExp(Loc loc, Expression *e, unsigned mod)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7316 : UnaExp(loc, TOKcast, sizeof(CastExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7317 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7318 to = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7319 this->mod = mod;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7320 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7321 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7322
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7323 Expression *CastExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7324 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7325 return to ? new CastExp(loc, e1->syntaxCopy(), to->syntaxCopy())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7326 : new CastExp(loc, e1->syntaxCopy(), mod);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7327 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7328
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7329
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7330 Expression CastExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7331 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7332 BinExp *b;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7333 UnaExp *u;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7334
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7335 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7336 printf("CastExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7337 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7338
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7339 //static int x; assert(++x < 10);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7340
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7341 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7342 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7343 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7344 if (e1->type) // if not a tuple
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7345 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7346 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7347
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7348 if (!to)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7349 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7350 /* Handle cast(const) and cast(immutable), etc.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7351 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7352 to = e1->type->castMod(mod);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7353 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7354 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7355 to = to->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7356
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7357 if (!to->equals(e1->type))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7358 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7359 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7360 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7361 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7362 return e->implicitCastTo(sc, to);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7363 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7364 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7365
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7366 Type *t1b = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7367 Type *tob = to->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7368 if (tob->ty == Tstruct &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7369 !tob->equals(t1b) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7370 ((TypeStruct *)tob)->sym->search(0, Id::call, 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7371 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7372 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7373 /* Look to replace:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7374 * cast(S)t
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7375 * with:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7376 * S(t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7377 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7378
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7379 // Rewrite as to.call(e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7380 e = new TypeExp(loc, to);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7381 e = new DotIdExp(loc, e, Id::call);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7382 e = new CallExp(loc, e, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7383 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7384 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7385 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7386 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7387 else if (!to)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7388 { error("cannot cast tuple");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7389 to = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7390 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7391
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7392 if (global.params.safe && !sc->module->safe && !sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7393 { // Disallow unsafe casts
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7394 Type *tob = to->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7395 Type *t1b = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7396 if (!t1b->isMutable() && tob->isMutable())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7397 { // Cast not mutable to mutable
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7398 Lunsafe:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7399 error("cast from %s to %s not allowed in safe mode", e1->type->toChars(), to->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7400 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7401 else if (t1b->isShared() && !tob->isShared())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7402 // Cast away shared
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7403 goto Lunsafe;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7404 else if (tob->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7405 { if (t1b->ty != Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7406 goto Lunsafe;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7407 Type *tobn = tob->nextOf()->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7408 Type *t1bn = t1b->nextOf()->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7409
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7410 if (!t1bn->isMutable() && tobn->isMutable())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7411 // Cast away pointer to not mutable
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7412 goto Lunsafe;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7413
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7414 if (t1bn->isShared() && !tobn->isShared())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7415 // Cast away pointer to shared
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7416 goto Lunsafe;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7417
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7418 if (tobn->isTypeBasic() && tobn->size() < t1bn->size())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7419 // Allow things like casting a long* to an int*
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7420 ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7421 else if (tobn->ty != Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7422 // Cast to a pointer other than void*
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7423 goto Lunsafe;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7424 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7425
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7426 // BUG: Check for casting array types, such as void[] to int*[]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7427 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7428
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7429 e = e1->castTo(sc, to);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7430 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7431 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7432
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7433 int CastExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7434 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7435 /* if not:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7436 * cast(void)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7437 * cast(classtype)func()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7438 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7439 if (!to->equals(Type::tvoid) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7440 !(to->ty == Tclass && e1->op == TOKcall && e1->type->ty == Tclass))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7441 return Expression::checkSideEffect(flag);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7442 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7443 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7444
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7445 void CastExp::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7446 { Type *tb = type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7447 if (tb->ty == Tarray && e1->op == TOKvar &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7448 e1->type->toBasetype()->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7449 { VarExp ve = (VarExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7450 VarDeclaration *v = ve->var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7451 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7452 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7453 if (!v->isDataseg() && !v->isParameter())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7454 error("escaping reference to local %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7455 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7456 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7457 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7458
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7459 void CastExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7460 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7461 buf->writestring("cast(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7462 #if DMDV1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7463 to->toCBuffer(buf, NULL, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7464 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7465 if (to)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7466 to->toCBuffer(buf, NULL, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7467 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7468 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7469 switch (mod)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7470 { case 0:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7471 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7472 case MODconst:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7473 buf->writestring(Token::tochars[TOKconst]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7474 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7475 case MODinvariant:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7476 buf->writestring(Token::tochars[TOKimmutable]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7477 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7478 case MODshared:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7479 buf->writestring(Token::tochars[TOKshared]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7480 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7481 case MODshared \| MODconst:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7482 buf->writestring(Token::tochars[TOKshared]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7483 buf->writeByte(' ');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7484 buf->writestring(Token::tochars[TOKconst]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7485 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7486 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7487 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7488 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7489 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7490 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7491 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7492 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7493 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7494
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7495
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7496 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7497
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7498 SliceExp::SliceExp(Loc loc, Expression e1, Expression lwr, Expression *upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7499 : UnaExp(loc, TOKslice, sizeof(SliceExp), e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7500 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7501 this->upr = upr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7502 this->lwr = lwr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7503 lengthVar = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7504 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7505
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7506 Expression *SliceExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7507 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7508 Expression *lwr = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7509 if (this->lwr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7510 lwr = this->lwr->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7511
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7512 Expression *upr = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7513 if (this->upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7514 upr = this->upr->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7515
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7516 return new SliceExp(loc, e1->syntaxCopy(), lwr, upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7517 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7518
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7519 Expression SliceExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7520 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7521 AggregateDeclaration *ad;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7522 //FuncDeclaration *fd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7523 ScopeDsymbol *sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7524
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7525 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7526 printf("SliceExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7527 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7528 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7529 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7530
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7531 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7532 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7533
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7534 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7535
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7536 Type *t = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7537 if (t->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7538 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7539 if (!lwr \|\| !upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7540 error("need upper and lower bound to slice pointer");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7541 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7542 else if (t->ty == Tarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7543 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7544 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7545 else if (t->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7546 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7547 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7548 else if (t->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7549 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7550 ad = ((TypeClass *)t)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7551 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7552 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7553 else if (t->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7554 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7555 ad = ((TypeStruct *)t)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7556
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7557 L1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7558 if (search_function(ad, Id::slice))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7559 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7560 // Rewrite as e1.slice(lwr, upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7561 e = new DotIdExp(loc, e1, Id::slice);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7562
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7563 if (lwr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7564 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7565 assert(upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7566 e = new CallExp(loc, e, lwr, upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7567 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7568 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7569 { assert(!upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7570 e = new CallExp(loc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7571 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7572 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7573 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7574 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7575 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7576 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7577 else if (t->ty == Ttuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7578 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7579 if (!lwr && !upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7580 return e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7581 if (!lwr \|\| !upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7582 { error("need upper and lower bound to slice tuple");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7583 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7584 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7585 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7586 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7587 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7588
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7589 if (t->ty == Tsarray \|\| t->ty == Tarray \|\| t->ty == Ttuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7590 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7591 sym = new ArrayScopeSymbol(sc, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7592 sym->loc = loc;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7593 sym->parent = sc->scopesym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7594 sc = sc->push(sym);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7595 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7596
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7597 if (lwr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7598 { lwr = lwr->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7599 lwr = resolveProperties(sc, lwr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7600 lwr = lwr->implicitCastTo(sc, Type::tsize_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7601 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7602 if (upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7603 { upr = upr->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7604 upr = resolveProperties(sc, upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7605 upr = upr->implicitCastTo(sc, Type::tsize_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7606 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7607
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7608 if (t->ty == Tsarray \|\| t->ty == Tarray \|\| t->ty == Ttuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7609 sc->pop();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7610
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7611 if (t->ty == Ttuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7612 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7613 lwr = lwr->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7614 upr = upr->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7615 uinteger_t i1 = lwr->toUInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7616 uinteger_t i2 = upr->toUInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7617
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7618 size_t length;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7619 TupleExp *te;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7620 TypeTuple *tup;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7621
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7622 if (e1->op == TOKtuple) // slicing an expression tuple
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7623 { te = (TupleExp *)e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7624 length = te->exps->dim;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7625 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7626 else if (e1->op == TOKtype) // slicing a type tuple
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7627 { tup = (TypeTuple *)t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7628 length = Argument::dim(tup->arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7629 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7630 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7631 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7632
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7633 if (i1 <= i2 && i2 <= length)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7634 { size_t j1 = (size_t) i1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7635 size_t j2 = (size_t) i2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7636
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7637 if (e1->op == TOKtuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7638 { Expressions *exps = new Expressions;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7639 exps->setDim(j2 - j1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7640 for (size_t i = 0; i < j2 - j1; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7641 { Expression e = (Expression )te->exps->data[j1 + i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7642 exps->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7643 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7644 e = new TupleExp(loc, exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7645 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7646 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7647 { Arguments *args = new Arguments;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7648 args->reserve(j2 - j1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7649 for (size_t i = j1; i < j2; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7650 { Argument *arg = Argument::getNth(tup->arguments, i);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7651 args->push(arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7652 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7653 e = new TypeExp(e1->loc, new TypeTuple(args));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7654 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7655 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7656 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7657 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7658 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7659 error("string slice [%ju .. %ju] is out of bounds", i1, i2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7660 e = new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7661 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7662 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7663 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7664
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7665 if (t->ty == Tarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7666 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7667 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7668 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7669 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7670 type = t->nextOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7671 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7672
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7673 Lerror:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7674 char *s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7675 if (t->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7676 s = e1->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7677 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7678 s = t->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7679 error("%s cannot be sliced with []", s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7680 e = new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7681 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7682 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7683
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7684 void SliceExp::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7685 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7686 e1->checkEscape();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7687 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7688
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7689 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7690 int SliceExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7691 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7692 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7693 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7694 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7695
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7696 Expression SliceExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7697 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7698 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7699 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7700
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7701 Expression SliceExp::modifiableLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7702 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7703 error("slice expression %s is not a modifiable lvalue", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7704 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7705 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7706
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7707 void SliceExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7708 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7709 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7710 buf->writeByte('[');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7711 if (upr \|\| lwr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7712 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7713 if (lwr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7714 expToCBuffer(buf, hgs, lwr, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7715 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7716 buf->writeByte('0');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7717 buf->writestring("..");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7718 if (upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7719 expToCBuffer(buf, hgs, upr, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7720 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7721 buf->writestring("length"); // BUG: should be array.length
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7722 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7723 buf->writeByte(']');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7724 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7725
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7726 /******************** ArrayLength ************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7727
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7728 ArrayLengthExp::ArrayLengthExp(Loc loc, Expression *e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7729 : UnaExp(loc, TOKarraylength, sizeof(ArrayLengthExp), e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7730 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7731 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7732
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7733 Expression ArrayLengthExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7734 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7735
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7736 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7737 printf("ArrayLengthExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7738 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7739 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7740 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7741 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7742 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7743
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7744 type = Type::tsize_t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7745 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7746 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7747 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7748
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7749 void ArrayLengthExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7750 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7751 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7752 buf->writestring(".length");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7753 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7754
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7755 /********************* ArrayExp ***********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7756
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7757 // e1 [ i1, i2, i3, ... ]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7758
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7759 ArrayExp::ArrayExp(Loc loc, Expression e1, Expressions args)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7760 : UnaExp(loc, TOKarray, sizeof(ArrayExp), e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7761 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7762 arguments = args;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7763 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7764
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7765 Expression *ArrayExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7766 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7767 return new ArrayExp(loc, e1->syntaxCopy(), arraySyntaxCopy(arguments));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7768 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7769
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7770 Expression ArrayExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7771 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7772 Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7773
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7774 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7775 printf("ArrayExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7776 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7777 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7778 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7779
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7780 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7781 if (t1->ty != Tclass && t1->ty != Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7782 { // Convert to IndexExp
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7783 if (arguments->dim != 1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7784 error("only one index allowed to index %s", t1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7785 e = new IndexExp(loc, e1, (Expression *)arguments->data[0]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7786 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7787 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7788
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7789 // Run semantic() on each argument
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7790 for (size_t i = 0; i < arguments->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7791 { e = (Expression *)arguments->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7792
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7793 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7794 if (!e->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7795 error("%s has no value", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7796 arguments->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7797 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7798
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7799 expandTuples(arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7800 assert(arguments && arguments->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7801
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7802 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7803 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7804 { error("no [] operator overload for type %s", e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7805 e = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7806 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7807 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7808 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7809
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7810 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7811 int ArrayExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7812 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7813 if (type && type->toBasetype()->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7814 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7815 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7816 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7817 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7818
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7819 Expression ArrayExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7820 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7821 if (type && type->toBasetype()->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7822 error("voids have no value");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7823 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7824 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7825
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7826
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7827 void ArrayExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7828 { int i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7829
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7830 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7831 buf->writeByte('[');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7832 argsToCBuffer(buf, arguments, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7833 buf->writeByte(']');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7834 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7835
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7836 /*********************** DotExp *********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7837
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7838 DotExp::DotExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7839 : BinExp(loc, TOKdotexp, sizeof(DotExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7840 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7841 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7842
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7843 Expression DotExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7844 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7845 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7846 printf("DotExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7847 if (type) printf("\ttype = %s\n", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7848 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7849 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7850 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7851 if (e2->op == TOKimport)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7852 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7853 ScopeExp se = (ScopeExp )e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7854 TemplateDeclaration *td = se->sds->isTemplateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7855 if (td)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7856 { Expression *e = new DotTemplateExp(loc, e1, td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7857 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7858 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7859 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7860 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7861 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7862 type = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7863 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7864 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7865
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7866
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7867 /*********************** CommaExp *********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7868
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7869 CommaExp::CommaExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7870 : BinExp(loc, TOKcomma, sizeof(CommaExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7871 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7872 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7873
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7874 Expression CommaExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7875 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7876 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7877 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7878 type = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7879 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7880 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7881 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7882
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7883 void CommaExp::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7884 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7885 e2->checkEscape();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7886 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7887
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7888 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7889 int CommaExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7890 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7891 return e2->isLvalue();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7892 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7893 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7894
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7895 Expression CommaExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7896 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7897 e2 = e2->toLvalue(sc, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7898 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7899 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7900
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7901 Expression CommaExp::modifiableLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7902 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7903 e2 = e2->modifiableLvalue(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7904 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7905 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7906
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7907 int CommaExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7908 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7909 return e2->isBool(result);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7910 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7911
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7912 int CommaExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7913 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7914 if (flag == 2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7915 return e1->checkSideEffect(2) \|\| e2->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7916 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7917 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7918 // Don't check e1 until we cast(void) the a,b code generation
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7919 return e2->checkSideEffect(flag);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7920 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7921 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7922
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7923 /************************ IndexExp ********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7924
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7925 // e1 [ e2 ]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7926
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7927 IndexExp::IndexExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7928 : BinExp(loc, TOKindex, sizeof(IndexExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7929 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7930 //printf("IndexExp::IndexExp('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7931 lengthVar = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7932 modifiable = 0; // assume it is an rvalue
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7933 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7934
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7935 Expression IndexExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7936 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7937 BinExp *b;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7938 UnaExp *u;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7939 Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7940 ScopeDsymbol *sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7941
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7942 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7943 printf("IndexExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7944 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7945 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7946 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7947 if (!e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7948 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7949 assert(e1->type); // semantic() should already be run on it
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7950 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7951
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7952 // Note that unlike C we do not implement the int[ptr]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7953
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7954 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7955
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7956 if (t1->ty == Tsarray \|\| t1->ty == Tarray \|\| t1->ty == Ttuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7957 { // Create scope for 'length' variable
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7958 sym = new ArrayScopeSymbol(sc, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7959 sym->loc = loc;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7960 sym->parent = sc->scopesym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7961 sc = sc->push(sym);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7962 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7963
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7964 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7965 if (!e2->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7966 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7967 error("%s has no value", e2->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7968 e2->type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7969 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7970 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7971
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7972 if (t1->ty == Tsarray \|\| t1->ty == Tarray \|\| t1->ty == Ttuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7973 sc = sc->pop();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7974
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7975 switch (t1->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7976 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7977 case Tpointer:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7978 case Tarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7979 e2 = e2->implicitCastTo(sc, Type::tsize_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7980 e->type = ((TypeNext *)t1)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7981 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7982
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7983 case Tsarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7984 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7985 e2 = e2->implicitCastTo(sc, Type::tsize_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7986
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7987 TypeSArray tsa = (TypeSArray )t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7988
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7989 #if 0 // Don't do now, because it might be short-circuit evaluated
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7990 // Do compile time array bounds checking if possible
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7991 e2 = e2->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7992 if (e2->op == TOKint64)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7993 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7994 dinteger_t index = e2->toInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7995 dinteger_t length = tsa->dim->toInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7996 if (index < 0 \|\| index >= length)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7997 error("array index [%lld] is outside array bounds [0 .. %lld]",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7998 index, length);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7999 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8000 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8001 e->type = t1->nextOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8002 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8003 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8004
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8005 case Taarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8006 { TypeAArray taa = (TypeAArray )t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8007 if (!arrayTypeCompatible(e2->loc, e2->type, taa->index))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8008 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8009 e2 = e2->implicitCastTo(sc, taa->index); // type checking
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8010 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8011 type = taa->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8012 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8013 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8014
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8015 case Ttuple:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8016 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8017 e2 = e2->implicitCastTo(sc, Type::tsize_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8018 e2 = e2->optimize(WANTvalue \| WANTinterpret);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8019 uinteger_t index = e2->toUInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8020 size_t length;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8021 TupleExp *te;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8022 TypeTuple *tup;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8023
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8024 if (e1->op == TOKtuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8025 { te = (TupleExp *)e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8026 length = te->exps->dim;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8027 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8028 else if (e1->op == TOKtype)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8029 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8030 tup = (TypeTuple *)t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8031 length = Argument::dim(tup->arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8032 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8033 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8034 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8035
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8036 if (index < length)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8037 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8038
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8039 if (e1->op == TOKtuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8040 e = (Expression *)te->exps->data[(size_t)index];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8041 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8042 e = new TypeExp(e1->loc, Argument::getNth(tup->arguments, (size_t)index)->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8043 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8044 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8045 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8046 error("array index [%ju] is outside array bounds [0 .. %zu]",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8047 index, length);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8048 e = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8049 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8050 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8051 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8052
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8053 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8054 error("%s must be an array or pointer type, not %s",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8055 e1->toChars(), e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8056 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8057 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8058 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8059 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8060 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8061
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8062 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8063 int IndexExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8064 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8065 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8066 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8067 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8068
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8069 Expression IndexExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8070 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8071 // if (type && type->toBasetype()->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8072 // error("voids have no value");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8073 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8074 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8075
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8076 Expression IndexExp::modifiableLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8077 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8078 //printf("IndexExp::modifiableLvalue(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8079 modifiable = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8080 if (e1->op == TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8081 error("string literals are immutable");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8082 if (type && !type->isMutable())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8083 error("%s isn't mutable", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8084 if (e1->type->toBasetype()->ty == Taarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8085 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8086 return toLvalue(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8087 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8088
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8089 void IndexExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8090 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8091 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8092 buf->writeByte('[');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8093 expToCBuffer(buf, hgs, e2, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8094 buf->writeByte(']');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8095 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8096
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8097
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8098 /*********************** PostExp *********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8099
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8100 PostExp::PostExp(enum TOK op, Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8101 : BinExp(loc, op, sizeof(PostExp), e,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8102 new IntegerExp(loc, 1, Type::tint32))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8103 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8104 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8105
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8106 Expression PostExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8107 { Expression *e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8108
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8109 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8110 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8111 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8112 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8113
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8114 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8115 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8116 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8117
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8118 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8119 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8120 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8121 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8122 if (e1->type->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8123 e = scaleFactor(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8124 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8125 e2 = e2->castTo(sc, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8126 e->type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8127 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8128 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8129 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8130
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8131 void PostExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8132 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8133 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8134 buf->writestring((op == TOKplusplus) ? (char )"++" : (char )"--");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8135 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8136
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8137 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8138
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8139 /* op can be TOKassign, TOKconstruct, or TOKblit */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8140
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8141 AssignExp::AssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8142 : BinExp(loc, TOKassign, sizeof(AssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8143 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8144 ismemset = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8145 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8146
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8147 Expression AssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8148 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8149 Expression *e1old = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8150
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8151 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8152 printf("AssignExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8153 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8154 //printf("e1->op = %d, '%s'\n", e1->op, Token::toChars(e1->op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8155 //printf("e2->op = %d, '%s'\n", e2->op, Token::toChars(e2->op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8156
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8157 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8158 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8159
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8160 if (e2->op == TOKcomma)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8161 { /* Rewrite to get rid of the comma from rvalue
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8162 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8163 AssignExp ea = new AssignExp(loc, e1, ((CommaExp )e2)->e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8164 ea->op = op;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8165 Expression e = new CommaExp(loc, ((CommaExp )e2)->e1, ea);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8166 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8167 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8168
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8169 /* Look for operator overloading of a[i]=value.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8170 * Do it before semantic() otherwise the a[i] will have been
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8171 * converted to a.opIndex() already.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8172 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8173 if (e1->op == TOKarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8174 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8175 ArrayExp ae = (ArrayExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8176 AggregateDeclaration *ad;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8177 Identifier *id = Id::index;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8178
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8179 ae->e1 = ae->e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8180 Type *t1 = ae->e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8181 if (t1->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8182 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8183 ad = ((TypeStruct *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8184 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8185 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8186 else if (t1->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8187 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8188 ad = ((TypeClass *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8189 L1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8190 // Rewrite (a[i] = value) to (a.opIndexAssign(value, i))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8191 if (search_function(ad, Id::indexass))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8192 { Expression *e = new DotIdExp(loc, ae->e1, Id::indexass);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8193 Expressions a = (Expressions )ae->arguments->copy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8194
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8195 a->insert(0, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8196 e = new CallExp(loc, e, a);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8197 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8198 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8199 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8200 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8201 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8202 // Rewrite (a[i] = value) to (a.opIndex(i, value))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8203 if (search_function(ad, id))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8204 { Expression *e = new DotIdExp(loc, ae->e1, id);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8205
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8206 if (1 \|\| !global.params.useDeprecated)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8207 error("operator [] assignment overload with opIndex(i, value) illegal, use opIndexAssign(value, i)");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8208
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8209 e = new CallExp(loc, e, (Expression *)ae->arguments->data[0], e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8210 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8211 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8212 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8213 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8214 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8215 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8216 /* Look for operator overloading of a[i..j]=value.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8217 * Do it before semantic() otherwise the a[i..j] will have been
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8218 * converted to a.opSlice() already.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8219 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8220 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8221 { Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8222 SliceExp ae = (SliceExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8223 AggregateDeclaration *ad;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8224 Identifier *id = Id::index;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8225
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8226 ae->e1 = ae->e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8227 ae->e1 = resolveProperties(sc, ae->e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8228 t1 = ae->e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8229 if (t1->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8230 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8231 ad = ((TypeStruct *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8232 goto L2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8233 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8234 else if (t1->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8235 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8236 ad = ((TypeClass *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8237 L2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8238 // Rewrite (a[i..j] = value) to (a.opIndexAssign(value, i, j))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8239 if (search_function(ad, Id::sliceass))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8240 { Expression *e = new DotIdExp(loc, ae->e1, Id::sliceass);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8241 Expressions *a = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8242
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8243 a->push(e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8244 if (ae->lwr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8245 { a->push(ae->lwr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8246 assert(ae->upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8247 a->push(ae->upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8248 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8249 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8250 assert(!ae->upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8251 e = new CallExp(loc, e, a);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8252 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8253 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8254 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8255 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8256 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8257
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8258 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8259
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8260 if (e1->op == TOKdottd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8261 { // Rewrite a.b=e2, when b is a template, as a.b(e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8262 Expression *e = new CallExp(loc, e1, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8263 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8264 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8265 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8266
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8267 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8268 assert(e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8269
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8270 /* Rewrite tuple assignment as a tuple of assignments.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8271 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8272 if (e1->op == TOKtuple && e2->op == TOKtuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8273 { TupleExp tup1 = (TupleExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8274 TupleExp tup2 = (TupleExp )e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8275 size_t dim = tup1->exps->dim;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8276 if (dim != tup2->exps->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8277 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8278 error("mismatched tuple lengths, %d and %d", (int)dim, (int)tup2->exps->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8279 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8280 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8281 { Expressions *exps = new Expressions;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8282 exps->setDim(dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8283
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8284 for (int i = 0; i < dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8285 { Expression ex1 = (Expression )tup1->exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8286 Expression ex2 = (Expression )tup2->exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8287 exps->data[i] = (void *) new AssignExp(loc, ex1, ex2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8288 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8289 Expression *e = new TupleExp(loc, exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8290 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8291 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8292 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8293 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8294
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8295 Type *t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8296
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8297 if (t1->ty == Tfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8298 { // Rewrite f=value to f(value)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8299 Expression *e = new CallExp(loc, e1, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8300 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8301 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8302 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8303
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8304 /* If it is an assignment from a 'foreign' type,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8305 * check for operator overloading.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8306 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8307 if (t1->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8308 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8309 StructDeclaration sd = ((TypeStruct )t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8310 if (op == TOKassign)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8311 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8312 Expression *e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8313 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8314 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8315 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8316 else if (op == TOKconstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8317 { Type *t2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8318 if (t2->ty == Tstruct &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8319 sd == ((TypeStruct *)t2)->sym &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8320 sd->cpctor)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8321 { /* We have a copy constructor for this
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8322 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8323 if (e2->op == TOKvar \|\| e2->op == TOKstar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8324 { /* Write as:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8325 * e1.cpctor(e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8326 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8327 Expression *e = new DotVarExp(loc, e1, sd->cpctor, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8328 e = new CallExp(loc, e, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8329 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8330 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8331 else if (e2->op == TOKquestion)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8332 { /* Write as:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8333 * a ? e1 = b : e1 = c;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8334 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8335 CondExp ec = (CondExp )e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8336 AssignExp *ea1 = new AssignExp(ec->e1->loc, e1, ec->e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8337 ea1->op = op;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8338 AssignExp *ea2 = new AssignExp(ec->e1->loc, e1, ec->e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8339 ea2->op = op;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8340 Expression *e = new CondExp(loc, ec->econd, ea1, ea2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8341 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8342 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8343 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8344 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8345 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8346 else if (t1->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8347 { // Disallow assignment operator overloads for same type
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8348 if (!e2->type->implicitConvTo(e1->type))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8349 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8350 Expression *e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8351 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8352 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8353 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8354 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8355
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8356 if (t1->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8357 { // Convert e1 to e1[]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8358 Expression *e = new SliceExp(e1->loc, e1, NULL, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8359 e1 = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8360 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8361 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8362
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8363 e2->rvalue();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8364
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8365 if (e1->op == TOKarraylength)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8366 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8367 // e1 is not an lvalue, but we let code generator handle it
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8368 ArrayLengthExp ale = (ArrayLengthExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8369
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8370 ale->e1 = ale->e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8371 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8372 else if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8373 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8374 Type *tn = e1->type->nextOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8375 if (tn && !tn->isMutable() && op != TOKconstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8376 error("slice %s is not mutable", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8377 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8378 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8379 { // Try to do a decent error message with the expression
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8380 // before it got constant folded
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8381 if (e1->op != TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8382 e1 = e1->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8383
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8384 if (op != TOKconstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8385 e1 = e1->modifiableLvalue(sc, e1old);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8386 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8387
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8388 Type *t2 = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8389 if (e1->op == TOKslice &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8390 t1->nextOf() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8391 e2->implicitConvTo(t1->nextOf())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8392 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8393 { // memset
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8394 ismemset = 1; // make it easy for back end to tell what this is
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8395 e2 = e2->implicitCastTo(sc, t1->nextOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8396 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8397 else if (t1->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8398 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8399 /* Should have already converted e1 => e1[]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8400 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8401 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8402 //error("cannot assign to static array %s", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8403 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8404 else if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8405 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8406 e2 = e2->implicitCastTo(sc, e1->type->constOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8407 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8408 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8409 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8410 e2 = e2->implicitCastTo(sc, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8411 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8412
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8413 /* Look for array operations
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8414 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8415 if (e1->op == TOKslice && !ismemset &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8416 (e2->op == TOKadd \|\| e2->op == TOKmin \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8417 e2->op == TOKmul \|\| e2->op == TOKdiv \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8418 e2->op == TOKmod \|\| e2->op == TOKxor \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8419 e2->op == TOKand \|\| e2->op == TOKor \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8420 e2->op == TOKtilde \|\| e2->op == TOKneg))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8421 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8422 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8423 return arrayOp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8424 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8425
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8426 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8427 assert(type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8428 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8429 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8430
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8431 Expression *AssignExp::checkToBoolean()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8432 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8433 // Things like:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8434 // if (a = b) ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8435 // are usually mistakes.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8436
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8437 error("'=' does not give a boolean result");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8438 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8439 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8440
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8441 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8442
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8443 AddAssignExp::AddAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8444 : BinExp(loc, TOKaddass, sizeof(AddAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8445 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8446 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8447
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8448 Expression AddAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8449 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8450
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8451 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8452 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8453
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8454 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8455 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8456
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8457 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8458 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8459 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8460
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8461 Type *tb1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8462 Type *tb2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8463
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8464 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8465 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8466 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8467 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8468 return arrayOp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8469 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8470 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8471 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8472 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8473 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8474
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8475 if ((tb1->ty == Tarray \|\| tb1->ty == Tsarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8476 (tb2->ty == Tarray \|\| tb2->ty == Tsarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8477 tb1->nextOf()->equals(tb2->nextOf())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8478 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8479 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8480 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8481 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8482 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8483 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8484 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8485 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8486 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8487 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8488 if (tb1->ty == Tpointer && tb2->isintegral())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8489 e = scaleFactor(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8490 else if (tb1->ty == Tbit \|\| tb1->ty == Tbool)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8491 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8492 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8493 // Need to rethink this
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8494 if (e1->op != TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8495 { // Rewrite e1+=e2 to (v=&e1),v=v+e2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8496 VarDeclaration *v;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8497 Expression *ea;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8498 Expression *ex;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8499
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8500 Identifier *id = Lexer::uniqueId("__name");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8501
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8502 v = new VarDeclaration(loc, tb1->pointerTo(), id, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8503 v->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8504 if (!sc->insert(v))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8505 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8506 v->parent = sc->func;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8507
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8508 ea = new AddrExp(loc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8509 ea = new AssignExp(loc, new VarExp(loc, v), ea);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8510
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8511 ex = new VarExp(loc, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8512 ex = new PtrExp(loc, ex);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8513 e = new AddExp(loc, ex, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8514 e = new CastExp(loc, e, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8515 e = new AssignExp(loc, ex->syntaxCopy(), e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8516
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8517 e = new CommaExp(loc, ea, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8518 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8519 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8520 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8521 { // Rewrite e1+=e2 to e1=e1+e2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8522 // BUG: doesn't account for side effects in e1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8523 // BUG: other assignment operators for bits aren't handled at all
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8524 e = new AddExp(loc, e1, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8525 e = new CastExp(loc, e, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8526 e = new AssignExp(loc, e1->syntaxCopy(), e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8527 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8528 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8529 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8530 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8531 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8532 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8533 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8534 e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8535 e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8536 if (type->isreal() \|\| type->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8537 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8538 assert(global.errors \|\| e2->type->isfloating());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8539 e2 = e2->castTo(sc, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8540 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8541 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8542
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8543 if (e2->type->iscomplex() && !type->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8544 error("Cannot assign %s to %s", e2->type->toChars(), type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8545 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8546 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8547 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8548 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8549
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8550 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8551
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8552 MinAssignExp::MinAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8553 : BinExp(loc, TOKminass, sizeof(MinAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8554 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8555 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8556
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8557 Expression MinAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8558 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8559
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8560 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8561 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8562
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8563 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8564 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8565
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8566 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8567 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8568 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8569
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8570 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8571 { // T[] -= ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8572 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8573 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8574 return arrayOp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8575 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8576
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8577 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8578 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8579 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8580 if (e1->type->ty == Tpointer && e2->type->isintegral())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8581 e = scaleFactor(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8582 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8583 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8584 e1 = e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8585 e2 = e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8586 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8587 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8588 if (type->isreal() \|\| type->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8589 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8590 assert(e2->type->isfloating());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8591 e2 = e2->castTo(sc, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8592 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8593 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8594
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8595 if (e2->type->iscomplex() && !type->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8596 error("Cannot assign %s to %s", e2->type->toChars(), type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8597 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8598 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8599 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8600
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8601 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8602
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8603 CatAssignExp::CatAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8604 : BinExp(loc, TOKcatass, sizeof(CatAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8605 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8606 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8607
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8608 Expression CatAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8609 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8610
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8611 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8612 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8613
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8614 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8615 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8616 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8617
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8618 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8619 { SliceExp se = (SliceExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8620
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8621 if (se->e1->type->toBasetype()->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8622 error("cannot append to static array %s", se->e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8623 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8624
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8625 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8626
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8627 Type *tb1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8628 Type *tb2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8629
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8630 e2->rvalue();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8631
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8632 if ((tb1->ty == Tarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8633 (tb2->ty == Tarray \|\| tb2->ty == Tsarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8634 (e2->implicitConvTo(e1->type) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8635 tb2->nextOf()->implicitConvTo(tb1->nextOf()))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8636 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8637 { // Append array
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8638 e2 = e2->castTo(sc, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8639 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8640 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8641 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8642 else if ((tb1->ty == Tarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8643 e2->implicitConvTo(tb1->nextOf())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8644 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8645 { // Append element
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8646 e2 = e2->castTo(sc, tb1->nextOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8647 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8648 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8649 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8650 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8651 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8652 error("cannot append type %s to type %s", tb2->toChars(), tb1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8653 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8654 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8655 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8656 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8657 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8658
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8659 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8660
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8661 MulAssignExp::MulAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8662 : BinExp(loc, TOKmulass, sizeof(MulAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8663 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8664 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8665
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8666 Expression MulAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8667 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8668
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8669 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8670 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8671
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8672 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8673 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8674 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8675
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8676 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8677 { // T[] -= ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8678 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8679 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8680 return arrayOp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8681 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8682
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8683 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8684 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8685 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8686 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8687 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8688 e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8689 e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8690 if (e2->type->isfloating())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8691 { Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8692 Type *t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8693
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8694 t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8695 t2 = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8696 if (t1->isreal())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8697 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8698 if (t2->isimaginary() \|\| t2->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8699 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8700 e2 = e2->castTo(sc, t1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8701 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8702 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8703 else if (t1->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8704 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8705 if (t2->isimaginary() \|\| t2->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8706 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8707 switch (t1->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8708 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8709 case Timaginary32: t2 = Type::tfloat32; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8710 case Timaginary64: t2 = Type::tfloat64; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8711 case Timaginary80: t2 = Type::tfloat80; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8712 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8713 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8714 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8715 e2 = e2->castTo(sc, t2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8716 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8717 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8718
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8719 if (e2->type->iscomplex() && !type->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8720 error("Cannot assign %s to %s", e2->type->toChars(), type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8721 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8722 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8723 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8724
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8725 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8726
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8727 DivAssignExp::DivAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8728 : BinExp(loc, TOKdivass, sizeof(DivAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8729 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8730 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8731
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8732 Expression DivAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8733 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8734
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8735 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8736 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8737
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8738 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8739 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8740 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8741
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8742 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8743 { // T[] -= ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8744 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8745 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8746 return arrayOp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8747 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8748
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8749 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8750 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8751 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8752 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8753 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8754 e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8755 e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8756 if (e2->type->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8757 { Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8758 Type *t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8759
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8760 t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8761 if (t1->isreal())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8762 { // x/iv = i(-x/v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8763 // Therefore, the result is 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8764 e2 = new CommaExp(loc, e2, new RealExp(loc, 0, t1));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8765 e2->type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8766 e = new AssignExp(loc, e1, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8767 e->type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8768 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8769 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8770 else if (t1->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8771 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8772
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8773 switch (t1->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8774 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8775 case Timaginary32: t2 = Type::tfloat32; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8776 case Timaginary64: t2 = Type::tfloat64; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8777 case Timaginary80: t2 = Type::tfloat80; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8778 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8779 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8780 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8781 e2 = e2->castTo(sc, t2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8782 e = new AssignExp(loc, e1, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8783 e->type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8784 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8785 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8786 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8787
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8788 if (e2->type->iscomplex() && !type->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8789 error("Cannot assign %s to %s", e2->type->toChars(), type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8790
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8791 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8792 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8793
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8794 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8795
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8796 ModAssignExp::ModAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8797 : BinExp(loc, TOKmodass, sizeof(ModAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8798 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8799 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8800
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8801 Expression ModAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8802 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8803 return commonSemanticAssign(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8804 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8805
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8806 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8807
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8808 ShlAssignExp::ShlAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8809 : BinExp(loc, TOKshlass, sizeof(ShlAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8810 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8811 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8812
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8813 Expression ShlAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8814 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8815
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8816 //printf("ShlAssignExp::semantic()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8817 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8818 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8819
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8820 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8821 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8822 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8823
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8824 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8825 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8826 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8827 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8828 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8829 e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8830 e2 = e2->checkIntegral();
1523 833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	8831 #if IN_DMD
833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	8832 e2 = e2->castTo(sc, Type::tshiftcnt);
833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	8833 #elif IN_LLVM
833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	8834 e2 = e2->castTo(sc, e1->type);
833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	8835 #endif
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8836 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8837 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8838
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8839 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8840
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8841 ShrAssignExp::ShrAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8842 : BinExp(loc, TOKshrass, sizeof(ShrAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8843 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8844 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8845
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8846 Expression ShrAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8847 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8848
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8849 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8850 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8851
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8852 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8853 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8854 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8855
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8856 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8857 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8858 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8859 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8860 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8861 e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8862 e2 = e2->checkIntegral();
1523 833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	8863 #if IN_DMD
833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	8864 e2 = e2->castTo(sc, Type::tshiftcnt);
833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	8865 #elif IN_LLVM
833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	8866 e2 = e2->castTo(sc, e1->type);
833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	8867 #endif
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8868 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8869 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8870
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8871 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8872
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8873 UshrAssignExp::UshrAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8874 : BinExp(loc, TOKushrass, sizeof(UshrAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8875 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8876 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8877
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8878 Expression UshrAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8879 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8880
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8881 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8882 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8883
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8884 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8885 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8886 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8887
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8888 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8889 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8890 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8891 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8892 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8893 e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8894 e2 = e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8895 //e2 = e2->castTo(sc, Type::tshiftcnt);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8896 e2 = e2->castTo(sc, e1->type); // LDC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8897 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8898 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8899
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8900 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8901
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8902 AndAssignExp::AndAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8903 : BinExp(loc, TOKandass, sizeof(AndAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8904 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8905 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8906
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8907 Expression AndAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8908 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8909 return commonSemanticAssignIntegral(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8910 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8911
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8912 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8913
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8914 OrAssignExp::OrAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8915 : BinExp(loc, TOKorass, sizeof(OrAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8916 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8917 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8918
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8919 Expression OrAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8920 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8921 return commonSemanticAssignIntegral(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8922 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8923
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8924 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8925
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8926 XorAssignExp::XorAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8927 : BinExp(loc, TOKxorass, sizeof(XorAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8928 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8929 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8930
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8931 Expression XorAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8932 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8933 return commonSemanticAssignIntegral(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8934 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8935
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8936 /*********************** AddExp ***************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8937
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8938 AddExp::AddExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8939 : BinExp(loc, TOKadd, sizeof(AddExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8940 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8941 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8942
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8943 Expression AddExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8944 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8945
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8946 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8947 printf("AddExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8948 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8949 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8950 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8951 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8952
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8953 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8954 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8955 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8956
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8957 Type *tb1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8958 Type *tb2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8959
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8960 if ((tb1->ty == Tarray \|\| tb1->ty == Tsarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8961 (tb2->ty == Tarray \|\| tb2->ty == Tsarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8962 tb1->nextOf()->equals(tb2->nextOf())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8963 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8964 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8965 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8966 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8967 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8968 else if (tb1->ty == Tpointer && e2->type->isintegral() \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8969 tb2->ty == Tpointer && e1->type->isintegral())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8970 e = scaleFactor(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8971 else if (tb1->ty == Tpointer && tb2->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8972 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8973 incompatibleTypes();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8974 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8975 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8976 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8977 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8978 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8979 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8980 if ((e1->type->isreal() && e2->type->isimaginary()) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8981 (e1->type->isimaginary() && e2->type->isreal()))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8982 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8983 switch (type->toBasetype()->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8984 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8985 case Tfloat32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8986 case Timaginary32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8987 type = Type::tcomplex32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8988 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8989
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8990 case Tfloat64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8991 case Timaginary64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8992 type = Type::tcomplex64;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8993 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8994
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8995 case Tfloat80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8996 case Timaginary80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8997 type = Type::tcomplex80;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8998 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8999
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9000 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9001 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9002 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9003 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9004 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9005 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9006 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9007 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9008 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9009 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9010
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9011 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9012
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9013 MinExp::MinExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9014 : BinExp(loc, TOKmin, sizeof(MinExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9015 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9016 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9017
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9018 Expression MinExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9019 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9020 Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9021 Type *t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9022
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9023 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9024 printf("MinExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9025 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9026 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9027 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9028
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9029 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9030
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9031 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9032 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9033 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9034
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9035 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9036 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9037 t2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9038 if (t1->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9039 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9040 if (t2->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9041 { // Need to divide the result by the stride
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9042 // Replace (ptr - ptr) with (ptr - ptr) / stride
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9043 d_int64 stride;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9044 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9045
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9046 typeCombine(sc); // make sure pointer types are compatible
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9047 type = Type::tptrdiff_t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9048 stride = t2->nextOf()->size();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9049 if (stride == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9050 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9051 e = new IntegerExp(loc, 0, Type::tptrdiff_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9052 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9053 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9054 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9055 e = new DivExp(loc, this, new IntegerExp(0, stride, Type::tptrdiff_t));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9056 e->type = Type::tptrdiff_t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9057 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9058 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9059 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9060 else if (t2->isintegral())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9061 e = scaleFactor(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9062 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9063 { error("incompatible types for minus");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9064 return new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9065 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9066 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9067 else if (t2->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9068 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9069 type = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9070 error("can't subtract pointer from %s", e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9071 return new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9072 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9073 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9074 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9075 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9076 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9077 t2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9078 if ((t1->isreal() && t2->isimaginary()) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9079 (t1->isimaginary() && t2->isreal()))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9080 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9081 switch (type->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9082 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9083 case Tfloat32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9084 case Timaginary32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9085 type = Type::tcomplex32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9086 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9087
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9088 case Tfloat64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9089 case Timaginary64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9090 type = Type::tcomplex64;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9091 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9092
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9093 case Tfloat80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9094 case Timaginary80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9095 type = Type::tcomplex80;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9096 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9097
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9098 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9099 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9100 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9101 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9102 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9103 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9104 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9105
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9106 /*********************** CatExp ***************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9107
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9108 CatExp::CatExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9109 : BinExp(loc, TOKcat, sizeof(CatExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9110 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9111 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9112
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9113 Expression CatExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9114 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9115
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9116 //printf("CatExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9117 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9118 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9119 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9120 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9121 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9122 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9123
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9124 Type *tb1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9125 Type *tb2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9126
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9127
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9128 /* BUG: Should handle things like:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9129 * char c;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9130 * c ~ ' '
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9131 * ' ' ~ c;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9132 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9133
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9134 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9135 e1->type->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9136 e2->type->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9137 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9138 if ((tb1->ty == Tsarray \|\| tb1->ty == Tarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9139 e2->type->implicitConvTo(tb1->nextOf()) >= MATCHconst)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9140 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9141 type = tb1->nextOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9142 if (tb2->ty == Tarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9143 { // Make e2 into [e2]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9144 e2 = new ArrayLiteralExp(e2->loc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9145 e2->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9146 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9147 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9148 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9149 else if ((tb2->ty == Tsarray \|\| tb2->ty == Tarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9150 e1->type->implicitConvTo(tb2->nextOf()) >= MATCHconst)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9151 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9152 type = tb2->nextOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9153 if (tb1->ty == Tarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9154 { // Make e1 into [e1]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9155 e1 = new ArrayLiteralExp(e1->loc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9156 e1->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9157 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9158 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9159 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9160
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9161 if ((tb1->ty == Tsarray \|\| tb1->ty == Tarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9162 (tb2->ty == Tsarray \|\| tb2->ty == Tarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9163 (tb1->nextOf()->mod \|\| tb2->nextOf()->mod) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9164 (tb1->nextOf()->mod != tb2->nextOf()->mod)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9165 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9166 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9167 Type *t1 = tb1->nextOf()->mutableOf()->constOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9168 Type *t2 = tb2->nextOf()->mutableOf()->constOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9169 if (e1->op == TOKstring && !((StringExp *)e1)->committed)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9170 e1->type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9171 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9172 e1 = e1->castTo(sc, t1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9173 if (e2->op == TOKstring && !((StringExp *)e2)->committed)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9174 e2->type = t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9175 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9176 e2 = e2->castTo(sc, t2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9177 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9178
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9179 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9180 type = type->toHeadMutable();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9181
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9182 Type *tb = type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9183 if (tb->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9184 type = tb->nextOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9185 if (type->ty == Tarray && tb1->nextOf() && tb2->nextOf() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9186 tb1->nextOf()->mod != tb2->nextOf()->mod)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9187 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9188 type = type->nextOf()->toHeadMutable()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9189 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9190 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9191 e1->type->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9192 e2->type->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9193 type->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9194 print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9195 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9196 Type *t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9197 Type *t2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9198 if (e1->op == TOKstring && e2->op == TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9199 e = optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9200 else if ((t1->ty == Tarray \|\| t1->ty == Tsarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9201 (t2->ty == Tarray \|\| t2->ty == Tsarray))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9202 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9203 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9204 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9205 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9206 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9207 //printf("(%s) ~ (%s)\n", e1->toChars(), e2->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9208 error("Can only concatenate arrays, not (%s ~ %s)",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9209 e1->type->toChars(), e2->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9210 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9211 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9212 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9213 e->type = e->type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9214 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9215 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9216 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9217 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9218
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9219 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9220
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9221 MulExp::MulExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9222 : BinExp(loc, TOKmul, sizeof(MulExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9223 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9224 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9225
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9226 Expression MulExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9227 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9228
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9229 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9230 printf("MulExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9231 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9232 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9233 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9234 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9235 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9236
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9237 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9238 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9239 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9240 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9241
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9242 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9243 if (e1->op != TOKslice && e2->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9244 { e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9245 e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9246 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9247 if (type->isfloating())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9248 { Type *t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9249 Type *t2 = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9250
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9251 if (t1->isreal())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9252 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9253 type = t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9254 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9255 else if (t2->isreal())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9256 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9257 type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9258 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9259 else if (t1->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9260 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9261 if (t2->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9262 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9263
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9264 switch (t1->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9265 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9266 case Timaginary32: type = Type::tfloat32; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9267 case Timaginary64: type = Type::tfloat64; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9268 case Timaginary80: type = Type::tfloat80; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9269 default: assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9270 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9271
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9272 // iy * iv = -yv
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9273 e1->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9274 e2->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9275 e = new NegExp(loc, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9276 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9277 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9278 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9279 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9280 type = t2; // t2 is complex
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9281 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9282 else if (t2->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9283 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9284 type = t1; // t1 is complex
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9285 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9286 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9287 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9288 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9289
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9290 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9291
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9292 DivExp::DivExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9293 : BinExp(loc, TOKdiv, sizeof(DivExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9294 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9295 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9296
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9297 Expression DivExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9298 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9299
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9300 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9301 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9302
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9303 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9304 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9305 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9306 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9307
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9308 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9309 if (e1->op != TOKslice && e2->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9310 { e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9311 e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9312 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9313 if (type->isfloating())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9314 { Type *t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9315 Type *t2 = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9316
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9317 if (t1->isreal())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9318 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9319 type = t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9320 if (t2->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9321 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9322
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9323 // x/iv = i(-x/v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9324 e2->type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9325 e = new NegExp(loc, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9326 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9327 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9328 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9329 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9330 else if (t2->isreal())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9331 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9332 type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9333 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9334 else if (t1->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9335 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9336 if (t2->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9337 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9338 switch (t1->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9339 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9340 case Timaginary32: type = Type::tfloat32; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9341 case Timaginary64: type = Type::tfloat64; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9342 case Timaginary80: type = Type::tfloat80; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9343 default: assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9344 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9345 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9346 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9347 type = t2; // t2 is complex
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9348 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9349 else if (t2->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9350 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9351 type = t1; // t1 is complex
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9352 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9353 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9354 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9355 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9356
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9357 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9358
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9359 ModExp::ModExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9360 : BinExp(loc, TOKmod, sizeof(ModExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9361 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9362 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9363
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9364 Expression ModExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9365 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9366
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9367 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9368 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9369
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9370 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9371 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9372 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9373 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9374
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9375 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9376 if (e1->op != TOKslice && e2->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9377 { e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9378 e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9379 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9380 if (type->isfloating())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9381 { type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9382 if (e2->type->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9383 { error("cannot perform modulo complex arithmetic");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9384 return new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9385 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9386 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9387 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9388 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9389
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9390 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9391
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9392 ShlExp::ShlExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9393 : BinExp(loc, TOKshl, sizeof(ShlExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9394 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9395 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9396
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9397 Expression ShlExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9398 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9399
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9400 //printf("ShlExp::semantic(), type = %p\n", type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9401 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9402 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9403 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9404 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9405 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9406 e1 = e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9407 e2 = e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9408 e1 = e1->integralPromotions(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9409 //e2 = e2->castTo(sc, Type::tshiftcnt);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9410 e2 = e2->castTo(sc, e1->type); // LDC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9411 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9412 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9413 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9414 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9415
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9416 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9417
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9418 ShrExp::ShrExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9419 : BinExp(loc, TOKshr, sizeof(ShrExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9420 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9421 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9422
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9423 Expression ShrExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9424 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9425
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9426 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9427 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9428 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9429 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9430 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9431 e1 = e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9432 e2 = e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9433 e1 = e1->integralPromotions(sc);
1523 833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	9434 //e2 = e2->castTo(sc, Type::tshiftcnt);
833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	9435 e2 = e2->castTo(sc, e1->type); // LDC
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9436 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9437 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9438 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9439 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9440
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9441 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9442
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9443 UshrExp::UshrExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9444 : BinExp(loc, TOKushr, sizeof(UshrExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9445 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9446 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9447
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9448 Expression UshrExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9449 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9450
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9451 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9452 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9453 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9454 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9455 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9456 e1 = e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9457 e2 = e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9458 e1 = e1->integralPromotions(sc);
1523 833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	9459 //e2 = e2->castTo(sc, Type::tshiftcnt);
833337c65fd3 Fixed some unmerged parts of the D2 frontend. Robert Clipsham <robert@octarineparrot.com> parents: 1465 diff changeset	9460 e2 = e2->castTo(sc, e1->type); // LDC
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9461 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9462 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9463 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9464 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9465
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9466 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9467
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9468 AndExp::AndExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9469 : BinExp(loc, TOKand, sizeof(AndExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9470 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9471 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9472
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9473 Expression AndExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9474 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9475
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9476 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9477 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9478 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9479 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9480 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9481 if (e1->type->toBasetype()->ty == Tbool &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9482 e2->type->toBasetype()->ty == Tbool)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9483 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9484 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9485 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9486 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9487 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9488 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9489 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9490 if (e1->op != TOKslice && e2->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9491 { e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9492 e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9493 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9494 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9495 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9496 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9497 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9498
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9499 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9500
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9501 OrExp::OrExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9502 : BinExp(loc, TOKor, sizeof(OrExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9503 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9504 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9505
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9506 Expression OrExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9507 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9508
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9509 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9510 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9511 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9512 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9513 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9514 if (e1->type->toBasetype()->ty == Tbool &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9515 e2->type->toBasetype()->ty == Tbool)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9516 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9517 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9518 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9519 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9520 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9521 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9522 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9523 if (e1->op != TOKslice && e2->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9524 { e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9525 e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9526 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9527 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9528 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9529 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9530 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9531
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9532 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9533
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9534 XorExp::XorExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9535 : BinExp(loc, TOKxor, sizeof(XorExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9536 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9537 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9538
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9539 Expression XorExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9540 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9541
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9542 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9543 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9544 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9545 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9546 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9547 if (e1->type->toBasetype()->ty == Tbool &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9548 e2->type->toBasetype()->ty == Tbool)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9549 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9550 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9551 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9552 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9553 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9554 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9555 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9556 if (e1->op != TOKslice && e2->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9557 { e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9558 e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9559 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9560 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9561 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9562 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9563 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9564
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9565
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9566 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9567
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9568 OrOrExp::OrOrExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9569 : BinExp(loc, TOKoror, sizeof(OrOrExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9570 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9571 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9572
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9573 Expression OrOrExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9574 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9575 unsigned cs1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9576
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9577 // same as for AndAnd
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9578 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9579 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9580 e1 = e1->checkToPointer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9581 e1 = e1->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9582 cs1 = sc->callSuper;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9583
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9584 if (sc->flags & SCOPEstaticif)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9585 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9586 /* If in static if, don't evaluate e2 if we don't have to.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9587 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9588 e1 = e1->optimize(WANTflags);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9589 if (e1->isBool(TRUE))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9590 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9591 return new IntegerExp(loc, 1, Type::tboolean);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9592 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9593 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9594
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9595 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9596 sc->mergeCallSuper(loc, cs1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9597 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9598 e2 = e2->checkToPointer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9599
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9600 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9601 if (e2->type->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9602 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9603 if (e2->op == TOKtype \|\| e2->op == TOKimport)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9604 error("%s is not an expression", e2->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9605 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9606 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9607
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9608 Expression *OrOrExp::checkToBoolean()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9609 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9610 e2 = e2->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9611 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9612 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9613
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9614 int OrOrExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9615 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9616 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9617 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9618
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9619 int OrOrExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9620 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9621 if (flag == 2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9622 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9623 return e1->checkSideEffect(2) \|\| e2->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9624 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9625 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9626 { e1->checkSideEffect(1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9627 return e2->checkSideEffect(flag);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9628 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9629 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9630
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9631 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9632
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9633 AndAndExp::AndAndExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9634 : BinExp(loc, TOKandand, sizeof(AndAndExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9635 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9636 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9637
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9638 Expression AndAndExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9639 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9640 unsigned cs1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9641
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9642 // same as for OrOr
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9643 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9644 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9645 e1 = e1->checkToPointer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9646 e1 = e1->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9647 cs1 = sc->callSuper;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9648
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9649 if (sc->flags & SCOPEstaticif)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9650 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9651 /* If in static if, don't evaluate e2 if we don't have to.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9652 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9653 e1 = e1->optimize(WANTflags);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9654 if (e1->isBool(FALSE))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9655 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9656 return new IntegerExp(loc, 0, Type::tboolean);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9657 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9658 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9659
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9660 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9661 sc->mergeCallSuper(loc, cs1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9662 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9663 e2 = e2->checkToPointer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9664
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9665 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9666 if (e2->type->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9667 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9668 if (e2->op == TOKtype \|\| e2->op == TOKimport)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9669 error("%s is not an expression", e2->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9670 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9671 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9672
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9673 Expression *AndAndExp::checkToBoolean()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9674 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9675 e2 = e2->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9676 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9677 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9678
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9679 int AndAndExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9680 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9681 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9682 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9683
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9684 int AndAndExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9685 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9686 if (flag == 2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9687 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9688 return e1->checkSideEffect(2) \|\| e2->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9689 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9690 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9691 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9692 e1->checkSideEffect(1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9693 return e2->checkSideEffect(flag);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9694 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9695 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9696
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9697 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9698
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9699 InExp::InExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9700 : BinExp(loc, TOKin, sizeof(InExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9701 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9702 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9703
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9704 Expression InExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9705 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9706
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9707 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9708 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9709
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9710 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9711 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9712 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9713 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9714
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9715 //type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9716 Type *t2b = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9717 if (t2b->ty != Taarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9718 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9719 error("rvalue of in expression must be an associative array, not %s", e2->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9720 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9721 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9722 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9723 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9724 TypeAArray ta = (TypeAArray )t2b;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9725
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9726 // Special handling for array keys
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9727 if (!arrayTypeCompatible(e1->loc, e1->type, ta->index))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9728 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9729 // Convert key to type of key
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9730 e1 = e1->implicitCastTo(sc, ta->index);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9731 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9732
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9733 // Return type is pointer to value
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9734 type = ta->nextOf()->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9735 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9736 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9737 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9738
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9739 int InExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9740 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9741 return FALSE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9742 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9743
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9744
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9745 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9746
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9747 /* This deletes the key e1 from the associative array e2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9748 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9749
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9750 RemoveExp::RemoveExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9751 : BinExp(loc, TOKremove, sizeof(RemoveExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9752 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9753 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9754 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9755
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9756 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9757
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9758 CmpExp::CmpExp(enum TOK op, Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9759 : BinExp(loc, op, sizeof(CmpExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9760 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9761 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9762
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9763 Expression CmpExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9764 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9765 Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9766 Type *t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9767
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9768 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9769 printf("CmpExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9770 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9771 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9772 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9773
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9774 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9775
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9776 if (e1->type->toBasetype()->ty == Tclass && e2->op == TOKnull \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9777 e2->type->toBasetype()->ty == Tclass && e1->op == TOKnull)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9778 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9779 error("do not use null when comparing class types");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9780 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9781
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9782 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9783 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9784 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9785 if (!e->type->isscalar() && e->type->equals(e1->type))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9786 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9787 error("recursive opCmp expansion");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9788 e = new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9789 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9790 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9791 { e = new CmpExp(op, loc, e, new IntegerExp(loc, 0, Type::tint32));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9792 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9793 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9794 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9795 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9796
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9797 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9798 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9799
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9800 // Special handling for array comparisons
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9801 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9802 t2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9803 if ((t1->ty == Tarray \|\| t1->ty == Tsarray \|\| t1->ty == Tpointer) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9804 (t2->ty == Tarray \|\| t2->ty == Tsarray \|\| t2->ty == Tpointer))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9805 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9806 if (t1->nextOf()->implicitConvTo(t2->nextOf()) < MATCHconst &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9807 t2->nextOf()->implicitConvTo(t1->nextOf()) < MATCHconst &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9808 (t1->nextOf()->ty != Tvoid && t2->nextOf()->ty != Tvoid))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9809 error("array comparison type mismatch, %s vs %s", t1->nextOf()->toChars(), t2->nextOf()->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9810 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9811 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9812 else if (t1->ty == Tstruct \|\| t2->ty == Tstruct \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9813 (t1->ty == Tclass && t2->ty == Tclass))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9814 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9815 if (t2->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9816 error("need member function opCmp() for %s %s to compare", t2->toDsymbol(sc)->kind(), t2->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9817 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9818 error("need member function opCmp() for %s %s to compare", t1->toDsymbol(sc)->kind(), t1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9819 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9820 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9821 #if 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9822 else if (t1->iscomplex() \|\| t2->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9823 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9824 error("compare not defined for complex operands");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9825 e = new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9826 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9827 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9828 else
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	9829 { e1->rvalue();
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	9830 e2->rvalue();
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9831 e = this;
1526 54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	9832 }
54b3c1394d62 Merged dmdfe 2.031. Robert Clipsham <robert@octarineparrot.com> parents: 1523 diff changeset	9833 //printf("CmpExp: %s, type = %s\n", e->toChars(), e->type->toChars());
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9834 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9835 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9836
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9837 int CmpExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9838 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9839 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9840 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9841
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9842
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9843 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9844
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9845 EqualExp::EqualExp(enum TOK op, Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9846 : BinExp(loc, op, sizeof(EqualExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9847 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9848 assert(op == TOKequal \|\| op == TOKnotequal);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9849 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9850
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9851 Expression EqualExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9852 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9853 Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9854 Type *t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9855
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9856 //printf("EqualExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9857 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9858 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9859
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9860 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9861
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9862 /* Before checking for operator overloading, check to see if we're
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9863 * comparing the addresses of two statics. If so, we can just see
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9864 * if they are the same symbol.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9865 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9866 if (e1->op == TOKaddress && e2->op == TOKaddress)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9867 { AddrExp ae1 = (AddrExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9868 AddrExp ae2 = (AddrExp )e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9869
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9870 if (ae1->e1->op == TOKvar && ae2->e1->op == TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9871 { VarExp ve1 = (VarExp )ae1->e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9872 VarExp ve2 = (VarExp )ae2->e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9873
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9874 if (ve1->var == ve2->var /\|\| ve1->var->toSymbol() == ve2->var->toSymbol()/)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9875 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9876 // They are the same, result is 'true' for ==, 'false' for !=
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9877 e = new IntegerExp(loc, (op == TOKequal), Type::tboolean);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9878 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9879 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9880 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9881 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9882
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9883 if (e1->type->toBasetype()->ty == Tclass && e2->op == TOKnull \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9884 e2->type->toBasetype()->ty == Tclass && e1->op == TOKnull)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9885 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9886 error("use '%s' instead of '%s' when comparing with null",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9887 Token::toChars(op == TOKequal ? TOKidentity : TOKnotidentity),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9888 Token::toChars(op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9889 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9890
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9891 //if (e2->op != TOKnull)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9892 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9893 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9894 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9895 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9896 if (op == TOKnotequal)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9897 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9898 e = new NotExp(e->loc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9899 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9900 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9901 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9902 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9903 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9904
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9905 e = typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9906 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9907
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9908 // Special handling for array comparisons
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9909 if (!arrayTypeCompatible(loc, e1->type, e2->type))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9910 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9911 if (e1->type != e2->type && e1->type->isfloating() && e2->type->isfloating())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9912 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9913 // Cast both to complex
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9914 e1 = e1->castTo(sc, Type::tcomplex80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9915 e2 = e2->castTo(sc, Type::tcomplex80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9916 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9917 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9918 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9919 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9920
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9921 int EqualExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9922 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9923 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9924 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9925
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9926
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9927
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9928 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9929
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9930 IdentityExp::IdentityExp(enum TOK op, Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9931 : BinExp(loc, op, sizeof(IdentityExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9932 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9933 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9934
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9935 Expression IdentityExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9936 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9937 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9938 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9939
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9940 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9941 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9942 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9943 if (e1->type != e2->type && e1->type->isfloating() && e2->type->isfloating())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9944 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9945 // Cast both to complex
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9946 e1 = e1->castTo(sc, Type::tcomplex80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9947 e2 = e2->castTo(sc, Type::tcomplex80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9948 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9949 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9950 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9951
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9952 int IdentityExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9953 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9954 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9955 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9956
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9957
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9958 /****************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9959
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9960 CondExp::CondExp(Loc loc, Expression econd, Expression e1, Expression *e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9961 : BinExp(loc, TOKquestion, sizeof(CondExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9962 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9963 this->econd = econd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9964 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9965
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9966 Expression *CondExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9967 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9968 return new CondExp(loc, econd->syntaxCopy(), e1->syntaxCopy(), e2->syntaxCopy());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9969 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9970
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9971
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9972 Expression CondExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9973 { Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9974 Type *t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9975 unsigned cs0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9976 unsigned cs1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9977
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9978 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9979 printf("CondExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9980 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9981 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9982 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9983
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9984 econd = econd->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9985 econd = resolveProperties(sc, econd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9986 econd = econd->checkToPointer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9987 econd = econd->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9988
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9989 #if 0 /* this cannot work right because the types of e1 and e2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9990 * both contribute to the type of the result.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9991 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9992 if (sc->flags & SCOPEstaticif)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9993 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9994 /* If in static if, don't evaluate what we don't have to.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9995 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9996 econd = econd->optimize(WANTflags);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9997 if (econd->isBool(TRUE))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9998 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9999 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10000 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10001 return e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10002 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10003 else if (econd->isBool(FALSE))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10004 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10005 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10006 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10007 return e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10008 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10009 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10010 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10011
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10012
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10013 cs0 = sc->callSuper;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10014 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10015 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10016 cs1 = sc->callSuper;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10017 sc->callSuper = cs0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10018 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10019 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10020 sc->mergeCallSuper(loc, cs1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10021
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10022
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10023 // If either operand is void, the result is void
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10024 t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10025 t2 = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10026 if (t1->ty == Tvoid \|\| t2->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10027 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10028 else if (t1 == t2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10029 type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10030 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10031 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10032 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10033 switch (e1->type->toBasetype()->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10034 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10035 case Tcomplex32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10036 case Tcomplex64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10037 case Tcomplex80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10038 e2 = e2->castTo(sc, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10039 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10040 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10041 switch (e2->type->toBasetype()->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10042 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10043 case Tcomplex32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10044 case Tcomplex64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10045 case Tcomplex80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10046 e1 = e1->castTo(sc, e2->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10047 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10048 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10049 if (type->toBasetype()->ty == Tarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10050 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10051 e1 = e1->castTo(sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10052 e2 = e2->castTo(sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10053 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10054 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10055 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10056 printf("res: %s\n", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10057 printf("e1 : %s\n", e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10058 printf("e2 : %s\n", e2->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10059 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10060 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10061 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10062
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10063 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10064 int CondExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10065 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10066 return e1->isLvalue() && e2->isLvalue();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10067 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10068 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10069
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10070 Expression CondExp::toLvalue(Scope sc, Expression *ex)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10071 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10072 PtrExp *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10073
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10074 // convert (econd ? e1 : e2) to *(econd ? &e1 : &e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10075 e = new PtrExp(loc, this, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10076
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10077 e1 = e1->addressOf(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10078 //e1 = e1->toLvalue(sc, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10079
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10080 e2 = e2->addressOf(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10081 //e2 = e2->toLvalue(sc, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10082
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10083 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10084
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10085 type = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10086 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10087 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10088
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10089 Expression CondExp::modifiableLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10090 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10091 error("conditional expression %s is not a modifiable lvalue", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10092 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10093 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10094
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10095 void CondExp::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10096 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10097 e1->checkEscape();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10098 e2->checkEscape();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10099 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10100
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10101
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10102 Expression *CondExp::checkToBoolean()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10103 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10104 e1 = e1->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10105 e2 = e2->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10106 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10107 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10108
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10109 int CondExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10110 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10111 if (flag == 2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10112 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10113 return econd->checkSideEffect(2) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10114 e1->checkSideEffect(2) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10115 e2->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10116 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10117 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10118 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10119 econd->checkSideEffect(1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10120 e1->checkSideEffect(flag);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10121 return e2->checkSideEffect(flag);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10122 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10123 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10124
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10125 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10126 int CondExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10127 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10128 return econd->canThrow() \|\| e1->canThrow() \|\| e2->canThrow();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10129 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10130 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10131
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10132 void CondExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10133 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10134 expToCBuffer(buf, hgs, econd, PREC_oror);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10135 buf->writestring(" ? ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10136 expToCBuffer(buf, hgs, e1, PREC_expr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10137 buf->writestring(" : ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10138 expToCBuffer(buf, hgs, e2, PREC_cond);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10139 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10140
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10141 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10142
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10143 #if IN_LLVM
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10144
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10145 // Strictly LDC specific stuff
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10146
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10147 GEPExp::GEPExp(Loc loc, Expression* e, Identifier* id, unsigned idx)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10148 : UnaExp(loc, TOKgep, sizeof(GEPExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10149 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10150 index = idx;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10151 ident = id;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10152 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10153
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10154 void GEPExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10155 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10156 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10157 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10158 buf->writestring(ident->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10159 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10160
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10161 Expression* GEPExp::toLvalue(Scope* sc, Expression* e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10162 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10163 // GEP's are always lvalues, at least in the "LLVM sense" ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10164 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10165 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10166
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10167 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10168
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10169 /****************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10170
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10171 DefaultInitExp::DefaultInitExp(Loc loc, enum TOK subop, int size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10172 : Expression(loc, TOKdefault, size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10173 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10174 this->subop = subop;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10175 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10176
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10177 void DefaultInitExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10178 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10179 buf->writestring(Token::toChars(subop));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10180 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10181
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10182 /****************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10183
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10184 FileInitExp::FileInitExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10185 : DefaultInitExp(loc, TOKfile, sizeof(FileInitExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10186 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10187 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10188
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10189 Expression FileInitExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10190 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10191 //printf("FileInitExp::semantic()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10192 type = Type::tchar->invariantOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10193 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10194 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10195
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10196 Expression FileInitExp::resolve(Loc loc, Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10197 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10198 //printf("FileInitExp::resolve() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10199 const char *s = loc.filename ? loc.filename : sc->module->ident->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10200 Expression e = new StringExp(loc, (char )s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10201 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10202 e = e->castTo(sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10203 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10204 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10205
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10206 /****************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10207
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10208 LineInitExp::LineInitExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10209 : DefaultInitExp(loc, TOKline, sizeof(LineInitExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10210 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10211 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10212
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10213 Expression LineInitExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10214 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10215 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10216 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10217 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10218
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10219 Expression LineInitExp::resolve(Loc loc, Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10220 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10221 Expression *e = new IntegerExp(loc, loc.linnum, Type::tint32);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10222 e = e->castTo(sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10223 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10224 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10225
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10226

Mercurial > projects > ldc

annotate dmd2/expression.c @ 1526:54b3c1394d62