projects/ldc: dmd2/expression.c annotate

annotate dmd2/expression.c @ 1461:49e6f9d2d33f

Fix a segfault in ldc2 (use of an uninitialized variable).

author	Frits van Bommel <fvbommel wxs.nl>
date	Tue, 02 Jun 2009 19:54:02 +0200
parents	638d16625da2
children	dd72f56ad211

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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	383 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	384 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	385
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	386 /******************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	387 * Perform semantic() on an array of Expressions.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	388 */
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 void arrayExpressionSemantic(Expressions exps, Scope sc)
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 if (exps)
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 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	395 { Expression e = (Expression )exps->data[i];
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 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	398 exps->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	399 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	400 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	403
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 * Perform canThrow() on an array of Expressions.
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	409 int arrayExpressionCanThrow(Expressions *exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	410 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	411 if (exps)
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 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	414 { Expression e = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	415 if (e && e->canThrow())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	416 return 1;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	419 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	420 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	421 #endif
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 * Expand tuples.
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	427 void expandTuples(Expressions *exps)
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 //printf("expandTuples()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	430 if (exps)
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 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	433 { Expression arg = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	434 if (!arg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	435 continue;
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 // Look for tuple with 0 members
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	438 if (arg->op == TOKtype)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	439 { TypeExp e = (TypeExp )arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	440 if (e->type->toBasetype()->ty == Ttuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	441 { TypeTuple tt = (TypeTuple )e->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	442
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	443 if (!tt->arguments \|\| tt->arguments->dim == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	444 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	445 exps->remove(i);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	446 if (i == exps->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	447 return;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	448 i--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	449 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	450 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	451 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	452 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	453
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	454 // Inline expand all the tuples
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	455 while (arg->op == TOKtuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	456 { TupleExp te = (TupleExp )arg;
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 exps->remove(i); // remove arg
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	459 exps->insert(i, te->exps); // replace with tuple contents
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	460 if (i == exps->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	461 return; // empty tuple, no more arguments
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	462 arg = (Expression *)exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	463 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	464 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	465 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	466 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	467
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 * Preprocess arguments to function.
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 void preFunctionArguments(Loc loc, Scope sc, Expressions exps)
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 if (exps)
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 expandTuples(exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	477
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	478 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	479 { Expression arg = (Expression )exps->data[i];
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 if (!arg->type)
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 #ifdef DEBUG
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	484 if (!global.gag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	485 printf("1: \n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	486 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	487 arg->error("%s is not an expression", arg->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	488 arg = new IntegerExp(arg->loc, 0, Type::tint32);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	489 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	490
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	491 arg = resolveProperties(sc, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	492 exps->data[i] = (void *) arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	493
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	494 //arg->rvalue();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	495 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	496 if (arg->type->ty == Tfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	497 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	498 arg = new AddrExp(arg->loc, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	499 arg = arg->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	500 exps->data[i] = (void *) arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	501 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	502 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	503 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	504 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	505 }
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 /*********************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	508 * Call copy constructor for struct value argument.
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	511 Expression callCpCtor(Loc loc, Scope sc, Expression *e)
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 Type *tb = e->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	514 assert(tb->ty == Tstruct);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	515 StructDeclaration sd = ((TypeStruct )tb)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	516 if (sd->cpctor)
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 /* Create a variable tmp, and replace the argument e with:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	519 * (tmp = e),tmp
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	520 * and let AssignExp() handle the construction.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	521 * 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	522 * directly onto the stack.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	523 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	524 Identifier *idtmp = Lexer::uniqueId("__tmp");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	525 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	526 Expression *ae = new DeclarationExp(loc, tmp);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	527 e = new CommaExp(loc, ae, new VarExp(loc, tmp));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	528 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	529 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	530 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	531 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	532 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	533
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 * 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	536 * the arguments[] need to be adjusted:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	537 * 1. implicitly convert argument to the corresponding parameter type
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	538 * 2. add default arguments for any missing arguments
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	539 * 3. do default promotions on arguments corresponding to ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	540 * 4. add hidden _arguments[] argument
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	541 * 5. call copy constructor for struct value arguments
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	542 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	543
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	544 void functionArguments(Loc loc, Scope sc, TypeFunction tf, Expressions *arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	545 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	546 unsigned n;
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 //printf("functionArguments()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	549 assert(arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	550 size_t nargs = arguments ? arguments->dim : 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	551 size_t nparams = Argument::dim(tf->parameters);
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 if (nargs > nparams && tf->varargs == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	554 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	555
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	556 n = (nargs > nparams) ? nargs : nparams; // n = max(nargs, nparams)
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 int done = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	559 for (size_t i = 0; i < n; i++)
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 Expression *arg;
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 if (i < nargs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	564 arg = (Expression *)arguments->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	565 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	566 arg = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	567 Type *tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	568
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	569 if (i < nparams)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	570 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	571 Argument *p = Argument::getNth(tf->parameters, i);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	572
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	573 if (!arg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	574 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	575 if (!p->defaultArg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	576 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	577 if (tf->varargs == 2 && i + 1 == nparams)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	578 goto L2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	579 error(loc, "expected %zu function arguments, not %zu", nparams, nargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	580 break;
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 arg = p->defaultArg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	583 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	584 if (arg->op == TOKdefault)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	585 { DefaultInitExp de = (DefaultInitExp )arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	586 arg = de->resolve(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	587 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	588 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	589 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	590 arg = arg->copy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	591 arguments->push(arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	592 nargs++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	593 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	594
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	595 if (tf->varargs == 2 && i + 1 == nparams)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	596 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	597 //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	598 if (arg->implicitConvTo(p->type))
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 (nargs != nparams)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	601 error(loc, "expected %zu function arguments, not %zu", nparams, nargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	602 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	603 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	604 L2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	605 Type *tb = p->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	606 Type *tret = p->isLazyArray();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	607 switch (tb->ty)
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 case Tsarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	610 case Tarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	611 { // Create a static array variable v of type arg->type
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	612 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	613 /* 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	614 this; pass a null array value instead. Could also
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	615 just make a one-element array. */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	616 if (nargs - i == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	617 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	618 arg = new NullExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	619 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	620 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	621 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	622 Identifier *id = Lexer::uniqueId("__arrayArg");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	623 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	624 t = t->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	625 VarDeclaration *v = new VarDeclaration(loc, t, id, new VoidInitializer(loc));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	626 v->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	627 v->parent = sc->parent;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	628 //sc->insert(v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	629
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	630 Expression *c = new DeclarationExp(0, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	631 c->type = v->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	632
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	633 for (size_t u = i; u < nargs; u++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	634 { Expression a = (Expression )arguments->data[u];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	635 if (tret && !((TypeArray *)tb)->next->equals(a->type))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	636 a = a->toDelegate(sc, tret);
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 Expression *e = new VarExp(loc, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	639 e = new IndexExp(loc, e, new IntegerExp(u + 1 - nparams));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	640 AssignExp *ae = new AssignExp(loc, e, a);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	641 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	642 ae->op = TOKconstruct;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	643 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	644 if (c)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	645 c = new CommaExp(loc, c, ae);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	646 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	647 c = ae;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	648 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	649 arg = new VarExp(loc, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	650 if (c)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	651 arg = new CommaExp(loc, c, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	652 break;
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 case Tclass:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	655 { /* Set arg to be:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	656 * new Tclass(arg0, arg1, ..., argn)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	657 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	658 Expressions *args = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	659 args->setDim(nargs - i);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	660 for (size_t u = i; u < nargs; u++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	661 args->data[u - i] = arguments->data[u];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	662 arg = new NewExp(loc, NULL, NULL, p->type, args);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	663 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	664 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	665 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	666 if (!arg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	667 { error(loc, "not enough arguments");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	668 return;
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 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	671 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	672 arg = arg->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	673 //printf("\targ = '%s'\n", arg->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	674 arguments->setDim(i + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	675 done = 1;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	678 L1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	679 if (!(p->storageClass & STClazy && p->type->ty == Tvoid))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	680 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	681 if (p->type != arg->type)
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 //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	684 arg = arg->implicitCastTo(sc, p->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	685 arg = arg->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	686 }
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 if (p->storageClass & STCref)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	689 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	690 arg = arg->toLvalue(sc, arg);
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 else if (p->storageClass & STCout)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	693 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	694 arg = arg->modifiableLvalue(sc, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	695 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	696
1461 49e6f9d2d33f Fix a segfault in ldc2 (use of an uninitialized variable). Frits van Bommel <fvbommel wxs.nl> parents: 1452 diff changeset	697 tb = arg->type->toBasetype();
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	698 // LDC we don't want this!
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	699 #if !IN_LLVM
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	700 // Convert static arrays to pointers
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	701 if (tb->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	702 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	703 arg = arg->checkToPointer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	704 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	705 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	706 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	707 if (tb->ty == Tstruct && !(p->storageClass & (STCref \| STCout)))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	708 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	709 arg = callCpCtor(loc, sc, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	710 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	711 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	712
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	713 // Convert lazy argument to a delegate
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	714 if (p->storageClass & STClazy)
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 arg = arg->toDelegate(sc, p->type);
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	719 /* Look for arguments that cannot 'escape' from the called
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	720 * function.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	721 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	722 if (!tf->parameterEscapes(p))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	723 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	724 /* Function literals can only appear once, so if this
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	725 * appearance was scoped, there cannot be any others.
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 (arg->op == TOKfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	728 { FuncExp fe = (FuncExp )arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	729 fe->fd->tookAddressOf = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	730 }
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 /* For passing a delegate to a scoped parameter,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	733 * this doesn't count as taking the address of it.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	734 * We only worry about 'escaping' references to the function.
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 else if (arg->op == TOKdelegate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	737 { DelegateExp de = (DelegateExp )arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	738 if (de->e1->op == TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	739 { VarExp ve = (VarExp )de->e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	740 FuncDeclaration *f = ve->var->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	741 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	742 { f->tookAddressOf--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	743 //printf("tookAddressOf = %d\n", f->tookAddressOf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	744 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	745 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	746 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	747 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	748 #endif
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 else
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 // If not D linkage, do promotions
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	754 // LDC: don't do promotions on intrinsics
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	755 if (tf->linkage != LINKd && tf->linkage != LINKintrinsic)
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 // Promote bytes, words, etc., to ints
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	758 arg = arg->integralPromotions(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	759
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	760 // Promote floats to doubles
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	761 switch (arg->type->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	762 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	763 case Tfloat32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	764 arg = arg->castTo(sc, Type::tfloat64);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	765 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	766
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	767 case Timaginary32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	768 arg = arg->castTo(sc, Type::timaginary64);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	769 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	770 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	773 // Convert static arrays to dynamic arrays
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	774 tb = arg->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	775 if (tb->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	776 { TypeSArray ts = (TypeSArray )tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	777 Type *ta = ts->next->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	778 if (ts->size(arg->loc) == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	779 { arg = new NullExp(arg->loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	780 arg->type = ta;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	781 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	782 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	783 arg = arg->castTo(sc, ta);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	784 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	785 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	786 if (tb->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	787 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	788 arg = callCpCtor(loc, sc, arg);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	791 // Give error for overloaded function addresses
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	792 if (arg->op == TOKsymoff)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	793 { SymOffExp se = (SymOffExp )arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	794 if (se->hasOverloads && !se->var->isFuncDeclaration()->isUnique())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	795 arg->error("function %s is overloaded", arg->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	796 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	797 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	798 arg->rvalue();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	799 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	800 arg = arg->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	801 arguments->data[i] = (void *) arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	802 if (done)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	803 break;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	806 #if !IN_LLVM
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	807 // If D linkage and variadic, add _arguments[] as first argument
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	808 if (tf->linkage == LINKd && tf->varargs == 1)
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 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	811
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	812 e = createTypeInfoArray(sc, (Expression **)&arguments->data[nparams],
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	813 arguments->dim - nparams);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	814 arguments->insert(0, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	815 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	816 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	817 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	818
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	819 /**************************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	820 * Write expression out to buf, but wrap it
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	821 * in ( ) if its precedence is less than pr.
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 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	825 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	826 //if (precedence[e->op] == 0) e->dump(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	827 if (precedence[e->op] < pr \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	828 /* Despite precedence, we don't allow a<b<c expressions.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	829 * They must be parenthesized.
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 (pr == PREC_rel && precedence[e->op] == pr))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	832 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	833 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	834 e->toCBuffer(buf, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	835 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	836 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	837 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	838 e->toCBuffer(buf, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	839 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	840
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 * Write out argument list to buf.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	843 */
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 void argsToCBuffer(OutBuffer buf, Expressions arguments, HdrGenState *hgs)
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 if (arguments)
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 for (size_t i = 0; i < arguments->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	850 { Expression arg = (Expression )arguments->data[i];
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 (arg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	853 { if (i)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	854 buf->writeByte(',');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	855 expToCBuffer(buf, hgs, arg, PREC_assign);
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	858 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	859 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	860
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 * Write out argument types to buf.
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 void argExpTypesToCBuffer(OutBuffer buf, Expressions arguments, HdrGenState *hgs)
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 if (arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	868 { OutBuffer argbuf;
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 for (size_t i = 0; i < arguments->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	871 { Expression arg = (Expression )arguments->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	872
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	873 if (i)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	874 buf->writeByte(',');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	875 argbuf.reset();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	876 arg->type->toCBuffer2(&argbuf, hgs, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	877 buf->write(&argbuf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	878 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	879 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	880 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	881
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	882 /****************************** Expression ************************/
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 Expression::Expression(Loc loc, enum TOK op, int size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	885 : loc(loc)
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 //printf("Expression::Expression(op = %d) this = %p\n", op, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	888 this->loc = loc;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	889 this->op = op;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	890 this->size = size;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	891 type = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	892 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	893
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	894 Expression *Expression::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	895 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	896 //printf("Expression::syntaxCopy()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	897 //dump(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	898 return copy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	899 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	900
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 * Does not do a deep copy.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	903 */
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 Expression *Expression::copy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	906 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	907 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	908 if (!size)
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 #ifdef DEBUG
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	911 fprintf(stdmsg, "No expression copy for: %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	912 printf("op = %d\n", op);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	913 dump(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	914 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	915 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	916 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	917 e = (Expression *)mem.malloc(size);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	918 //printf("Expression::copy(op = %d) e = %p\n", op, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	919 return (Expression *)memcpy(e, this, size);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	920 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	921
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	922 /**************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	923 * Semantically analyze Expression.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	924 * Determine types, fold constants, etc.
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	927 Expression Expression::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	928 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	929 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	930 printf("Expression::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	931 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	932 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	933 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	934 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	935 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	936 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	939 /**********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	940 * Try to run semantic routines.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	941 * If they fail, return NULL.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	942 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	943
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	944 Expression Expression::trySemantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	945 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	946 unsigned errors = global.errors;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	947 global.gag++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	948 Expression *e = semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	949 global.gag--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	950 if (errors != global.errors)
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 global.errors = errors;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	953 e = NULL;
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 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	956 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	957
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	958 void Expression::print()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	959 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	960 fprintf(stdmsg, "%s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	961 fflush(stdmsg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	962 }
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 char *Expression::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	965 { OutBuffer *buf;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	966 HdrGenState hgs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	967
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	968 memset(&hgs, 0, sizeof(hgs));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	969 buf = new OutBuffer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	970 toCBuffer(buf, &hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	971 return buf->toChars();
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	974 void Expression::error(const char *format, ...)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	975 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	976 va_list ap;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	977 va_start(ap, format);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	978 ::verror(loc, format, ap);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	979 va_end( ap );
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	980 }
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 void Expression::warning(const char *format, ...)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	983 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	984 if (global.params.warnings && !global.gag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	985 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	986 va_list ap;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	987 va_start(ap, format);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	988 ::vwarning(loc, format, ap);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	989 va_end( ap );
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 }
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 void Expression::rvalue()
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 if (type && type->toBasetype()->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	996 { error("expression %s is void and has no value", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	997 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	998 dump(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	999 halt();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1000 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1001 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1002 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1005 Expression Expression::combine(Expression e1, Expression *e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1006 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1007 if (e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1008 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1009 if (e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1010 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1011 e1 = new CommaExp(e1->loc, e1, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1012 e1->type = e2->type;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1015 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1016 e1 = e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1017 return e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1018 }
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 dinteger_t Expression::toInteger()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1021 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1022 //printf("Expression %s\n", Token::toChars(op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1023 error("Integer constant expression expected instead of %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1024 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1025 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1026
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1027 uinteger_t Expression::toUInteger()
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 //printf("Expression %s\n", Token::toChars(op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1030 return (uinteger_t)toInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1031 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1032
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1033 real_t Expression::toReal()
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 error("Floating point constant expression expected instead of %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1036 return 0;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1039 real_t Expression::toImaginary()
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 error("Floating point constant expression expected instead of %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1042 return 0;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1045 complex_t Expression::toComplex()
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 error("Floating point constant expression expected instead of %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1048 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1049 return complex_t(real_t(0)); // %% nicer
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1050 #else
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 #endif
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1055 void Expression::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1056 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1057 buf->writestring(Token::toChars(op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1058 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1059
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1060 void Expression::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1061 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1062 error("expression %s is not a valid template value argument", toChars());
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
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 * Return !=0 if expression is an lvalue.
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1069 int Expression::isLvalue()
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 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1072 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1073 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1074
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 * Give error if we're not an lvalue.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1077 * If we can, convert expression to be an lvalue.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1078 */
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 Expression Expression::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1081 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1082 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1083 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1084 else if (!loc.filename)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1085 loc = e->loc;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1086 error("%s is not an lvalue", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1087 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1088 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1089
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1090 Expression Expression::modifiableLvalue(Scope sc, Expression *e)
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 //printf("Expression::modifiableLvalue() %s, type = %s\n", toChars(), type->toChars());
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 // 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	1095 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1096 if (type && (!type->isMutable() \|\| !type->isAssignable()))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1097 error("%s is not mutable", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1098 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1099 return toLvalue(sc, e);
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 /************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1103 * Detect cases where pointers to the stack can 'escape' the
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1104 * lifetime of the stack frame.
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1107 void Expression::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1108 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1109 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1110
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1111 void Expression::checkScalar()
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 if (!type->isscalar())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1114 error("'%s' is not a scalar, it is a %s", toChars(), type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1115 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1116
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1117 void Expression::checkNoBool()
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 if (type->toBasetype()->ty == Tbool)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1120 error("operation not allowed on bool '%s'", toChars());
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 Expression *Expression::checkIntegral()
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->isintegral())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1126 { 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	1127 return new ErrorExp();
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1130 }
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 Expression *Expression::checkArithmetic()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1133 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1134 if (!type->isintegral() && !type->isfloating())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1135 { 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	1136 return new ErrorExp();
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1139 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1140
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1141 void Expression::checkDeprecated(Scope sc, Dsymbol s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1142 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1143 s->checkDeprecated(loc, sc);
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1147 void Expression::checkPurity(Scope sc, FuncDeclaration f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1148 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1149 #if 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1150 if (sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1151 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1152 FuncDeclaration *outerfunc=sc->func;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1153 while (outerfunc->toParent2() && outerfunc->toParent2()->isFuncDeclaration())
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 outerfunc = outerfunc->toParent2()->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1156 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1157 if (outerfunc->isPure() && !sc->intypeof && (!f->isNested() && !f->isPure()))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1158 error("pure function '%s' cannot call impure function '%s'\n",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1159 sc->func->toChars(), f->toChars());
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 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1162 if (sc->func && sc->func->isPure() && !sc->intypeof && !f->isPure())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1163 error("pure function '%s' cannot call impure function '%s'\n",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1164 sc->func->toChars(), f->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1165 #endif
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1168
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 * Check for expressions that have no use.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1171 * Input:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1172 * 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	1173 * side effects
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1174 * 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	1175 * for useless subexpressions
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1176 * 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	1177 * has side effects
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1178 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1179
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1180 int Expression::checkSideEffect(int flag)
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 if (flag == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1183 { if (op == TOKimport)
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 error("%s has no effect", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1186 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1187 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1188 error("%s has no effect in expression (%s)",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1189 Token::toChars(op), toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1190 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1191 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1192 }
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 * Check that expression can be tested for true or false.
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1198 Expression *Expression::checkToBoolean()
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 // Default is 'yes' - do nothing
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 #ifdef DEBUG
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1203 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1204 dump(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1205 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1206
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1207 if (!type->checkBoolean())
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 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	1210 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1211 return this;
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
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 */
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 Expression *Expression::checkToPointer()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1218 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1219 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1220 Type *tb;
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 //printf("Expression::checkToPointer()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1223 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1224
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1225 // If C static array, convert to pointer
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1226 tb = type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1227 if (tb->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1228 { TypeSArray ts = (TypeSArray )tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1229 if (ts->size(loc) == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1230 e = new NullExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1231 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1232 e = new AddrExp(loc, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1233 e->type = ts->next->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1234 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1235 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1238 /******************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1239 * Take address of expression.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1240 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1241
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1242 Expression Expression::addressOf(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1243 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1244 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1245
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1246 //printf("Expression::addressOf()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1247 e = toLvalue(sc, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1248 e = new AddrExp(loc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1249 e->type = type->pointerTo();
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 * If this is a reference, dereference it.
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::deref()
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 //printf("Expression::deref()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1260 if (type->ty == Treference)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1261 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1262
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1263 e = new PtrExp(loc, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1264 e->type = ((TypeReference *)type)->next;
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 return this;
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
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 * 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	1272 */
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 int Expression::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1275 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1276 return FALSE;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1279 /********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1280 * 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	1281 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1282
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1283 int Expression::isBit()
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 return FALSE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1286 }
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 * Can this expression throw an exception?
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1290 * Valid only after semantic() pass.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1291 */
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 int Expression::canThrow()
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1296 return FALSE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1297 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1298 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1299 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1300 }
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 Expressions Expression::arraySyntaxCopy(Expressions exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1305 { Expressions *a = NULL;
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 if (exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1308 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1309 a = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1310 a->setDim(exps->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1311 for (int i = 0; i < a->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1312 { Expression e = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1313
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1314 e = e->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1315 a->data[i] = e;
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 return a;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1319 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1320
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1321 /****************************** IntegerExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1322
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1323 IntegerExp::IntegerExp(Loc loc, dinteger_t value, Type *type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1324 : Expression(loc, TOKint64, sizeof(IntegerExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1325 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1326 //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	1327 if (type && !type->isscalar())
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 //printf("%s, loc = %d\n", toChars(), loc.linnum);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1330 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	1331 type = Type::terror;
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 this->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1334 this->value = value;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1337 IntegerExp::IntegerExp(dinteger_t value)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1338 : Expression(0, TOKint64, sizeof(IntegerExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1339 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1340 this->type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1341 this->value = value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1342 }
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 int IntegerExp::equals(Object *o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1345 { IntegerExp *ne;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1346
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1347 if (this == o \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1348 (((Expression *)o)->op == TOKint64 &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1349 ((ne = (IntegerExp *)o), type->toHeadMutable()->equals(ne->type->toHeadMutable())) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1350 value == ne->value))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1351 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1352 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1353 }
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 char *IntegerExp::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1356 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1357 #if 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1358 return Expression::toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1359 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1360 static char buffer[sizeof(value) * 3 + 1];
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 sprintf(buffer, "%jd", value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1363 return buffer;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1364 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1365 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1366
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1367 dinteger_t IntegerExp::toInteger()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1368 { Type *t;
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 t = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1371 while (t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1372 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1373 switch (t->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1374 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1375 case Tbit:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1376 case Tbool: value = (value != 0); break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1377 case Tint8: value = (d_int8) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1378 case Tchar:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1379 case Tuns8: value = (d_uns8) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1380 case Tint16: value = (d_int16) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1381 case Twchar:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1382 case Tuns16: value = (d_uns16) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1383 case Tint32: value = (d_int32) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1384 case Tdchar:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1385 case Tuns32: value = (d_uns32) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1386 case Tint64: value = (d_int64) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1387 case Tuns64: value = (d_uns64) value; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1388 case Tpointer:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1389 if (PTRSIZE == 4)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1390 value = (d_uns32) value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1391 else if (PTRSIZE == 8)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1392 value = (d_uns64) value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1393 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1394 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1395 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1396
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1397 case Tenum:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1398 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1399 TypeEnum te = (TypeEnum )t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1400 t = te->sym->memtype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1401 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1402 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1403
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1404 case Ttypedef:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1405 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1406 TypeTypedef tt = (TypeTypedef )t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1407 t = tt->sym->basetype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1408 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1409 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1410
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1411 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1412 /* This can happen if errors, such as
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1413 * the type is painted on like in fromConstInitializer().
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1414 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1415 if (!global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1416 { type->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1417 assert(0);
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 break;
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 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1422 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1423 return value;
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 real_t IntegerExp::toReal()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1427 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1428 Type *t;
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 toInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1431 t = type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1432 if (t->ty == Tuns64)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1433 return (real_t)(d_uns64)value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1434 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1435 return (real_t)(d_int64)value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1436 }
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 real_t IntegerExp::toImaginary()
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 return (real_t) 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1441 }
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 complex_t IntegerExp::toComplex()
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 return toReal();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1446 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1447
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1448 int IntegerExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1449 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1450 return result ? value != 0 : value == 0;
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 Expression IntegerExp::semantic(Scope sc)
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 if (!type)
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 // Determine what the type of this number is
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1458 dinteger_t number = value;
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 if (number & 0x8000000000000000LL)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1461 type = Type::tuns64;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1462 else if (number & 0xFFFFFFFF80000000LL)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1463 type = Type::tint64;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1464 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1465 type = Type::tint32;
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1468 { if (!type->deco)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1469 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1470 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1471 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1472 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1473
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1474 Expression IntegerExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1475 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1476 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1477 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1478 else if (!loc.filename)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1479 loc = e->loc;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1480 e->error("constant %s is not an lvalue", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1481 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1482 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1483
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1484 void IntegerExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 dinteger_t v = toInteger();
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 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1489 { Type *t = type;
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 L1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1492 switch (t->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1493 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1494 case Tenum:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1495 { TypeEnum te = (TypeEnum )t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1496 buf->printf("cast(%s)", te->sym->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1497 t = te->sym->memtype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1498 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1499 }
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 case Ttypedef:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1502 { TypeTypedef tt = (TypeTypedef )t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1503 buf->printf("cast(%s)", tt->sym->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1504 t = tt->sym->basetype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1505 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1506 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1507
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1508 case Twchar: // BUG: need to cast(wchar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1509 case Tdchar: // BUG: need to cast(dchar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1510 if ((uinteger_t)v > 0xFF)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1511 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1512 buf->printf("'\\U%08x'", (unsigned)v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1513 break;
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 case Tchar:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1516 if (v == '\'')
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1517 buf->writestring("'\\''");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1518 else if (isprint(v) && v != '\\')
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1519 buf->printf("'%c'", (int)v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1520 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1521 buf->printf("'\\x%02x'", (int)v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1522 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1523
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1524 case Tint8:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1525 buf->writestring("cast(byte)");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1526 goto L2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1527
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1528 case Tint16:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1529 buf->writestring("cast(short)");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1530 goto L2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1531
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1532 case Tint32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1533 L2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1534 buf->printf("%d", (int)v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1535 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1536
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1537 case Tuns8:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1538 buf->writestring("cast(ubyte)");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1539 goto L3;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1540
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1541 case Tuns16:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1542 buf->writestring("cast(ushort)");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1543 goto L3;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1544
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1545 case Tuns32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1546 L3:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1547 buf->printf("%du", (unsigned)v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1548 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1549
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1550 case Tint64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1551 buf->printf("%jdL", v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1552 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1553
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1554 case Tuns64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1555 L4:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1556 buf->printf("%juLU", v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1557 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1558
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1559 case Tbit:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1560 case Tbool:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1561 buf->writestring((char *)(v ? "true" : "false"));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1562 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1563
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1564 case Tpointer:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1565 buf->writestring("cast(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1566 buf->writestring(t->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1567 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1568 if (PTRSIZE == 4)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1569 goto L3;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1570 else if (PTRSIZE == 8)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1571 goto L4;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1572 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1573 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1574
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1575 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1576 /* This can happen if errors, such as
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1577 * the type is painted on like in fromConstInitializer().
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 if (!global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1580 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1581 #ifdef DEBUG
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1582 t->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1583 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1584 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1585 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1586 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1587 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1588 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1589 else if (v & 0x8000000000000000LL)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1590 buf->printf("0x%jx", v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1591 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1592 buf->printf("%jd", v);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1595 void IntegerExp::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1596 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1597 if ((sinteger_t)value < 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1598 buf->printf("N%jd", -value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1599 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1600 buf->printf("%jd", value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1601 }
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 /****************************** ErrorExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1604
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1605 /* Use this expression for error recovery.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1606 * 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	1607 */
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 ErrorExp::ErrorExp()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1610 : IntegerExp(0, 0, Type::terror)
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1613
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1614 void ErrorExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1615 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1616 buf->writestring("__error");
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1619 /****************************** RealExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1620
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1621 RealExp::RealExp(Loc loc, real_t value, Type *type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1622 : Expression(loc, TOKfloat64, sizeof(RealExp))
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 //printf("RealExp::RealExp(%Lg)\n", value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1625 this->value = value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1626 this->type = type;
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 char *RealExp::toChars()
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 char buffer[sizeof(value) * 3 + 8 + 1 + 1];
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 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1634 value.format(buffer, sizeof(buffer));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1635 if (type->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1636 strcat(buffer, "i");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1637 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1638 sprintf(buffer, type->isimaginary() ? "%Lgi" : "%Lg", value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1639 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1640 assert(strlen(buffer) < sizeof(buffer));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1641 return mem.strdup(buffer);
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 dinteger_t RealExp::toInteger()
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 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1647 return toReal().toInt();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1648 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1649 return (sinteger_t) toReal();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1650 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1651 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1652
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1653 uinteger_t RealExp::toUInteger()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1654 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1655 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1656 return (uinteger_t) toReal().toInt();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1657 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1658 return (uinteger_t) toReal();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1659 #endif
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1662 real_t RealExp::toReal()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1663 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1664 return type->isreal() ? value : 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1665 }
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 real_t RealExp::toImaginary()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1668 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1669 return type->isreal() ? 0 : value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1670 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1671
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1672 complex_t RealExp::toComplex()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1673 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1674 #ifdef __DMC__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1675 return toReal() + toImaginary() * I;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1676 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1677 return complex_t(toReal(), toImaginary());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1678 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1679 }
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 * Test to see if two reals are the same.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1683 * Regard NaN's as equivalent.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1684 * Regard +0 and -0 as different.
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 int RealEquals(real_t x1, real_t x2)
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 //#if 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1690 // return (Port::isNan(x1) && Port::isNan(x2)) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1691 //#elif __APPLE__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1692 #if __APPLE__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1693 return (__inline_isnan(x1) && __inline_isnan(x2)) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1694 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1695 return // special case nans
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1696 (isnan(x1) && isnan(x2)) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1697 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1698 // and zero, in order to distinguish +0 from -0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1699 (x1 == 0 && x2 == 0 && 1./x1 == 1./x2) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1700 // otherwise just compare
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1701 (x1 != 0. && x1 == x2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1702 }
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 int RealExp::equals(Object *o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1705 { RealExp *ne;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1706
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1707 if (this == o \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1708 (((Expression *)o)->op == TOKfloat64 &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1709 ((ne = (RealExp *)o), type->toHeadMutable()->equals(ne->type->toHeadMutable())) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1710 RealEquals(value, ne->value)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1711 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1712 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1713 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1714 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1715 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1716
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1717 Expression RealExp::semantic(Scope sc)
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 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1720 type = Type::tfloat64;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1721 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1722 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1723 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1724 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1725
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1726 int RealExp::isBool(int result)
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 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1729 return result ? (! value.isZero()) : (value.isZero());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1730 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1731 return result ? (value != 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1732 : (value == 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1733 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1734 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1735
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1736 void floatToBuffer(OutBuffer buf, Type type, real_t value)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1737 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1738 /* In order to get an exact representation, try converting it
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1739 * to decimal then back again. If it matches, use it.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1740 * If it doesn't, fall back to hex, which is
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1741 * always exact.
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 char buffer[25];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1744 sprintf(buffer, "%Lg", value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1745 assert(strlen(buffer) < sizeof(buffer));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1746 #if _WIN32 && __DMC__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1747 char *save = __locale_decpoint;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1748 __locale_decpoint = ".";
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1749 real_t r = strtold(buffer, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1750 __locale_decpoint = save;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1751 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1752 real_t r = strtold(buffer, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1753 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1754 if (r == value) // if exact duplication
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1755 buf->writestring(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1756 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1757 buf->printf("%La", value); // ensure exact duplication
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1758
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1759 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1760 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1761 Type *t = type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1762 switch (t->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1763 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1764 case Tfloat32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1765 case Timaginary32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1766 case Tcomplex32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1767 buf->writeByte('F');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1768 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1769
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1770 case Tfloat80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1771 case Timaginary80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1772 case Tcomplex80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1773 buf->writeByte('L');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1774 break;
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 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1777 break;
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 if (t->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1780 buf->writeByte('i');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1781 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1782 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1783
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1784 void RealExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1785 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1786 floatToBuffer(buf, type, value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1787 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1788
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1789 void realToMangleBuffer(OutBuffer *buf, real_t value)
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 /* Rely on %A to get portable mangling.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1792 * Must munge result to get only identifier characters.
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 * Possible values from %A => mangled result
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1795 * NAN => NAN
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1796 * -INF => NINF
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1797 * INF => INF
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1798 * -0X1.1BC18BA997B95P+79 => N11BC18BA997B95P79
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1799 * 0X1.9P+2 => 19P2
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1802 //#if 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1803 // if (Port::isNan(value))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1804 //#elif __APPLE__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1805 #if __APPLE__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1806 if (__inline_isnan(value))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1807 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1808 if (isnan(value))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1809 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1810 buf->writestring("NAN"); // no -NAN bugs
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1811 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1812 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1813 char buffer[32];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1814 int n = sprintf(buffer, "%LA", value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1815 assert(n > 0 && n < sizeof(buffer));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1816 for (int i = 0; i < n; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1817 { char c = buffer[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1818
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1819 switch (c)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1820 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1821 case '-':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1822 buf->writeByte('N');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1823 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1824
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1825 case '+':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1826 case 'X':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1827 case '.':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1828 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1829
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1830 case '0':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1831 if (i < 2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1832 break; // skip leading 0X
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1833 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1834 buf->writeByte(c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1835 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1836 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1837 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1838 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1841 void RealExp::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1842 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1843 buf->writeByte('e');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1844 realToMangleBuffer(buf, value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1845 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1846
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1847
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1848 /****************************** ComplexExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1849
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1850 ComplexExp::ComplexExp(Loc loc, complex_t value, Type *type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1851 : Expression(loc, TOKcomplex80, sizeof(ComplexExp))
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 this->value = value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1854 this->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1855 //printf("ComplexExp::ComplexExp(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1856 }
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 char *ComplexExp::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1859 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1860 char buffer[sizeof(value) * 3 + 8 + 1];
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 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1863 char buf1[sizeof(value) * 3 + 8 + 1];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1864 char buf2[sizeof(value) * 3 + 8 + 1];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1865 creall(value).format(buf1, sizeof(buf1));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1866 cimagl(value).format(buf2, sizeof(buf2));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1867 sprintf(buffer, "(%s+%si)", buf1, buf2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1868 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1869 sprintf(buffer, "(%Lg+%Lgi)", creall(value), cimagl(value));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1870 assert(strlen(buffer) < sizeof(buffer));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1871 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1872 return mem.strdup(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1873 }
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 dinteger_t ComplexExp::toInteger()
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 return (sinteger_t) toReal().toInt();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1879 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1880 return (sinteger_t) toReal();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1881 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1882 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1883
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1884 uinteger_t ComplexExp::toUInteger()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1885 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1886 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1887 return (uinteger_t) toReal().toInt();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1888 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1889 return (uinteger_t) toReal();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1890 #endif
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1893 real_t ComplexExp::toReal()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1894 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1895 return creall(value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1896 }
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 real_t ComplexExp::toImaginary()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1899 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1900 return cimagl(value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1901 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1902
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1903 complex_t ComplexExp::toComplex()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1904 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1905 return value;
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 int ComplexExp::equals(Object *o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1909 { ComplexExp *ne;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1910
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1911 if (this == o \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1912 (((Expression *)o)->op == TOKcomplex80 &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1913 ((ne = (ComplexExp *)o), type->toHeadMutable()->equals(ne->type->toHeadMutable())) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1914 RealEquals(creall(value), creall(ne->value)) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1915 RealEquals(cimagl(value), cimagl(ne->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 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1919 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1920 }
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 Expression ComplexExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1923 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1924 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1925 type = Type::tcomplex80;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1926 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1927 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1928 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1929 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1930
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1931 int ComplexExp::isBool(int result)
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 if (result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1934 return (bool)(value);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1935 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1936 return !value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1937 }
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 void ComplexExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1940 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1941 /* Print as:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1942 * (re+imi)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1943 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1944 #ifdef IN_GCC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1945 char buf1[sizeof(value) * 3 + 8 + 1];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1946 char buf2[sizeof(value) * 3 + 8 + 1];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1947 creall(value).format(buf1, sizeof(buf1));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1948 cimagl(value).format(buf2, sizeof(buf2));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1949 buf->printf("(%s+%si)", buf1, buf2);
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 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1952 floatToBuffer(buf, type, creall(value));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1953 buf->writeByte('+');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1954 floatToBuffer(buf, type, cimagl(value));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1955 buf->writestring("i)");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1956 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1957 }
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 void ComplexExp::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1960 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1961 buf->writeByte('c');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1962 real_t r = toReal();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1963 realToMangleBuffer(buf, r);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1964 buf->writeByte('c'); // separate the two
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1965 r = toImaginary();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1966 realToMangleBuffer(buf, r);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1967 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1968
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1969 /****************************** IdentifierExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1970
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1971 IdentifierExp::IdentifierExp(Loc loc, Identifier *ident)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1972 : Expression(loc, TOKidentifier, sizeof(IdentifierExp))
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 this->ident = ident;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1977 Expression IdentifierExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1978 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1979 Dsymbol *s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1980 Dsymbol *scopesym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1981
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1982 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1983 printf("IdentifierExp::semantic('%s')\n", ident->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1984 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1985 s = sc->search(loc, ident, &scopesym);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1986 if (s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1987 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1988 WithScopeSymbol *withsym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1989
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1990 /* 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	1991 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1992 withsym = scopesym->isWithScopeSymbol();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1993 if (withsym)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1994 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1995 s = s->toAlias();
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 // Same as wthis.ident
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1998 if (s->needThis() \|\| s->isTemplateDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	1999 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2000 e = new VarExp(loc, withsym->withstate->wthis);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2001 e = new DotIdExp(loc, e, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2002 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2003 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2004 { Type *t = withsym->withstate->wthis->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2005 if (t->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2006 t = ((TypePointer *)t)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2007 e = typeDotIdExp(loc, t, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2008 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2009 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2010 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2011 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2012 /* If f is really a function template,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2013 * then replace f with the function template declaration.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2014 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2015 FuncDeclaration *f = s->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2016 if (f && f->parent)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2017 { TemplateInstance *ti = f->parent->isTemplateInstance();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2018
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2019 if (ti &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2020 !ti->isTemplateMixin() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2021 (ti->name == f->ident \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2022 ti->toAlias()->ident == f->ident)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2023 &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2024 ti->tempdecl && ti->tempdecl->onemember)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2025 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2026 TemplateDeclaration *tempdecl = ti->tempdecl;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2027 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	2028 tempdecl = tempdecl->overroot; // then get the start
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2029 e = new TemplateExp(loc, tempdecl);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2030 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2031 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2032 }
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 // Haven't done overload resolution yet, so pass 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2035 e = new DsymbolExp(loc, s, 1);
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 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2038 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2039 error("undefined identifier %s", ident->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2040 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2041 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2042 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2043
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2044 char *IdentifierExp::toChars()
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 return ident->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2047 }
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 void IdentifierExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2050 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2051 if (hgs->hdrgen)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2052 buf->writestring(ident->toHChars2());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2053 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2054 buf->writestring(ident->toChars());
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2057 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2058 int IdentifierExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2059 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2060 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2061 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2062 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2063
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2064 Expression IdentifierExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2065 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2066 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2067 tym = tybasic(e1->ET->Tty);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2068 if (!(tyscalar(tym) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2069 tym == TYstruct \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2070 tym == TYarray && e->Eoper == TOKaddr))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2071 synerr(EM_lvalue); // lvalue expected
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2072 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2073 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2074 }
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 /****************************** DollarExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2077
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2078 DollarExp::DollarExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2079 : IdentifierExp(loc, Id::dollar)
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 }
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 /****************************** DsymbolExp ************************/
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 DsymbolExp::DsymbolExp(Loc loc, Dsymbol *s, int hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2086 : Expression(loc, TOKdsymbol, sizeof(DsymbolExp))
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 this->s = s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2089 this->hasOverloads = hasOverloads;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2090 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2091
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2092 Expression DsymbolExp::semantic(Scope sc)
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 LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2095 printf("DsymbolExp::semantic('%s')\n", s->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2096 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2097
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2098 Lagain:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2099 EnumMember *em;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2100 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2101 VarDeclaration *v;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2102 FuncDeclaration *f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2103 FuncLiteralDeclaration *fld;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2104 OverloadSet *o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2105 Declaration *d;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2106 ClassDeclaration *cd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2107 ClassDeclaration *thiscd = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2108 Import *imp;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2109 Package *pkg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2110 Type *t;
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 //printf("DsymbolExp:: %p '%s' is a symbol\n", this, toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2113 //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	2114 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2115 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2116 if (!s->isFuncDeclaration()) // functions are checked after overloading
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2117 checkDeprecated(sc, s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2118 s = s->toAlias();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2119 //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	2120 if (!s->isFuncDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2121 checkDeprecated(sc, s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2122
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2123 if (sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2124 thiscd = sc->func->parent->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2125
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2126 // 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	2127 if (s->needThis())
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 if (hasThis(sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2130 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2131 && !s->isFuncDeclaration()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2132 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2133 )
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 // Supply an implicit 'this', as in
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2136 // this.ident
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2137
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2138 DotVarExp *de;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2139
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2140 de = new DotVarExp(loc, new ThisExp(loc), s->isDeclaration());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2141 return de->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2142 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2143 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2144
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2145 em = s->isEnumMember();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2146 if (em)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2147 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2148 e = em->value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2149 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2150 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2151 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2152 v = s->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2153 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2154 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2155 //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	2156 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2157 { type = v->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2158 if (!v->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2159 { error("forward reference of %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2160 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2161 }
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 e = new VarExp(loc, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2164 e->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2165 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2166 return e->deref();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2167 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2168 fld = s->isFuncLiteralDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2169 if (fld)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2170 { //printf("'%s' is a function literal\n", fld->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2171 e = new FuncExp(loc, fld);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2172 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2173 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2174 f = s->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2175 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2176 { //printf("'%s' is a function\n", f->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2177 return new VarExp(loc, f, hasOverloads);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2178 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2179 o = s->isOverloadSet();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2180 if (o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2181 { //printf("'%s' is an overload set\n", o->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2182 return new OverExp(o);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2183 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2184 cd = s->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2185 if (cd && thiscd && cd->isBaseOf(thiscd, NULL) && sc->func->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2186 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2187 // 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	2188 DotTypeExp *dte;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2189
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2190 dte = new DotTypeExp(loc, new ThisExp(loc), s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2191 return dte->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2192 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2193 imp = s->isImport();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2194 if (imp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2195 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2196 if (!imp->pkg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2197 { error("forward reference of import %s", imp->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2198 return this;
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 ScopeExp *ie = new ScopeExp(loc, imp->pkg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2201 return ie->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2202 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2203 pkg = s->isPackage();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2204 if (pkg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2205 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2206 ScopeExp *ie;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2207
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2208 ie = new ScopeExp(loc, pkg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2209 return ie->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 Module *mod = s->isModule();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2212 if (mod)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2213 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2214 ScopeExp *ie;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2215
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2216 ie = new ScopeExp(loc, mod);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2217 return ie->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2218 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2219
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2220 t = s->getType();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2221 if (t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2222 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2223 return new TypeExp(loc, t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2224 }
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 TupleDeclaration *tup = s->isTupleDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2227 if (tup)
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 e = new TupleExp(loc, tup);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2230 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2231 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2232 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2233
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2234 TemplateInstance *ti = s->isTemplateInstance();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2235 if (ti && !global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2236 { if (!ti->semanticdone)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2237 ti->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2238 s = ti->inst->toAlias();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2239 if (!s->isTemplateInstance())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2240 goto Lagain;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2241 e = new ScopeExp(loc, ti);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2242 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2243 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2246 TemplateDeclaration *td = s->isTemplateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2247 if (td)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2248 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2249 e = new TemplateExp(loc, td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2250 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2251 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2254 Lerr:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2255 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	2256 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2257 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2258 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2259
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2260 char *DsymbolExp::toChars()
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 return s->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2263 }
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 void DsymbolExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 buf->writestring(s->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2268 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2269
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2270 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2271 int DsymbolExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2272 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2273 return 1;
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2276
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2277 Expression DsymbolExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2278 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2279 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2280 tym = tybasic(e1->ET->Tty);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2281 if (!(tyscalar(tym) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2282 tym == TYstruct \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2283 tym == TYarray && e->Eoper == TOKaddr))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2284 synerr(EM_lvalue); // lvalue expected
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2285 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2286 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2289 /****************************** ThisExp ************************/
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 ThisExp::ThisExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2292 : Expression(loc, TOKthis, sizeof(ThisExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2293 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2294 //printf("ThisExp::ThisExp() loc = %d\n", loc.linnum);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2295 var = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2296 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2297
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2298 Expression ThisExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2299 { FuncDeclaration *fd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2300 FuncDeclaration *fdthis;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2301 int nested = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2302
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2303 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2304 printf("ThisExp::semantic()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2305 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2306 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2307 { //assert(global.errors \|\| var);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2308 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2309 }
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 /* Special case for typeof(this) and typeof(super) since both
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2312 * 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	2313 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2314 if (sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2315 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2316 // Find enclosing struct or class
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2317 for (Dsymbol *s = sc->parent; 1; s = s->parent)
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 if (!s)
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 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	2322 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2323 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2324 ClassDeclaration *cd = s->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2325 if (cd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2326 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2327 type = cd->type;
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 StructDeclaration *sd = s->isStructDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2331 if (sd)
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 #if STRUCTTHISREF
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2334 type = sd->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2335 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2336 type = sd->type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2337 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2338 return this;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2341 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2342
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2343 fdthis = sc->parent->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2344 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	2345 if (!fd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2346 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2347
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2348 assert(fd->vthis);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2349 var = fd->vthis;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2350 assert(var->parent);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2351 type = var->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2352 var->isVarDeclaration()->checkNestedReference(sc, loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2353 if (!sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2354 sc->callSuper \|= CSXthis;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2355 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2356
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2357 Lerr:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2358 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	2359 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2360 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2361 }
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 int ThisExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2364 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2365 return result ? TRUE : FALSE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2366 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2367
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2368 void ThisExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2369 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2370 buf->writestring("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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2373 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2374 int ThisExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2375 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2376 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2377 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2378 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2379
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2380 Expression ThisExp::toLvalue(Scope sc, Expression *e)
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 return this;
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 /****************************** SuperExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2386
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2387 SuperExp::SuperExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2388 : ThisExp(loc)
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 op = TOKsuper;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2391 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2392
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2393 Expression SuperExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2394 { FuncDeclaration *fd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2395 FuncDeclaration *fdthis;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2396 ClassDeclaration *cd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2397 Dsymbol *s;
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 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2400 printf("SuperExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2401 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2402 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2403 return this;
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 /* Special case for typeof(this) and typeof(super) since both
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2406 * 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	2407 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2408 if (sc->intypeof)
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 // Find enclosing class
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2411 for (Dsymbol *s = sc->parent; 1; s = s->parent)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2412 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2413 ClassDeclaration *cd;
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 (!s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2416 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2417 error("%s is not in a class scope", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2418 goto Lerr;
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 cd = s->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2421 if (cd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2422 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2423 cd = cd->baseClass;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2424 if (!cd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2425 { error("class %s has no 'super'", s->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2426 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2427 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2428 type = cd->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2429 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2430 }
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 }
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 fdthis = sc->parent->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2435 fd = hasThis(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2436 if (!fd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2437 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2438 assert(fd->vthis);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2439 var = fd->vthis;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2440 assert(var->parent);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2441
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2442 s = fd->toParent();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2443 while (s && s->isTemplateInstance())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2444 s = s->toParent();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2445 assert(s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2446 cd = s->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2447 //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	2448 if (!cd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2449 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2450 if (!cd->baseClass)
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 error("no base class for %s", cd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2453 type = fd->vthis->type;
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 else
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 type = cd->baseClass->type;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2460 var->isVarDeclaration()->checkNestedReference(sc, loc);
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 if (!sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2463 sc->callSuper \|= CSXsuper;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2464 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2465
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2466
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2467 Lerr:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2468 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	2469 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2470 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2471 }
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 void SuperExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 buf->writestring("super");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2476 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2477
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2478
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2479 /****************************** NullExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2480
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2481 NullExp::NullExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2482 : Expression(loc, TOKnull, sizeof(NullExp))
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 committed = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2485 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2486
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2487 Expression NullExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2488 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2489 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2490 printf("NullExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2491 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2492 // NULL is the same as (void *)0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2493 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2494 type = Type::tvoid->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2495 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2498 int NullExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2499 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2500 return result ? FALSE : TRUE;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2503 void NullExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2504 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2505 buf->writestring("null");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2506 }
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 void NullExp::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2509 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2510 buf->writeByte('n');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2511 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2512
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2513 /****************************** StringExp ************************/
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 StringExp::StringExp(Loc loc, char *string)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2516 : Expression(loc, TOKstring, sizeof(StringExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2517 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2518 this->string = string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2519 this->len = strlen(string);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2520 this->sz = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2521 this->committed = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2522 this->postfix = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2523 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2524
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2525 StringExp::StringExp(Loc loc, void *string, size_t len)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2526 : Expression(loc, TOKstring, sizeof(StringExp))
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 this->string = string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2529 this->len = len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2530 this->sz = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2531 this->committed = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2532 this->postfix = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2533 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2534
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2535 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	2536 : Expression(loc, TOKstring, sizeof(StringExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2537 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2538 this->string = string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2539 this->len = len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2540 this->sz = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2541 this->committed = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2542 this->postfix = postfix;
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 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2546 Expression *StringExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2547 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2548 printf("StringExp::syntaxCopy() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2549 return copy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2550 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2551 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2552
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2553 int StringExp::equals(Object *o)
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 //printf("StringExp::equals('%s')\n", o->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2556 if (o && o->dyncast() == DYNCAST_EXPRESSION)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2557 { Expression e = (Expression )o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2558
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2559 if (e->op == TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2560 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2561 return compare(o) == 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2562 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2563 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2564 return FALSE;
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 char *StringExp::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2568 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2569 OutBuffer buf;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2570 HdrGenState hgs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2571 char *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2572
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2573 memset(&hgs, 0, sizeof(hgs));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2574 toCBuffer(&buf, &hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2575 buf.writeByte(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2576 p = (char *)buf.data;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2577 buf.data = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2578 return p;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2581 Expression StringExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2582 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2583 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2584 printf("StringExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2585 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2586 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2587 { OutBuffer buffer;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2588 size_t newlen = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2589 const char *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2590 size_t u;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2591 unsigned c;
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 switch (postfix)
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 case 'd':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2596 for (u = 0; u < len;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2597 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2598 p = utf_decodeChar((unsigned char *)string, len, &u, &c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2599 if (p)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2600 { error("%s", p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2601 break;
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2604 { buffer.write4(c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2605 newlen++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2606 }
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 buffer.write4(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2609 string = buffer.extractData();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2610 len = newlen;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2611 sz = 4;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2612 //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	2613 type = new TypeDArray(Type::tdchar->invariantOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2614 committed = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2615 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2616
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2617 case 'w':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2618 for (u = 0; u < len;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2619 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2620 p = utf_decodeChar((unsigned char *)string, len, &u, &c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2621 if (p)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2622 { error("%s", p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2623 break;
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2626 { buffer.writeUTF16(c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2627 newlen++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2628 if (c >= 0x10000)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2629 newlen++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2630 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2631 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2632 buffer.writeUTF16(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2633 string = buffer.extractData();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2634 len = newlen;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2635 sz = 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2636 //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	2637 type = new TypeDArray(Type::twchar->invariantOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2638 committed = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2639 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2640
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2641 case 'c':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2642 committed = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2643 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2644 //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	2645 type = new TypeDArray(Type::tchar->invariantOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2646 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2647 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2648 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2649 //type = type->invariantOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2650 //printf("type = %s\n", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2651 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2652 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2653 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2654
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2655 /**********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2656 * Return length of string.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2657 */
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 size_t StringExp::length()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2660 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2661 size_t result = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2662 dchar_t c;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2663 const char *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2664
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2665 switch (sz)
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 case 1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2668 for (size_t u = 0; u < len;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2669 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2670 p = utf_decodeChar((unsigned char *)string, len, &u, &c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2671 if (p)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2672 { error("%s", p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2673 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2674 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2675 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2676 result++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2677 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2678 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2679
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2680 case 2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2681 for (size_t u = 0; u < len;)
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 p = utf_decodeWchar((unsigned short *)string, len, &u, &c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2684 if (p)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2685 { error("%s", p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2686 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2687 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2688 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2689 result++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2690 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2691 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2692
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2693 case 4:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2694 result = len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2695 break;
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 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2698 assert(0);
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 return result;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2701 }
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 /****************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2704 * Convert string to char[].
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2705 */
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 StringExp StringExp::toUTF8(Scope sc)
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 if (sz != 1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2710 { // Convert to UTF-8 string
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2711 committed = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2712 Expression *e = castTo(sc, Type::tchar->arrayOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2713 e = e->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2714 assert(e->op == TOKstring);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2715 StringExp se = (StringExp )e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2716 assert(se->sz == 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2717 return se;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2718 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2719 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2720 }
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 int StringExp::compare(Object *obj)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2723 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2724 // 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	2725 StringExp se2 = (StringExp )(obj);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2726
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2727 // 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	2728 // for StringExp's.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2729 if (!se2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2730 return 5;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2731
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2732 assert(se2->op == TOKstring);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2733
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2734 int len1 = len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2735 int len2 = se2->len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2736
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2737 if (len1 == len2)
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 switch (sz)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2740 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2741 case 1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2742 return strcmp((char )string, (char )se2->string);
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 case 2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2745 { unsigned u;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2746 d_wchar s1 = (d_wchar )string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2747 d_wchar s2 = (d_wchar )se2->string;
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 for (u = 0; u < len; u++)
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 (s1[u] != s2[u])
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2752 return s1[u] - s2[u];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2753 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2754 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2755
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2756 case 4:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2757 { unsigned u;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2758 d_dchar s1 = (d_dchar )string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2759 d_dchar s2 = (d_dchar )se2->string;
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 for (u = 0; u < len; u++)
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 if (s1[u] != s2[u])
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2764 return s1[u] - s2[u];
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2767 break;
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 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2770 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2771 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2772 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2773 return len1 - len2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2774 }
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 StringExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2777 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2778 return result ? TRUE : FALSE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2779 }
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 unsigned StringExp::charAt(size_t i)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2782 { unsigned value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2783
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2784 switch (sz)
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 1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2787 value = ((unsigned char *)string)[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2788 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2789
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2790 case 2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2791 value = ((unsigned short *)string)[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2792 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2793
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2794 case 4:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2795 value = ((unsigned int *)string)[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2796 break;
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 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2799 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2800 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2801 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2802 return value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2803 }
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 void StringExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2806 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2807 buf->writeByte('"');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2808 for (size_t i = 0; i < len; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2809 { unsigned c = charAt(i);
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 switch (c)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2812 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2813 case '"':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2814 case '\\':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2815 if (!hgs->console)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2816 buf->writeByte('\\');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2817 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2818 if (c <= 0xFF)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2819 { if (c <= 0x7F && (isprint(c) \|\| hgs->console))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2820 buf->writeByte(c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2821 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2822 buf->printf("\\x%02x", c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2823 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2824 else if (c <= 0xFFFF)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2825 buf->printf("\\x%02x\\x%02x", c & 0xFF, c >> 8);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2826 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2827 buf->printf("\\x%02x\\x%02x\\x%02x\\x%02x",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2828 c & 0xFF, (c >> 8) & 0xFF, (c >> 16) & 0xFF, c >> 24);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2829 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2830 }
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 buf->writeByte('"');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2833 if (postfix)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2834 buf->writeByte(postfix);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2837 void StringExp::toMangleBuffer(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2838 { char m;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2839 OutBuffer tmp;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2840 const char *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2841 unsigned c;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2842 size_t u;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2843 unsigned char *q;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2844 unsigned qlen;
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 /* Write string in UTF-8 format
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2847 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2848 switch (sz)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2849 { case 1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2850 m = 'a';
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2851 q = (unsigned char *)string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2852 qlen = len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2853 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2854 case 2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2855 m = 'w';
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2856 for (u = 0; u < len; )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2857 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2858 p = utf_decodeWchar((unsigned short *)string, len, &u, &c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2859 if (p)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2860 error("%s", p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2861 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2862 tmp.writeUTF8(c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2863 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2864 q = tmp.data;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2865 qlen = tmp.offset;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2866 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2867 case 4:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2868 m = 'd';
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2869 for (u = 0; u < len; u++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2870 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2871 c = ((unsigned *)string)[u];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2872 if (!utf_isValidDchar(c))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2873 error("invalid UCS-32 char \\U%08x", c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2874 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2875 tmp.writeUTF8(c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2876 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2877 q = tmp.data;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2878 qlen = tmp.offset;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2879 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2880 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2881 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2882 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2883 buf->writeByte(m);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2884 buf->printf("%d_", qlen);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2885 for (size_t i = 0; i < qlen; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2886 buf->printf("%02x", q[i]);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2889 /********************** ArrayLiteralExp **********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2890
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2891 // [ e1, e2, e3, ... ]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2892
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2893 ArrayLiteralExp::ArrayLiteralExp(Loc loc, Expressions *elements)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2894 : Expression(loc, TOKarrayliteral, sizeof(ArrayLiteralExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2895 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2896 this->elements = elements;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2897 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2898
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2899 ArrayLiteralExp::ArrayLiteralExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2900 : Expression(loc, TOKarrayliteral, sizeof(ArrayLiteralExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2901 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2902 elements = new Expressions;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2903 elements->push(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2904 }
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 Expression *ArrayLiteralExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2907 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2908 return new ArrayLiteralExp(loc, arraySyntaxCopy(elements));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2909 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2910
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2911 Expression ArrayLiteralExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2912 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2913 Type *t0 = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2914
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2915 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2916 printf("ArrayLiteralExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2917 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2918 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2919 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2920
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2921 // Run semantic() on each element
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2922 for (int i = 0; i < elements->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2923 { e = (Expression *)elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2924 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2925 elements->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2926 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2927 expandTuples(elements);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2928 for (int i = 0; i < elements->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2929 { e = (Expression *)elements->data[i];
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 if (!e->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2932 error("%s has no value", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2933 e = resolveProperties(sc, e);
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 unsigned char committed = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2936 if (e->op == TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2937 committed = ((StringExp *)e)->committed;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2938
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2939 if (!t0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2940 { t0 = e->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2941 // Convert any static arrays to dynamic arrays
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2942 if (t0->ty == Tsarray)
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 t0 = ((TypeSArray *)t0)->next->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2945 e = e->implicitCastTo(sc, t0);
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2949 e = e->implicitCastTo(sc, t0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2950 if (!committed && e->op == TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2951 { StringExp se = (StringExp )e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2952 se->committed = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2953 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2954 elements->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2955 }
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 (!t0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2958 t0 = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2959 type = new TypeSArray(t0, new IntegerExp(elements->dim));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2960 type = type->semantic(loc, sc);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2964 int ArrayLiteralExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2965 { int f = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2966
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2967 for (size_t i = 0; i < elements->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2968 { Expression e = (Expression )elements->data[i];
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 f \|= e->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2971 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2972 if (flag == 0 && f == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2973 Expression::checkSideEffect(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2974 return f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2975 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2976
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2977 int ArrayLiteralExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2978 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2979 size_t dim = elements ? elements->dim : 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2980 return result ? (dim != 0) : (dim == 0);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2983 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2984 int ArrayLiteralExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2985 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2986 return 1; // because it can fail allocating memory
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2987 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2988 #endif
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 void ArrayLiteralExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2991 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2992 buf->writeByte('[');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2993 argsToCBuffer(buf, elements, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2994 buf->writeByte(']');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	2995 }
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 void ArrayLiteralExp::toMangleBuffer(OutBuffer *buf)
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 size_t dim = elements ? elements->dim : 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3000 buf->printf("A%zu", dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3001 for (size_t i = 0; i < dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3002 { Expression e = (Expression )elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3003 e->toMangleBuffer(buf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3004 }
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 /********************** AssocArrayLiteralExp **********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3008
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3009 // [ key0 : value0, key1 : value1, ... ]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3010
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3011 AssocArrayLiteralExp::AssocArrayLiteralExp(Loc loc,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3012 Expressions keys, Expressions values)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3013 : Expression(loc, TOKassocarrayliteral, sizeof(AssocArrayLiteralExp))
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 assert(keys->dim == values->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3016 this->keys = keys;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3017 this->values = values;
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 Expression *AssocArrayLiteralExp::syntaxCopy()
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 return new AssocArrayLiteralExp(loc,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3023 arraySyntaxCopy(keys), arraySyntaxCopy(values));
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 Expression AssocArrayLiteralExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3027 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3028 Type *tkey = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3029 Type *tvalue = NULL;
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 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3032 printf("AssocArrayLiteralExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3033 #endif
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 // Run semantic() on each element
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3036 for (size_t i = 0; i < keys->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3037 { Expression key = (Expression )keys->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3038 Expression value = (Expression )values->data[i];
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 key = key->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3041 value = value->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3042
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3043 keys->data[i] = (void *)key;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3044 values->data[i] = (void *)value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3045 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3046 expandTuples(keys);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3047 expandTuples(values);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3048 if (keys->dim != values->dim)
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 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	3051 keys->setDim(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3052 values->setDim(0);
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 for (size_t i = 0; i < keys->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3055 { Expression key = (Expression )keys->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3056 Expression value = (Expression )values->data[i];
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 if (!key->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3059 error("%s has no value", key->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3060 if (!value->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3061 error("%s has no value", value->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3062 key = resolveProperties(sc, key);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3063 value = resolveProperties(sc, value);
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 if (!tkey)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3066 tkey = key->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3067 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3068 key = key->implicitCastTo(sc, tkey);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3069 keys->data[i] = (void *)key;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3070
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3071 if (!tvalue)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3072 tvalue = value->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3073 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3074 value = value->implicitCastTo(sc, tvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3075 values->data[i] = (void *)value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3076 }
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 if (!tkey)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3079 tkey = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3080 if (!tvalue)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3081 tvalue = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3082 type = new TypeAArray(tvalue, tkey);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3083 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3084 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3087 int AssocArrayLiteralExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3088 { int f = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3089
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3090 for (size_t i = 0; i < keys->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3091 { Expression key = (Expression )keys->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3092 Expression value = (Expression )values->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3093
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3094 f \|= key->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3095 f \|= value->checkSideEffect(2);
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 if (flag == 0 && f == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3098 Expression::checkSideEffect(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3099 return f;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3102 int AssocArrayLiteralExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3103 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3104 size_t dim = keys->dim;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3105 return result ? (dim != 0) : (dim == 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3106 }
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 DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3109 int AssocArrayLiteralExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3110 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3111 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3112 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3113 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3114
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3115 void AssocArrayLiteralExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3116 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3117 buf->writeByte('[');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3118 for (size_t i = 0; i < keys->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3119 { Expression key = (Expression )keys->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3120 Expression value = (Expression )values->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3121
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3122 if (i)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3123 buf->writeByte(',');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3124 expToCBuffer(buf, hgs, key, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3125 buf->writeByte(':');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3126 expToCBuffer(buf, hgs, value, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3127 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3128 buf->writeByte(']');
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3131 void AssocArrayLiteralExp::toMangleBuffer(OutBuffer *buf)
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 size_t dim = keys->dim;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3134 buf->printf("A%zu", dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3135 for (size_t i = 0; i < dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3136 { Expression key = (Expression )keys->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3137 Expression value = (Expression )values->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3138
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3139 key->toMangleBuffer(buf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3140 value->toMangleBuffer(buf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3141 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3142 }
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 /********************** StructLiteralExp **********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3145
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3146 // sd( e1, e2, e3, ... )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3147
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3148 StructLiteralExp::StructLiteralExp(Loc loc, StructDeclaration sd, Expressions elements)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3149 : Expression(loc, TOKstructliteral, sizeof(StructLiteralExp))
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 this->sd = sd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3152 this->elements = elements;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3153 #if IN_DMD
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3154 this->sym = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3155 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3156 this->soffset = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3157 this->fillHoles = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3158 }
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 Expression *StructLiteralExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3161 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3162 return new StructLiteralExp(loc, sd, arraySyntaxCopy(elements));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3163 }
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 Expression StructLiteralExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3166 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3167 int nfields = sd->fields.dim - sd->isnested;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3168
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3169 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3170 printf("StructLiteralExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3171 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3172 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3173 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3174
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3175 // Run semantic() on each element
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3176 for (size_t i = 0; i < elements->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3177 { e = (Expression *)elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3178 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3179 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3180 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3181 elements->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3182 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3183 expandTuples(elements);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3184 size_t offset = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3185 for (size_t i = 0; i < elements->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3186 { e = (Expression *)elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3187 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3188 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3189
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3190 if (!e->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3191 error("%s has no value", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3192 e = resolveProperties(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3193 if (i >= nfields)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3194 { error("more initializers than fields of %s", sd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3195 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3196 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3197 Dsymbol s = (Dsymbol )sd->fields.data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3198 VarDeclaration *v = s->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3199 assert(v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3200 if (v->offset < offset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3201 error("overlapping initialization for %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3202 offset = v->offset + v->type->size();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3203
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3204 Type *telem = v->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3205 while (!e->implicitConvTo(telem) && telem->toBasetype()->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3206 { /* Static array initialization, as in:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3207 * T[3][5] = e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3208 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3209 telem = telem->toBasetype()->nextOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3210 }
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 e = e->implicitCastTo(sc, telem);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3213
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3214 elements->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3215 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3216
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3217 /* Fill out remainder of elements[] with default initializers for fields[]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3218 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3219 for (size_t i = elements->dim; i < nfields; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3220 { Dsymbol s = (Dsymbol )sd->fields.data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3221 VarDeclaration *v = s->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3222 assert(v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3223 assert(!v->isThisDeclaration());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3224
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3225 if (v->offset < offset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3226 { e = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3227 sd->hasUnions = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3228 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3229 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3230 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3231 if (v->init)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3232 { e = v->init->toExpression();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3233 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3234 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	3235 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3236 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3237 { e = v->type->defaultInit();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3238 e->loc = loc;
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 offset = v->offset + v->type->size();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3241 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3242 elements->push(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3243 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3244
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3245 type = sd->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3246 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3247 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3248
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3249 /**************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3250 * Gets expression at offset of type.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3251 * Returns NULL if not found.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3252 */
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 Expression StructLiteralExp::getField(Type type, unsigned offset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3255 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3256 //printf("StructLiteralExp::getField(this = %s, type = %s, offset = %u)\n",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3257 // /toChars()/"", type->toChars(), offset);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3258 Expression *e = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3259 int i = getFieldIndex(type, offset);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3260
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3261 if (i != -1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3262 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3263 //printf("\ti = %d\n", i);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3264 assert(i < elements->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3265 e = (Expression *)elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3266 if (e)
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 e = e->copy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3269 e->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3270 }
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 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3275 /************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3276 * Get index of field.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3277 * Returns -1 if not found.
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3280 int StructLiteralExp::getFieldIndex(Type *type, unsigned offset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3281 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3282 /* 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	3283 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3284 if (elements->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3285 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3286 for (size_t i = 0; i < sd->fields.dim; i++)
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 Dsymbol s = (Dsymbol )sd->fields.data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3289 VarDeclaration *v = s->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3290 assert(v);
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 if (offset == v->offset &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3293 type->size() == v->type->size())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3294 { Expression e = (Expression )elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3295 if (e)
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 return i;
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 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3300 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3301 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3302 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3303 return -1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3304 }
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3307 int StructLiteralExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3308 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3309 return 1;
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3312
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 Removed in LDC. See declaration.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3315 Expression StructLiteralExp::toLvalue(Scope sc, Expression *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 return this;
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 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3320
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 int StructLiteralExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3323 { int f = 0;
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 for (size_t i = 0; i < elements->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3326 { Expression e = (Expression )elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3327 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3328 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3329
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3330 f \|= e->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3331 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3332 if (flag == 0 && f == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3333 Expression::checkSideEffect(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3334 return f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3335 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3336
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3337 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3338 int StructLiteralExp::canThrow()
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 arrayExpressionCanThrow(elements);
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 #endif
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 void StructLiteralExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 buf->writestring(sd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3347 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3348 argsToCBuffer(buf, elements, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3349 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3350 }
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 void StructLiteralExp::toMangleBuffer(OutBuffer *buf)
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 size_t dim = elements ? elements->dim : 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3355 buf->printf("S%zu", dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3356 for (size_t i = 0; i < dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3357 { Expression e = (Expression )elements->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3358 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3359 e->toMangleBuffer(buf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3360 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3361 buf->writeByte('v'); // 'v' for void
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 /********************** TypeDotIdExp **********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3366
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3367 /* Things like:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3368 * int.size
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3369 * foo.size
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3370 * (foo).size
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3371 * cast(foo).size
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3374 Expression typeDotIdExp(Loc loc, Type type, Identifier *ident)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3375 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3376 return new DotIdExp(loc, new TypeExp(loc, type), ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3377 }
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 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3381
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3382 // Mainly just a placeholder
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3383
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3384 TypeExp::TypeExp(Loc loc, Type *type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3385 : Expression(loc, TOKtype, sizeof(TypeExp))
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 //printf("TypeExp::TypeExp(%s)\n", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3388 this->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3389 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3390
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3391 Expression *TypeExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3392 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3393 //printf("TypeExp::syntaxCopy()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3394 return new TypeExp(loc, type->syntaxCopy());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3395 }
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 Expression TypeExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3398 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3399 //printf("TypeExp::semantic(%s)\n", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3400 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3401 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3402 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3403
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3404 void TypeExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 type->toCBuffer(buf, NULL, hgs);
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
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3411 // Mainly just a placeholder
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3412
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3413 ScopeExp::ScopeExp(Loc loc, ScopeDsymbol *pkg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3414 : Expression(loc, TOKimport, sizeof(ScopeExp))
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 //printf("ScopeExp::ScopeExp(pkg = '%s')\n", pkg->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3417 //static int count; if (++count == 38) (char)0=0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3418 this->sds = pkg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3419 }
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 Expression *ScopeExp::syntaxCopy()
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 ScopeExp se = new ScopeExp(loc, (ScopeDsymbol )sds->syntaxCopy(NULL));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3424 return se;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3425 }
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 Expression ScopeExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3428 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3429 TemplateInstance *ti;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3430 ScopeDsymbol *sds2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3431
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3432 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3433 printf("+ScopeExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3434 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3435 Lagain:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3436 ti = sds->isTemplateInstance();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3437 if (ti && !global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3438 { Dsymbol *s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3439 if (!ti->semanticdone)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3440 ti->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3441 s = ti->inst->toAlias();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3442 sds2 = s->isScopeDsymbol();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3443 if (!sds2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3444 { Expression *e;
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 //printf("s = %s, '%s'\n", s->kind(), s->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3447 if (ti->withsym)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3448 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3449 // Same as wthis.s
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3450 e = new VarExp(loc, ti->withsym->withstate->wthis);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3451 e = new DotVarExp(loc, e, s->isDeclaration());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3452 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3453 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3454 e = new DsymbolExp(loc, s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3455 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3456 //printf("-1ScopeExp::semantic()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3457 return e;
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 if (sds2 != sds)
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 sds = sds2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3462 goto Lagain;
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("sds = %s, '%s'\n", sds->kind(), sds->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3465 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3466 else
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 //printf("sds = %s, '%s'\n", sds->kind(), sds->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3469 //printf("\tparent = '%s'\n", sds->parent->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3470 sds->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3471 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3472 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3473 //printf("-2ScopeExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3474 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3475 }
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 void ScopeExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3478 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3479 if (sds->isTemplateInstance())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3480 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3481 sds->toCBuffer(buf, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3482 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3483 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3484 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3485 buf->writestring(sds->kind());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3486 buf->writestring(" ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3487 buf->writestring(sds->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3488 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3489 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3490
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3491 /******************** TemplateExp ************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3492
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3493 // Mainly just a placeholder
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3494
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3495 TemplateExp::TemplateExp(Loc loc, TemplateDeclaration *td)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3496 : Expression(loc, TOKtemplate, sizeof(TemplateExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3497 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3498 //printf("TemplateExp(): %s\n", td->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3499 this->td = td;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3502 void TemplateExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3503 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3504 buf->writestring(td->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3505 }
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 void TemplateExp::rvalue()
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 error("template %s has no value", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3510 }
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 /******************** NewExp ************************************/
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 /* thisexp.new(newargs) newtype(arguments) */
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 NewExp::NewExp(Loc loc, Expression thisexp, Expressions newargs,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3517 Type newtype, Expressions arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3518 : Expression(loc, TOKnew, sizeof(NewExp))
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 this->thisexp = thisexp;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3521 this->newargs = newargs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3522 this->newtype = newtype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3523 this->arguments = arguments;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3524 member = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3525 allocator = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3526 onstack = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3527 }
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 Expression *NewExp::syntaxCopy()
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 return new NewExp(loc,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3532 thisexp ? thisexp->syntaxCopy() : NULL,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3533 arraySyntaxCopy(newargs),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3534 newtype->syntaxCopy(), arraySyntaxCopy(arguments));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3535 }
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 Expression NewExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3539 { int i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3540 Type *tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3541 ClassDeclaration *cdthis = NULL;
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 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3544 printf("NewExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3545 if (thisexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3546 printf("\tthisexp = %s\n", thisexp->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3547 printf("\tnewtype: %s\n", newtype->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3548 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3549 if (type) // if semantic() already run
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3550 return this;
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 Lagain:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3553 if (thisexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3554 { thisexp = thisexp->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3555 cdthis = thisexp->type->isClassHandle();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3556 if (cdthis)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3557 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3558 sc = sc->push(cdthis);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3559 type = newtype->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3560 sc = sc->pop();
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 else
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 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	3565 type = newtype->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3566 }
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3569 type = newtype->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3570 newtype = type; // in case type gets cast to something else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3571 tb = type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3572 //printf("tb: %s, deco = %s\n", tb->toChars(), tb->deco);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3573
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3574 arrayExpressionSemantic(newargs, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3575 preFunctionArguments(loc, sc, newargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3576 arrayExpressionSemantic(arguments, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3577 preFunctionArguments(loc, sc, arguments);
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 if (thisexp && tb->ty != Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3580 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	3581
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3582 if (tb->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3583 { TypeFunction *tf;
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 TypeClass tc = (TypeClass )(tb);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3586 ClassDeclaration *cd = tc->sym->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3587 if (cd->isInterfaceDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3588 error("cannot create instance of interface %s", cd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3589 else if (cd->isAbstract())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3590 { error("cannot create instance of abstract class %s", cd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3591 for (int i = 0; i < cd->vtbl.dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3592 { FuncDeclaration fd = ((Dsymbol )cd->vtbl.data[i])->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3593 if (fd && fd->isAbstract())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3594 error("function %s is abstract", fd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3595 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3596 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3597 checkDeprecated(sc, cd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3598 if (cd->isNested())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3599 { /* We need a 'this' pointer for the nested class.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3600 * Ensure we have the right one.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3601 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3602 Dsymbol *s = cd->toParent2();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3603 ClassDeclaration *cdn = s->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3604 FuncDeclaration *fdn = s->isFuncDeclaration();
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 //printf("cd isNested, cdn = %s\n", cdn ? cdn->toChars() : "null");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3607 if (cdn)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3608 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3609 if (!cdthis)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3610 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3611 // Supply an implicit 'this' and try again
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3612 thisexp = new ThisExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3613 for (Dsymbol *sp = sc->parent; 1; sp = sp->parent)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3614 { if (!sp)
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 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	3617 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3618 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3619 ClassDeclaration *cdp = sp->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3620 if (!cdp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3621 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3622 if (cdp == cdn \|\| cdn->isBaseOf(cdp, NULL))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3623 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3624 // Add a '.outer' and try again
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3625 thisexp = new DotIdExp(loc, thisexp, Id::outer);
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 (!global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3628 goto Lagain;
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 (cdthis)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3631 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3632 //printf("cdthis = %s\n", cdthis->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3633 if (cdthis != cdn && !cdn->isBaseOf(cdthis, NULL))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3634 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	3635 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3636 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3637 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3638 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3639 for (Dsymbol *sf = sc->func; 1; sf= sf->toParent2()->isFuncDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3640 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3641 if (!sf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3642 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3643 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	3644 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3645 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3646 printf("sf = %s\n", sf->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3647 AggregateDeclaration *ad = sf->isThis();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3648 if (ad && (ad == cdn \|\| cdn->isBaseOf(ad->isClassDeclaration(), NULL)))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3649 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3650 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3651 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3652 #endif
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 else if (fdn) // Possible problems here, no obvious solution when merging
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3655 { /* The nested class cd is nested inside a function,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3656 * we'll let getEthis() look for errors.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3657 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3658 //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	3659 if (thisexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3660 // Because thisexp cannot be a function frame pointer
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3661 error("e.new is only for allocating nested classes");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3662 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3663 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3664 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3665 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3666 else if (thisexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3667 error("e.new is only for allocating nested classes");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3668
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3669 FuncDeclaration *f = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3670 if (cd->ctor)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3671 f = resolveFuncCall(sc, loc, cd->ctor, NULL, NULL, arguments, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3672 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3673 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3674 checkDeprecated(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3675 member = f->isCtorDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3676 assert(member);
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 cd->accessCheck(loc, sc, member);
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 tf = (TypeFunction *)f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3681
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3682 if (!arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3683 arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3684 functionArguments(loc, sc, tf, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3685 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3686 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3687 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3688 if (arguments && arguments->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3689 error("no constructor for %s", cd->toChars());
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3692 if (cd->aggNew)
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 // Prepend the size argument to newargs[]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3695 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	3696 if (!newargs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3697 newargs = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3698 newargs->shift(e);
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 f = cd->aggNew->overloadResolve(loc, NULL, newargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3701 allocator = f->isNewDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3702 assert(allocator);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3703
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3704 tf = (TypeFunction *)f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3705 functionArguments(loc, sc, tf, newargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3706 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3707 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3708 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3709 if (newargs && newargs->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3710 error("no allocator for %s", cd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3711 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3712 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3713 else if (tb->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3714 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3715 TypeStruct ts = (TypeStruct )tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3716 StructDeclaration *sd = ts->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3717 TypeFunction *tf;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3718
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3719 FuncDeclaration *f = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3720 if (sd->ctor)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3721 f = resolveFuncCall(sc, loc, sd->ctor, NULL, NULL, arguments, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3722 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3723 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3724 checkDeprecated(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3725 member = f->isCtorDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3726 assert(member);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3727
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3728 sd->accessCheck(loc, sc, member);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3729
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3730 tf = (TypeFunction *)f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3731 // type = tf->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3732
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3733 if (!arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3734 arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3735 functionArguments(loc, sc, tf, arguments);
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3738 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3739 if (arguments && arguments->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3740 error("no constructor for %s", sd->toChars());
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3743
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3744 if (sd->aggNew)
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 // Prepend the uint size argument to newargs[]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3747 Expression *e = new IntegerExp(loc, sd->size(loc), Type::tuns32);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3748 if (!newargs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3749 newargs = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3750 newargs->shift(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3751
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3752 f = sd->aggNew->overloadResolve(loc, NULL, newargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3753 allocator = f->isNewDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3754 assert(allocator);
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 tf = (TypeFunction *)f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3757 functionArguments(loc, sc, tf, newargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3758 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3759 e = new VarExp(loc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3760 e = new CallExp(loc, e, newargs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3761 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3762 e->type = type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3763 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3764 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3765 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3766 else
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 if (newargs && newargs->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3769 error("no allocator for %s", sd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3770 }
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 type = type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3773 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3774 else if (tb->ty == Tarray && (arguments && arguments->dim))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3775 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3776 for (size_t i = 0; i < arguments->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3777 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3778 if (tb->ty != Tarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3779 { error("too many arguments for array");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3780 arguments->dim = i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3781 break;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3784 Expression arg = (Expression )arguments->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3785 arg = resolveProperties(sc, arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3786 arg = arg->implicitCastTo(sc, Type::tsize_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3787 arg = arg->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3788 if (arg->op == TOKint64 && (long long)arg->toInteger() < 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3789 error("negative array index %s", arg->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3790 arguments->data[i] = (void *) arg;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3791 tb = ((TypeDArray *)tb)->next->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3792 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3793 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3794 else if (tb->isscalar())
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 if (arguments && arguments->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3797 error("no constructor for %s", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3798
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3799 type = type->pointerTo();
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3802 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3803 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	3804 type = type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3805 }
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 //printf("NewExp: '%s'\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3808 //printf("NewExp:type '%s'\n", type->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 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3813 int NewExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3814 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3815 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3816 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3817
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3818 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3819 int NewExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3820 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3821 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3822 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3823 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3824
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3825 void NewExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3826 { int i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3827
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3828 if (thisexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3829 { expToCBuffer(buf, hgs, thisexp, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3830 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3831 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3832 buf->writestring("new ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3833 if (newargs && newargs->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3834 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3835 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3836 argsToCBuffer(buf, newargs, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3837 buf->writeByte(')');
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 newtype->toCBuffer(buf, NULL, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3840 if (arguments && arguments->dim)
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 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3843 argsToCBuffer(buf, arguments, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3844 buf->writeByte(')');
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3847
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3848 /******************** NewAnonClassExp ************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3849
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3850 NewAnonClassExp::NewAnonClassExp(Loc loc, Expression *thisexp,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3851 Expressions newargs, ClassDeclaration cd, Expressions *arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3852 : Expression(loc, TOKnewanonclass, sizeof(NewAnonClassExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3853 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3854 this->thisexp = thisexp;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3855 this->newargs = newargs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3856 this->cd = cd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3857 this->arguments = arguments;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3858 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3859
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3860 Expression *NewAnonClassExp::syntaxCopy()
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 return new NewAnonClassExp(loc,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3863 thisexp ? thisexp->syntaxCopy() : NULL,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3864 arraySyntaxCopy(newargs),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3865 (ClassDeclaration *)cd->syntaxCopy(NULL),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3866 arraySyntaxCopy(arguments));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3867 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3870 Expression NewAnonClassExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3871 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3872 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3873 printf("NewAnonClassExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3874 //printf("thisexp = %p\n", thisexp);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3875 //printf("type: %s\n", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3876 #endif
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 Expression *d = new DeclarationExp(loc, cd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3879 d = d->semantic(sc);
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 Expression *n = new NewExp(loc, thisexp, newargs, cd->type, arguments);
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 Expression *c = new CommaExp(loc, d, n);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3884 return c->semantic(sc);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3887 int NewAnonClassExp::checkSideEffect(int flag)
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3892 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3893 int NewAnonClassExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3894 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3895 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3896 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3897 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3898
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3899 void NewAnonClassExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3900 { int i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3901
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3902 if (thisexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3903 { expToCBuffer(buf, hgs, thisexp, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3904 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3905 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3906 buf->writestring("new");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3907 if (newargs && newargs->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3908 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3909 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3910 argsToCBuffer(buf, newargs, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3911 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3912 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3913 buf->writestring(" class ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3914 if (arguments && arguments->dim)
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 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3917 argsToCBuffer(buf, arguments, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3918 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3919 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3920 //buf->writestring(" { }");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3921 if (cd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3922 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3923 cd->toCBuffer(buf, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3924 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3925 }
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 /******************** SymbolExp ************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3928
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3929 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3930 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	3931 : Expression(loc, op, size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3932 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3933 assert(var);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3934 this->var = var;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3935 this->hasOverloads = hasOverloads;
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3938
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3939 /******************** SymOffExp ************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3940
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3941 SymOffExp::SymOffExp(Loc loc, Declaration *var, unsigned offset, int hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3942 : SymbolExp(loc, TOKsymoff, sizeof(SymOffExp), var, hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3943 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3944 this->offset = offset;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3945 m = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3946 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3947 if (v && v->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3948 error("need 'this' for address of %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3949 }
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 SymOffExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3952 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3953 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3954 printf("SymOffExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3955 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3956 //var->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3957 m = sc->module;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3958 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3959 type = var->type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3960 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3961 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3962 v->checkNestedReference(sc, loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3963 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3966 int SymOffExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3967 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3968 return result ? TRUE : FALSE;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3971 void SymOffExp::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3972 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3973 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3974 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3975 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3976 if (!v->isDataseg())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3977 error("escaping reference to local variable %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3978 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3979 }
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 void SymOffExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3982 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3983 if (offset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3984 buf->printf("(& %s+%u)", var->toChars(), offset);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3985 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3986 buf->printf("& %s", var->toChars());
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3989 /****************************** VarExp ************************/
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 VarExp::VarExp(Loc loc, Declaration *var, int hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3992 : SymbolExp(loc, TOKvar, sizeof(VarExp), var, hasOverloads)
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 //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	3995 //if (strcmp(var->ident->toChars(), "func") == 0) halt();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3996 this->type = var->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3997 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3998
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	3999 int VarExp::equals(Object *o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4000 { VarExp *ne;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4001
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4002 if (this == o \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4003 (((Expression *)o)->op == TOKvar &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4004 ((ne = (VarExp *)o), type->toHeadMutable()->equals(ne->type->toHeadMutable())) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4005 var == ne->var))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4006 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4007 return 0;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4010 Expression VarExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4011 { FuncLiteralDeclaration *fd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4012
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4013 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4014 printf("VarExp::semantic(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4015 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4016 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4017 { type = var->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4018 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4019 if (var->storage_class & STClazy)
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 TypeFunction *tf = new TypeFunction(NULL, type, 0, LINKd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4022 type = new TypeDelegate(tf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4023 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4024 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4025 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4026 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4027 /* Fix for 1161 doesn't work because it causes protection
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4028 * problems when instantiating imported templates passing private
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4029 * variables as alias template parameters.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4030 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4031 //accessCheck(loc, sc, NULL, var);
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 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4034 if (v)
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 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4037 if ((v->isConst() \|\| v->isInvariant()) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4038 type->toBasetype()->ty != Tsarray && v->init)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4039 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4040 ExpInitializer *ei = v->init->isExpInitializer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4041 if (ei)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4042 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4043 //ei->exp->implicitCastTo(sc, type)->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4044 return ei->exp->implicitCastTo(sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4045 }
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4048 v->checkNestedReference(sc, loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4049 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4050 #if 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4051 if (sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4052 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4053 /* 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	4054 * encloses it is also pure.
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 bool hasPureParent = false;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4057 for (FuncDeclaration *outerfunc = sc->func; outerfunc;)
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 if (outerfunc->isPure())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4060 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4061 hasPureParent = true;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4062 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4063 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4064 Dsymbol *parent = outerfunc->toParent2();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4065 if (!parent)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4066 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4067 outerfunc = parent->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4068 }
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 ANY of its enclosing functions are pure,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4071 * it cannot do anything impure.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4072 * 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	4073 * than those inside itself
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4074 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4075 if (hasPureParent && !sc->intypeof && v->isDataseg() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4076 !v->isInvariant())
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 error("pure function '%s' cannot access mutable static data '%s'",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4079 sc->func->toChars(), v->toChars());
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 else if (sc->func->isPure() && sc->parent != v->parent &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4082 !sc->intypeof && !v->isInvariant() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4083 !(v->storage_class & STCmanifest))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4084 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4085 error("pure nested function '%s' cannot access mutable data '%s'",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4086 sc->func->toChars(), v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4087 if (v->isEnumDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4088 error("enum");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4089 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4090 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4091 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4092 if (sc->func && sc->func->isPure() && !sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4093 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4094 if (v->isDataseg() && !v->isInvariant())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4095 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	4096 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4097 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4098 #endif
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 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4101 else if ((fd = var->isFuncLiteralDeclaration()) != NULL)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4102 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4103 e = new FuncExp(loc, fd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4104 e->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4105 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4106 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4107 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4108 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4109 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4110
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4111 char *VarExp::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4112 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4113 return var->toChars();
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 void VarExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4117 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4118 buf->writestring(var->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4119 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4120
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4121 void VarExp::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4122 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4123 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4124 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4125 { Type *tb = v->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4126 // if reference type
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4127 if (tb->ty == Tarray \|\| tb->ty == Tsarray \|\| tb->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4128 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4129 if ((v->isAuto() \|\| v->isScope()) && !v->noauto)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4130 error("escaping reference to scope local %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4131 else if (v->storage_class & STCvariadic)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4132 error("escaping reference to variadic parameter %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4133 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4134 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4135 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4136
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4137 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4138 int VarExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4139 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4140 if (var->storage_class & STClazy)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4141 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4142 return 1;
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4145
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4146 Expression VarExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4147 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4148 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4149 tym = tybasic(e1->ET->Tty);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4150 if (!(tyscalar(tym) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4151 tym == TYstruct \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4152 tym == TYarray && e->Eoper == TOKaddr))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4153 synerr(EM_lvalue); // lvalue expected
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4154 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4155 if (var->storage_class & STClazy)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4156 error("lazy variables cannot be lvalues");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4157 return this;
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 Expression VarExp::modifiableLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4161 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4162 //printf("VarExp::modifiableLvalue('%s')\n", var->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4163 if (type && type->toBasetype()->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4164 error("cannot change reference to static array '%s'", var->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 var->checkModify(loc, sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4167
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4168 // 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	4169 return toLvalue(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4170 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4171
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4172
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4173 /****************************** OverExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4174
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4175 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4176 OverExp::OverExp(OverloadSet *s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4177 : Expression(loc, TOKoverloadset, sizeof(OverExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4178 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4179 //printf("OverExp(this = %p, '%s')\n", this, var->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4180 vars = s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4181 type = Type::tvoid;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4184 int OverExp::isLvalue()
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 return 1;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4189 Expression OverExp::toLvalue(Scope sc, Expression *e)
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 return this;
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4194
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4195
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4196 /****************************** TupleExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4197
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4198 TupleExp::TupleExp(Loc loc, Expressions *exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4199 : Expression(loc, TOKtuple, sizeof(TupleExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4200 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4201 //printf("TupleExp(this = %p)\n", this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4202 this->exps = exps;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4203 this->type = NULL;
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 TupleExp::TupleExp(Loc loc, TupleDeclaration *tup)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4208 : Expression(loc, TOKtuple, sizeof(TupleExp))
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 exps = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4211 type = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4212
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4213 exps->reserve(tup->objects->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4214 for (size_t i = 0; i < tup->objects->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4215 { Object o = (Object )tup->objects->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4216 if (o->dyncast() == DYNCAST_EXPRESSION)
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 Expression e = (Expression )o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4219 e = e->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4220 exps->push(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4221 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4222 else if (o->dyncast() == DYNCAST_DSYMBOL)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4223 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4224 Dsymbol s = (Dsymbol )o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4225 Expression *e = new DsymbolExp(loc, s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4226 exps->push(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4227 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4228 else if (o->dyncast() == DYNCAST_TYPE)
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 Type t = (Type )o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4231 Expression *e = new TypeExp(loc, t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4232 exps->push(e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4233 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4234 else
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 error("%s is not an expression", o->toChars());
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4239 }
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 int TupleExp::equals(Object *o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4242 { TupleExp *ne;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4243
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4244 if (this == o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4245 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4246 if (((Expression *)o)->op == TOKtuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4247 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4248 TupleExp te = (TupleExp )o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4249 if (exps->dim != te->exps->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4250 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4251 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4252 { Expression e1 = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4253 Expression e2 = (Expression )te->exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4254
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4255 if (!e1->equals(e2))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4256 return 0;
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 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4259 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4260 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4261 }
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 Expression *TupleExp::syntaxCopy()
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 return new TupleExp(loc, arraySyntaxCopy(exps));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4266 }
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 Expression TupleExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4269 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4270 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4271 printf("+TupleExp::semantic(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4272 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4273 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4274 return this;
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 // Run semantic() on each argument
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4277 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4278 { Expression e = (Expression )exps->data[i];
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 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4281 if (!e->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4282 { error("%s has no value", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4283 e->type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4284 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4285 exps->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4286 }
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 expandTuples(exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4289 if (0 && exps->dim == 1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4290 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4291 return (Expression *)exps->data[0];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4292 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4293 type = new TypeTuple(exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4294 //printf("-TupleExp::semantic(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4295 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4296 }
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 void TupleExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 buf->writestring("tuple(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4301 argsToCBuffer(buf, exps, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4302 buf->writeByte(')');
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4305 int TupleExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4306 { int f = 0;
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 for (int i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4309 { Expression e = (Expression )exps->data[i];
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 f \|= e->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4312 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4313 if (flag == 0 && f == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4314 Expression::checkSideEffect(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4315 return f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4316 }
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4319 int TupleExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4320 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4321 return arrayExpressionCanThrow(exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4322 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4323 #endif
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 void TupleExp::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4326 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4327 for (size_t i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4328 { Expression e = (Expression )exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4329 e->checkEscape();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4330 }
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 /****************************** FuncExp *******************************/
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 FuncExp::FuncExp(Loc loc, FuncLiteralDeclaration *fd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4336 : Expression(loc, TOKfunction, sizeof(FuncExp))
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 this->fd = fd;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4341 Expression *FuncExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4342 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4343 return new FuncExp(loc, (FuncLiteralDeclaration *)fd->syntaxCopy(NULL));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4344 }
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 Expression FuncExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4347 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4348 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4349 printf("FuncExp::semantic(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4350 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4351 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4352 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4353 fd->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4354 //fd->parent = sc->parent;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4355 if (global.errors)
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4359 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4360 fd->semantic2(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4361 if (!global.errors)
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 fd->semantic3(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4364
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4365 if (!global.errors && global.params.useInline)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4366 fd->inlineScan();
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4370 // 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	4371 if (fd->isNested())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4372 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4373 type = new TypeDelegate(fd->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4374 type = type->semantic(loc, sc);
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4377 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4378 type = fd->type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4379 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4380 fd->tookAddressOf++;
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 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4385 char *FuncExp::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4386 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4387 return fd->toChars();
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4390 void FuncExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 fd->toCBuffer(buf, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4393 //buf->writestring(fd->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4394 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4397 /****************************** DeclarationExp ************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4398
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4399 DeclarationExp::DeclarationExp(Loc loc, Dsymbol *declaration)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4400 : Expression(loc, TOKdeclaration, sizeof(DeclarationExp))
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 this->declaration = declaration;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4405 Expression *DeclarationExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4406 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4407 return new DeclarationExp(loc, declaration->syntaxCopy(NULL));
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4410 Expression DeclarationExp::semantic(Scope sc)
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 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4413 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4414
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4415 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4416 printf("DeclarationExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4417 #endif
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 /* This is here to support extern(linkage) declaration,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4420 * where the extern(linkage) winds up being an AttribDeclaration
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4421 * wrapper.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4422 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4423 Dsymbol *s = declaration;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4424
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4425 AttribDeclaration *ad = declaration->isAttribDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4426 if (ad)
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 if (ad->decl && ad->decl->dim == 1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4429 s = (Dsymbol *)ad->decl->data[0];
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4432 if (s->isVarDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4433 { // Do semantic() on initializer first, so:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4434 // int a = a;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4435 // will be illegal.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4436 declaration->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4437 s->parent = sc->parent;
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 //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	4441 // Insert into both local scope and function scope.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4442 // Must be unique in both.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4443 if (s->ident)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4444 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4445 if (!sc->insert(s))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4446 error("declaration %s is already defined", s->toPrettyChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4447 else if (sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4448 { VarDeclaration *v = s->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4449 if (s->isFuncDeclaration() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4450 !sc->func->localsymtab->insert(s))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4451 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	4452 else if (!global.params.useDeprecated)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4453 { // Disallow shadowing
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 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	4456 { Dsymbol *s2;
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 if (scx->scopesym && scx->scopesym->symtab &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4459 (s2 = scx->scopesym->symtab->lookup(s->ident)) != NULL &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4460 s != s2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4461 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4462 error("shadowing declaration %s is deprecated", s->toPrettyChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4463 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4464 }
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 if (!s->isVarDeclaration())
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 declaration->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4471 s->parent = sc->parent;
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 if (!global.errors)
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 declaration->semantic2(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4476 if (!global.errors)
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 declaration->semantic3(sc);
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 if (!global.errors && global.params.useInline)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4481 declaration->inlineScan();
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4484
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4485 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4486 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4487 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4488
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4489 int DeclarationExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4490 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4491 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4492 }
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4495 int DeclarationExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4496 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4497 VarDeclaration *v = declaration->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4498 if (v && v->init)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4499 { ExpInitializer *ie = v->init->isExpInitializer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4500 return ie && ie->exp->canThrow();
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 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4503 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4504 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4505
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4506 void DeclarationExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4507 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4508 declaration->toCBuffer(buf, hgs);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4512 /********************** TypeidExp **********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4513
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4514 /*
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4515 * typeid(int)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4516 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4517
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4518 TypeidExp::TypeidExp(Loc loc, Type *typeidType)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4519 : Expression(loc, TOKtypeid, sizeof(TypeidExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4520 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4521 this->typeidType = typeidType;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4522 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4523
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4524
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4525 Expression *TypeidExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4526 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4527 return new TypeidExp(loc, typeidType->syntaxCopy());
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4530
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4531 Expression TypeidExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4532 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4533
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4534 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4535 printf("TypeidExp::semantic()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4536 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4537 typeidType = typeidType->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4538 e = typeidType->getTypeInfo(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4539 if (e->loc.linnum == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4540 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	4541 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4542 }
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 void TypeidExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 buf->writestring("typeid(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4547 typeidType->toCBuffer(buf, NULL, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4548 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4549 }
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 /********************** TraitsExp **********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4552 #if DMDV2
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 * __traits(identifier, args...)
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4557 TraitsExp::TraitsExp(Loc loc, Identifier ident, Objects args)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4558 : Expression(loc, TOKtraits, sizeof(TraitsExp))
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 this->ident = ident;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4561 this->args = args;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4562 }
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 Expression *TraitsExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4566 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4567 return new TraitsExp(loc, ident, TemplateInstance::arraySyntaxCopy(args));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4568 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4569
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4570
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4571 void TraitsExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 buf->writestring("__traits(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4574 buf->writestring(ident->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4575 if (args)
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 for (int i = 0; i < args->dim; i++)
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 buf->writeByte(',');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4580 Object oarg = (Object )args->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4581 ObjectToCBuffer(buf, hgs, oarg);
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4584 buf->writeByte(')');
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 #endif
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4590 HaltExp::HaltExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4591 : Expression(loc, TOKhalt, sizeof(HaltExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4592 {
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 Expression HaltExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4596 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4597 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4598 printf("HaltExp::semantic()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4599 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4600 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4601 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4602 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4603
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4604 int HaltExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4605 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4606 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4607 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4608
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4609 void HaltExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4610 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4611 buf->writestring("halt");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4612 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4616 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	4617 Type tspec, enum TOK tok2, TemplateParameters parameters)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4618 : Expression(loc, TOKis, sizeof(IsExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4619 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4620 this->targ = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4621 this->id = id;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4622 this->tok = tok;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4623 this->tspec = tspec;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4624 this->tok2 = tok2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4625 this->parameters = parameters;
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 Expression *IsExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4629 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4630 // This section is identical to that in TemplateDeclaration::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4631 TemplateParameters *p = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4632 if (parameters)
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 p = new TemplateParameters();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4635 p->setDim(parameters->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4636 for (int i = 0; i < p->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4637 { TemplateParameter tp = (TemplateParameter )parameters->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4638 p->data[i] = (void *)tp->syntaxCopy();
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 return new IsExp(loc,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4643 targ->syntaxCopy(),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4644 id,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4645 tok,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4646 tspec ? tspec->syntaxCopy() : NULL,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4647 tok2,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4648 p);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4651 Expression IsExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4652 { Type *tded;
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 /* is(targ id tok tspec)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4655 * is(targ id == tok2)
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4658 //printf("IsExp::semantic(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4659 if (id && !(sc->flags & SCOPEstaticif))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4660 error("can only declare type aliases within static if conditionals");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4661
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4662 Type *t = targ->trySemantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4663 if (!t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4664 goto Lno; // errors, so condition is false
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4665 targ = t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4666 if (tok2 != TOKreserved)
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 switch (tok2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4669 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4670 case TOKtypedef:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4671 if (targ->ty != Ttypedef)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4672 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4673 tded = ((TypeTypedef *)targ)->sym->basetype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4674 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4675
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4676 case TOKstruct:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4677 if (targ->ty != Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4678 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4679 if (((TypeStruct *)targ)->sym->isUnionDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4680 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4681 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4682 break;
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 case TOKunion:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4685 if (targ->ty != Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4686 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4687 if (!((TypeStruct *)targ)->sym->isUnionDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4688 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4689 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4690 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4691
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4692 case TOKclass:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4693 if (targ->ty != Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4694 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4695 if (((TypeClass *)targ)->sym->isInterfaceDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4696 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4697 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4698 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4699
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4700 case TOKinterface:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4701 if (targ->ty != Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4702 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4703 if (!((TypeClass *)targ)->sym->isInterfaceDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4704 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4705 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4706 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4707 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4708 case TOKconst:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4709 if (!targ->isConst())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4710 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4711 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4712 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4713
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4714 case TOKinvariant:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4715 case TOKimmutable:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4716 if (!targ->isInvariant())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4717 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4718 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4719 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4720 #endif
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 case TOKsuper:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4723 // If class or interface, get the base class and interfaces
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4724 if (targ->ty != Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4725 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4726 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4727 { ClassDeclaration cd = ((TypeClass )targ)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4728 Arguments *args = new Arguments;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4729 args->reserve(cd->baseclasses.dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4730 for (size_t i = 0; i < cd->baseclasses.dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4731 { BaseClass b = (BaseClass )cd->baseclasses.data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4732 args->push(new Argument(STCin, b->type, NULL, NULL));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4733 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4734 tded = new TypeTuple(args);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4735 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4736 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4737
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4738 case TOKenum:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4739 if (targ->ty != Tenum)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4740 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4741 tded = ((TypeEnum *)targ)->sym->memtype;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4742 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4743
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4744 case TOKdelegate:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4745 if (targ->ty != Tdelegate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4746 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4747 tded = ((TypeDelegate *)targ)->next; // the underlying function type
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4748 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4749
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4750 case TOKfunction:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4751 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4752 if (targ->ty != Tfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4753 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4754 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4755
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4756 /* Generate tuple from function parameter types.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4757 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4758 assert(tded->ty == Tfunction);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4759 Arguments params = ((TypeFunction )tded)->parameters;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4760 size_t dim = Argument::dim(params);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4761 Arguments *args = new Arguments;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4762 args->reserve(dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4763 for (size_t i = 0; i < dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4764 { Argument *arg = Argument::getNth(params, i);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4765 assert(arg && arg->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4766 args->push(new Argument(arg->storageClass, arg->type, NULL, NULL));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4767 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4768 tded = new TypeTuple(args);
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 TOKreturn:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4772 /* Get the 'return type' for the function,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4773 * delegate, or pointer to function.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4774 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4775 if (targ->ty == Tfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4776 tded = ((TypeFunction *)targ)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4777 else if (targ->ty == Tdelegate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4778 { tded = ((TypeDelegate *)targ)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4779 tded = ((TypeFunction *)tded)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4780 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4781 else if (targ->ty == Tpointer &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4782 ((TypePointer *)targ)->next->ty == Tfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4783 { tded = ((TypePointer *)targ)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4784 tded = ((TypeFunction *)tded)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4785 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4786 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4787 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4788 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4789
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4790 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4791 assert(0);
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 goto Lyes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4794 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4795 else if (id && tspec)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4796 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4797 /* Evaluate to TRUE if targ matches tspec.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4798 * 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	4799 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4800
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4801 MATCH m;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4802 assert(parameters && parameters->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4803
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4804 Objects dedtypes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4805 dedtypes.setDim(parameters->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4806 dedtypes.zero();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4807
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4808 m = targ->deduceType(NULL, tspec, parameters, &dedtypes);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4809 if (m == MATCHnomatch \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4810 (m != MATCHexact && tok == TOKequal))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4811 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4812 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4813 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4814 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4815 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4816 tded = (Type *)dedtypes.data[0];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4817 if (!tded)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4818 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4819
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4820 Objects tiargs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4821 tiargs.setDim(1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4822 tiargs.data[0] = (void *)targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4823
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4824 /* Declare trailing parameters
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4825 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4826 for (int i = 1; i < parameters->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4827 { TemplateParameter tp = (TemplateParameter )parameters->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4828 Declaration *s = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4829
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4830 m = tp->matchArg(sc, &tiargs, i, parameters, &dedtypes, &s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4831 if (m == MATCHnomatch)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4832 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4833 s->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4834 if (!sc->insert(s))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4835 error("declaration %s is already defined", s->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4836 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4837 Object o = (Object )dedtypes.data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4838 Dsymbol *s = TemplateDeclaration::declareParameter(loc, sc, tp, o);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4839 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4840 if (sc->sd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4841 s->addMember(sc, sc->sd, 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4842 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4843
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4844 goto Lyes;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4847 else if (id)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4848 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4849 /* 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	4850 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4851 tded = targ;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4852 goto Lyes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4853 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4854 else if (tspec)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4855 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4856 /* Evaluate to TRUE if targ matches tspec
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4857 * is(targ == tspec)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4858 * is(targ : tspec)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4859 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4860 tspec = tspec->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4861 //printf("targ = %s\n", targ->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4862 //printf("tspec = %s\n", tspec->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4863 if (tok == TOKcolon)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4864 { if (targ->implicitConvTo(tspec))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4865 goto Lyes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4866 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4867 goto Lno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4868 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4869 else /* == */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4870 { if (targ->equals(tspec))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4871 goto Lyes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4872 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4873 goto Lno;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4876
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4877 Lyes:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4878 if (id)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4879 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4880 Dsymbol *s = new AliasDeclaration(loc, id, tded);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4881 s->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4882 if (!sc->insert(s))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4883 error("declaration %s is already defined", s->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4884 if (sc->sd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4885 s->addMember(sc, sc->sd, 1);
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 //printf("Lyes\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4888 return new IntegerExp(loc, 1, Type::tbool);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4889
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4890 Lno:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4891 //printf("Lno\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4892 return new IntegerExp(loc, 0, Type::tbool);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4893 }
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 void IsExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 buf->writestring("is(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4898 targ->toCBuffer(buf, id, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4899 if (tok2 != TOKreserved)
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 buf->printf(" %s %s", Token::toChars(tok), Token::toChars(tok2));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4902 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4903 else if (tspec)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4904 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4905 if (tok == TOKcolon)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4906 buf->writestring(" : ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4907 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4908 buf->writestring(" == ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4909 tspec->toCBuffer(buf, NULL, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4910 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4911 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4912 if (parameters)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4913 { // First parameter is already output, so start with second
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4914 for (int i = 1; i < parameters->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4915 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4916 buf->writeByte(',');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4917 TemplateParameter tp = (TemplateParameter )parameters->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4918 tp->toCBuffer(buf, hgs);
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4921 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4922 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4923 }
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
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4928 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	4929 : Expression(loc, op, size)
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 this->e1 = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4932 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4933
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4934 Expression *UnaExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4935 { UnaExp *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4936
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4937 e = (UnaExp *)copy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4938 e->type = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4939 e->e1 = e->e1->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4940 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4941 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4942
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4943 Expression UnaExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4944 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4945 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4946 printf("UnaExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4947 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4948 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4949 // if (!e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4950 // error("%s has no value", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4951 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4952 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4953
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4954 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4955 int UnaExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4956 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4957 return e1->canThrow();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4958 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4959 #endif
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 void UnaExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4962 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4963 buf->writestring(Token::toChars(op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4964 expToCBuffer(buf, hgs, e1, precedence[op]);
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
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4969 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	4970 : Expression(loc, op, size)
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 this->e1 = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4973 this->e2 = e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4974 }
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 Expression *BinExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4977 { BinExp *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4978
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4979 e = (BinExp *)copy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4980 e->type = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4981 e->e1 = e->e1->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4982 e->e2 = e->e2->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4983 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4984 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4985
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4986 Expression BinExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4987 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4988 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4989 printf("BinExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4990 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4991 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4992 if (!e1->type &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4993 !(op == TOKassign && e1->op == TOKdottd)) // a.template = e2
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 error("%s has no value", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4996 e1->type = Type::terror;
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 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	4999 if (!e2->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5000 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5001 error("%s has no value", e2->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5002 e2->type = Type::terror;
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5005 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5006
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5007 Expression BinExp::semanticp(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5008 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5009 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5010 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5011 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5012 return this;
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
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 * Common semantic routine for some xxxAssignExp's.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5017 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5018
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5019 Expression BinExp::commonSemanticAssign(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5020 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5021
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5022 if (!type)
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 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5025 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5026
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5027 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5028 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5029 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5030
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5031 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5032 { // T[] op= ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5033 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5034 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5035 return arrayOp(sc);
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 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5039 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5040 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5041 if (type->toBasetype()->ty == Tbool)
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 error("operator not allowed on bool expression %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5044 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5045 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5046 e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5047 e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5048
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5049 if (op == TOKmodass && e2->type->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5050 { error("cannot perform modulo complex arithmetic");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5051 return new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5052 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5053 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5054 return this;
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::commonSemanticAssignIntegral(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5058 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5059
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5060 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5061 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5062 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5063 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5064
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5065 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5066 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5067 return e;
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 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5070 { // T[] op= ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5071 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5072 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5073 return arrayOp(sc);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5076 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5077 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5078 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5079 if (type->toBasetype()->ty == Tbool)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5080 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5081 e2 = e2->implicitCastTo(sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5082 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5083
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5084 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5085 e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5086 e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5087 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5088 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5091 int BinExp::checkSideEffect(int flag)
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 (op == TOKplusplus \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5094 op == TOKminusminus \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5095 op == TOKassign \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5096 op == TOKconstruct \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5097 op == TOKblit \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5098 op == TOKaddass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5099 op == TOKminass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5100 op == TOKcatass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5101 op == TOKmulass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5102 op == TOKdivass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5103 op == TOKmodass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5104 op == TOKshlass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5105 op == TOKshrass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5106 op == TOKushrass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5107 op == TOKandass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5108 op == TOKorass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5109 op == TOKxorass \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5110 op == TOKin \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5111 op == TOKremove)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5112 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5113 return Expression::checkSideEffect(flag);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5114 }
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 void BinExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5117 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5118 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5119 buf->writeByte(' ');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5120 buf->writestring(Token::toChars(op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5121 buf->writeByte(' ');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5122 expToCBuffer(buf, hgs, e2, (enum PREC)(precedence[op] + 1));
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 int BinExp::isunsigned()
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 return e1->type->isunsigned() \|\| e2->type->isunsigned();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5128 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5129
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5130 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5131 int BinExp::canThrow()
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 return e1->canThrow() \|\| e2->canThrow();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5134 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5135 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5136
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5137 void BinExp::incompatibleTypes()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5138 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5139 error("incompatible types for ((%s) %s (%s)): '%s' and '%s'",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5140 e1->toChars(), Token::toChars(op), e2->toChars(),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5141 e1->type->toChars(), e2->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5142 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5143
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5144 /************************************************************/
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 CompileExp::CompileExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5147 : UnaExp(loc, TOKmixin, sizeof(CompileExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5148 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5149 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5150
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5151 Expression CompileExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5152 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5153 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5154 printf("CompileExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5155 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5156 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5157 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5158 e1 = e1->optimize(WANTvalue \| WANTinterpret);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5159 if (e1->op != TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5160 { 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	5161 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5162 return this;
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 StringExp se = (StringExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5165 se = se->toUTF8(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5166 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	5167 p.loc = loc;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5168 p.nextToken();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5169 //printf("p.loc.linnum = %d\n", p.loc.linnum);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5170 Expression *e = p.parseExpression();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5171 if (p.token.value != TOKeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5172 error("incomplete mixin expression (%s)", se->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5173 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5174 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5175
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5176 void CompileExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5177 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5178 buf->writestring("mixin(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5179 expToCBuffer(buf, hgs, e1, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5180 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5181 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5182
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5183 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5184
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5185 FileExp::FileExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5186 : UnaExp(loc, TOKmixin, sizeof(FileExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5187 {
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5190 Expression FileExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5191 { char *name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5192 StringExp *se;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5193
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5194 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5195 printf("FileExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5196 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5197 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5198 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5199 e1 = e1->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5200 if (e1->op != TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5201 { 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	5202 goto Lerror;
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 se = (StringExp *)e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5205 se = se->toUTF8(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5206 name = (char *)se->string;
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 if (!global.params.fileImppath)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5209 { error("need -Jpath switch to import text file %s", name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5210 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5211 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5212
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5213 if (name != FileName::name(name))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5214 { 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	5215 goto Lerror;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5218 name = FileName::searchPath(global.filePath, name, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5219 if (!name)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5220 { error("file %s cannot be found, check -Jpath", se->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5221 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5222 }
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 (global.params.verbose)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5225 printf("file %s\t(%s)\n", (char*)se->string, name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5226
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5227 { File f(name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5228 if (f.read())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5229 { error("cannot read file %s", f.toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5230 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5231 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5232 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5233 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5234 f.ref = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5235 se = new StringExp(loc, f.buffer, f.len);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5236 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5237 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5238 Lret:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5239 return se->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5240
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5241 Lerror:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5242 se = new StringExp(loc, (char *)"");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5243 goto Lret;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5244 }
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 void FileExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5247 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5248 buf->writestring("import(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5249 expToCBuffer(buf, hgs, e1, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5250 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5251 }
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 AssertExp::AssertExp(Loc loc, Expression e, Expression msg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5256 : UnaExp(loc, TOKassert, sizeof(AssertExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5257 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5258 this->msg = msg;
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 *AssertExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5262 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5263 AssertExp *ae = new AssertExp(loc, e1->syntaxCopy(),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5264 msg ? msg->syntaxCopy() : NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5265 return ae;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5266 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5267
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5268 Expression AssertExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5269 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5270 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5271 printf("AssertExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5272 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5273 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5274 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5275 // 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	5276 e1 = e1->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5277 e1 = e1->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5278 if (msg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5279 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5280 msg = msg->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5281 msg = resolveProperties(sc, msg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5282 msg = msg->implicitCastTo(sc, Type::tchar->constOf()->arrayOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5283 msg = msg->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5284 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5285 if (e1->isBool(FALSE))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5286 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5287 FuncDeclaration *fd = sc->parent->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5288 fd->hasReturnExp \|= 4;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5289
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5290 if (!global.params.useAssert)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5291 { Expression *e = new HaltExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5292 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5293 return e;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5296 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5297 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5298 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5299
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5300 int AssertExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5301 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5302 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5303 }
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5306 int AssertExp::canThrow()
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 /* assert()s are non-recoverable errors, so functions that
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5309 * use them can be considered "nothrow"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5310 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5311 return 0; //(global.params.useAssert != 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5312 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5313 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5314
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5315 void AssertExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 buf->writestring("assert(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5318 expToCBuffer(buf, hgs, e1, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5319 if (msg)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5320 {
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 expToCBuffer(buf, hgs, msg, PREC_assign);
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 buf->writeByte(')');
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5327 /************************************************************/
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 DotIdExp::DotIdExp(Loc loc, Expression e, Identifier ident)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5330 : UnaExp(loc, TOKdot, sizeof(DotIdExp), e)
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 this->ident = ident;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5335 Expression DotIdExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5336 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5337 Expression *eleft;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5338 Expression *eright;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5339
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5340 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5341 printf("DotIdExp::semantic(this = %p, '%s')\n", this, toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5342 //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	5343 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5344
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5345 //{ 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	5346
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5347 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5348 /* Don't do semantic analysis if we'll be converting
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5349 * it to a string.
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 if (ident == Id::stringof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5352 { char *s = e1->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5353 e = new StringExp(loc, s, strlen(s), 'c');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5354 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5355 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5356 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5357 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5358
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5359 /* Special case: rewrite this.id and super.id
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5360 * to be classtype.id and baseclasstype.id
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5361 * if we have no this pointer.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5362 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5363 if ((e1->op == TOKthis \|\| e1->op == TOKsuper) && !hasThis(sc))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5364 { ClassDeclaration *cd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5365 StructDeclaration *sd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5366 AggregateDeclaration *ad;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5367
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5368 ad = sc->getStructClassScope();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5369 if (ad)
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 cd = ad->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5372 if (cd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5373 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5374 if (e1->op == TOKthis)
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 e = typeDotIdExp(loc, cd->type, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5377 return e->semantic(sc);
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 else if (cd->baseClass && e1->op == TOKsuper)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5380 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5381 e = typeDotIdExp(loc, cd->baseClass->type, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5382 return e->semantic(sc);
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5385 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5386 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5387 sd = ad->isStructDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5388 if (sd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5389 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5390 if (e1->op == TOKthis)
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 e = typeDotIdExp(loc, sd->type, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5393 return e->semantic(sc);
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 }
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 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5401
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5402 if (e1->op == TOKdotexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5403 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5404 DotExp de = (DotExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5405 eleft = de->e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5406 eright = de->e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5407 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5408 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5409 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5410 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5411 eleft = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5412 eright = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5413 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5414 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5415 if (e1->op == TOKtuple && ident == Id::offsetof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5416 { /* 'distribute' the .offsetof to each of the tuple elements.
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 TupleExp te = (TupleExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5419 Expressions *exps = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5420 exps->setDim(te->exps->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5421 for (int i = 0; i < exps->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5422 { Expression e = (Expression )te->exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5423 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5424 e = new DotIdExp(e->loc, e, Id::offsetof);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5425 exps->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5426 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5427 e = new TupleExp(loc, exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5428 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5429 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5430 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5431 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5432
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5433 if (e1->op == TOKtuple && ident == Id::length)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5434 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5435 TupleExp te = (TupleExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5436 e = new IntegerExp(loc, te->exps->dim, Type::tsize_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5437 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5440 if (e1->op == TOKdottd)
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 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	5443 return e1;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5446 if (!e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5447 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5448 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	5449 return e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5450 }
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 Type *t1b = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5453
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5454 if (eright->op == TOKimport) // also used for template alias's
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 ScopeExp ie = (ScopeExp )eright;
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 /* Disable access to another module's private imports.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5459 * The check for 'is sds our current module' is because
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5460 * the current module should have access to its own imports.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5461 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5462 Dsymbol *s = ie->sds->search(loc, ident,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5463 (ie->sds->isModule() && ie->sds != sc->module) ? 1 : 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5464 if (s)
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 s = s->toAlias();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5467 checkDeprecated(sc, s);
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 EnumMember *em = s->isEnumMember();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5470 if (em)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5471 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5472 e = em->value;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5473 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5474 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5475 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5476
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5477 VarDeclaration *v = s->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5478 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5479 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5480 //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	5481 if (v->inuse)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5482 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5483 error("circular reference to '%s'", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5484 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5485 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5486 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5487 type = v->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5488 if (v->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5489 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5490 if (!eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5491 eleft = new ThisExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5492 e = new DotVarExp(loc, eleft, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5493 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5494 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5495 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5496 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5497 e = new VarExp(loc, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5498 if (eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5499 { e = new CommaExp(loc, eleft, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5500 e->type = v->type;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5503 return e->deref();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5504 }
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 FuncDeclaration *f = s->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5507 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5508 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5509 //printf("it's a function\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5510 if (f->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5511 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5512 if (!eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5513 eleft = new ThisExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5514 e = new DotVarExp(loc, eleft, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5515 e = e->semantic(sc);
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 else
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 e = new VarExp(loc, f, 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5520 if (eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5521 { e = new CommaExp(loc, eleft, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5522 e->type = f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5523 }
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 return e;
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5528 OverloadSet *o = s->isOverloadSet();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5529 if (o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5530 { //printf("'%s' is an overload set\n", o->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5531 return new OverExp(o);
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5534
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5535 Type *t = s->getType();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5536 if (t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5537 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5538 return new TypeExp(loc, t);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5541 TupleDeclaration *tup = s->isTupleDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5542 if (tup)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5543 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5544 if (eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5545 error("cannot have e.tuple");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5546 e = new TupleExp(loc, tup);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5547 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5548 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5549 }
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 ScopeDsymbol *sds = s->isScopeDsymbol();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5552 if (sds)
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 //printf("it's a ScopeDsymbol\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5555 e = new ScopeExp(loc, sds);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5556 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5557 if (eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5558 e = new DotExp(loc, eleft, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5559 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5562 Import *imp = s->isImport();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5563 if (imp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5564 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5565 ScopeExp *ie;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5566
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5567 ie = new ScopeExp(loc, imp->pkg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5568 return ie->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5569 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5570
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5571 // BUG: handle other cases like in IdentifierExp::semantic()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5572 #ifdef DEBUG
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5573 printf("s = '%s', kind = '%s'\n", s->toChars(), s->kind());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5574 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5575 assert(0);
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 else if (ident == Id::stringof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5578 { char *s = ie->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5579 e = new StringExp(loc, s, strlen(s), 'c');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5580 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5581 return e;
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 error("undefined identifier %s", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5584 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5585 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5586 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5587 else if (t1b->ty == Tpointer &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5588 ident != Id::init && ident != Id::__sizeof &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5589 ident != Id::alignof && ident != Id::offsetof &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5590 ident != Id::mangleof && ident != Id::stringof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5591 { /* Rewrite:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5592 * p.ident
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5593 * as:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5594 * (*p).ident
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 e = new PtrExp(loc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5597 e->type = ((TypePointer *)t1b)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5598 return e->type->dotExp(sc, e, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5599 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5600 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5601 else if (t1b->ty == Tarray \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5602 t1b->ty == Tsarray \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5603 t1b->ty == Taarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5604 { /* If ident is not a valid property, rewrite:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5605 * e1.ident
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5606 * as:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5607 * .ident(e1)
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 unsigned errors = global.errors;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5610 global.gag++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5611 e = e1->type->dotExp(sc, e1, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5612 global.gag--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5613 if (errors != global.errors) // if failed to find the property
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 global.errors = errors;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5616 e = new DotIdExp(loc, new IdentifierExp(loc, Id::empty), ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5617 e = new CallExp(loc, e, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5618 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5619 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5620 return e;
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5623 else
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 e = e1->type->dotExp(sc, e1, ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5626 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5627 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5628 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5629 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5630
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5631 void DotIdExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 //printf("DotIdExp::toCBuffer()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5634 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5635 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5636 buf->writestring(ident->toChars());
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5639 /******************** DotTemplateExp *********************************/
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 // Mainly just a placeholder
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5642
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5643 DotTemplateExp::DotTemplateExp(Loc loc, Expression e, TemplateDeclaration td)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5644 : UnaExp(loc, TOKdottd, sizeof(DotTemplateExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5645
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5646 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5647 this->td = td;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5648 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5649
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5650 void DotTemplateExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5651 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5652 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5653 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5654 buf->writestring(td->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5655 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5656
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 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5659
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5660 DotVarExp::DotVarExp(Loc loc, Expression e, Declaration v, int hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5661 : UnaExp(loc, TOKdotvar, sizeof(DotVarExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5662 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5663 //printf("DotVarExp()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5664 this->var = v;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5665 this->hasOverloads = hasOverloads;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5668 Expression DotVarExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5669 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5670 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5671 printf("DotVarExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5672 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5673 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5674 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5675 var = var->toAlias()->isDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5676
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5677 TupleDeclaration *tup = var->isTupleDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5678 if (tup)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5679 { /* Replace:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5680 * e1.tuple(a, b, c)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5681 * with:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5682 * tuple(e1.a, e1.b, e1.c)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5683 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5684 Expressions *exps = new Expressions;
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 exps->reserve(tup->objects->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5687 for (size_t i = 0; i < tup->objects->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5688 { Object o = (Object )tup->objects->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5689 if (o->dyncast() != DYNCAST_EXPRESSION)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5690 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5691 error("%s is not an expression", o->toChars());
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5694 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5695 Expression e = (Expression )o;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5696 if (e->op != TOKdsymbol)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5697 error("%s is not a member", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5698 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5699 { DsymbolExp ve = (DsymbolExp )e;
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 e = new DotVarExp(loc, e1, ve->s->isDeclaration());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5702 exps->push(e);
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5705 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5706 Expression *e = new TupleExp(loc, exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5707 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5708 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5711 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5712 type = var->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5713 if (!type && global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5714 { // var is goofed up, just return 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5715 return new ErrorExp();
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 assert(type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5718
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5719 if (!var->isFuncDeclaration()) // for functions, do checks after overload resolution
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 Type *t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5722 if (t1->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5723 t1 = t1->nextOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5724
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5725 type = type->addMod(t1->mod);
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 Dsymbol *vparent = var->toParent();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5728 AggregateDeclaration *ad = vparent ? vparent->isAggregateDeclaration() : NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5729 e1 = getRightThis(loc, sc, ad, e1, var);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5730 if (!sc->noaccesscheck)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5731 accessCheck(loc, sc, e1, var);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5732
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5733 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5734 Expression *e = expandVar(WANTvalue, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5735 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5736 return e;
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 //printf("-DotVarExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5740 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5741 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5742
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5743 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5744 int DotVarExp::isLvalue()
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 return 1;
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5749
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5750 Expression DotVarExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5751 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5752 //printf("DotVarExp::toLvalue(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5753 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5756 Expression DotVarExp::modifiableLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5757 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5758 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5759 printf("DotVarExp::modifiableLvalue(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5760 printf("e1->type = %s\n", e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5761 printf("var->type = %s\n", var->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5762 #endif
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 if (var->isCtorinit())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5765 { // It's only modifiable if inside the right constructor
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5766 Dsymbol *s = sc->func;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5767 while (1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5768 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5769 FuncDeclaration *fd = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5770 if (s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5771 fd = s->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5772 if (fd &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5773 ((fd->isCtorDeclaration() && var->storage_class & STCfield) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5774 (fd->isStaticCtorDeclaration() && !(var->storage_class & STCfield))) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5775 fd->toParent() == var->toParent() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5776 e1->op == TOKthis
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5777 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5778 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5779 VarDeclaration *v = var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5780 assert(v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5781 v->ctorinit = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5782 //printf("setting ctorinit\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5783 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5784 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5785 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5786 if (s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5787 { s = s->toParent2();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5788 continue;
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 else
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 const char *p = var->isStatic() ? "static " : "";
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5793 error("can only initialize %sconst member %s inside %sconstructor",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5794 p, var->toChars(), p);
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5797 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5798 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5799 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5800 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5801 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5802 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5803 Type *t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5804
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5805 if (!t1->isMutable() \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5806 (t1->ty == Tpointer && !t1->nextOf()->isMutable()) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5807 !var->type->isMutable() \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5808 !var->type->isAssignable() \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5809 var->storage_class & STCmanifest
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5810 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5811 error("cannot modify const/immutable expression %s", toChars());
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5814 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5815 }
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 void DotVarExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5820 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5821 buf->writestring(var->toChars());
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5824 /************************************************************/
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 /* Things like:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5827 * foo.bar!(args)
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5830 DotTemplateInstanceExp::DotTemplateInstanceExp(Loc loc, Expression e, TemplateInstance ti)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5831 : UnaExp(loc, TOKdotti, sizeof(DotTemplateInstanceExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5832 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5833 //printf("DotTemplateInstanceExp()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5834 this->ti = ti;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5835 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5836
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5837 Expression *DotTemplateInstanceExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5838 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5839 DotTemplateInstanceExp *de = new DotTemplateInstanceExp(loc,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5840 e1->syntaxCopy(),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5841 (TemplateInstance *)ti->syntaxCopy(NULL));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5842 return de;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5843 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5844
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5845 Expression DotTemplateInstanceExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5846 { Dsymbol *s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5847 Dsymbol *s2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5848 TemplateDeclaration *td;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5849 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5850 Identifier *id;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5851 Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5852 Expression *eleft = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5853 Expression *eright;
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 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5856 printf("DotTemplateInstanceExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5857 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5858 //e1->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5859 //print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5860 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5861 t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5862 if (t1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5863 t1 = t1->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5864 //t1->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5865
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5866 /* Extract the following from e1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5867 * s: the symbol which ti should be a member of
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5868 * 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	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 (e1->op == TOKdotexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5872 { DotExp de = (DotExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5873 eleft = de->e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5874 eright = de->e2;
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5877 { eleft = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5878 eright = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5879 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5880 if (eright->op == TOKimport)
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 s = ((ScopeExp *)eright)->sds;
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 else if (e1->op == TOKtype)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5885 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5886 s = t1->isClassHandle();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5887 if (!s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5888 { if (t1->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5889 s = ((TypeStruct *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5890 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5891 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5892 }
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 else if (t1 && (t1->ty == Tstruct \|\| t1->ty == Tclass))
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 s = t1->toDsymbol(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5897 eleft = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5898 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5899 else if (t1 && t1->ty == Tpointer)
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 t1 = ((TypePointer *)t1)->next->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5902 if (t1->ty != Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5903 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5904 s = t1->toDsymbol(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5905 eleft = e1;
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5908 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5909 L1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5910 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	5911 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5912 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5913
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5914 assert(s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5915 id = ti->name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5916 s2 = s->search(loc, id, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5917 if (!s2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5918 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5919 if (!s->ident)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5920 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	5921 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5922 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	5923 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5924 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5925 s = s2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5926 s->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5927 s = s->toAlias();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5928 td = s->isTemplateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5929 if (!td)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5930 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5931 error("%s is not a template", id->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5932 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5933 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5934 if (global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5935 goto Lerr;
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 ti->tempdecl = td;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5938
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5939 if (eleft)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5940 { Declaration *v;
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 ti->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5943 s = ti->inst->toAlias();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5944 v = s->isDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5945 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5946 { e = new DotVarExp(loc, eleft, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5947 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5948 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5949 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5952 e = new ScopeExp(loc, ti);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5953 if (eleft)
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 e = new DotExp(loc, eleft, e);
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 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5958 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5959
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5960 Lerr:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5961 return new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5962 }
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 void DotTemplateInstanceExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5965 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5966 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5967 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5968 ti->toCBuffer(buf, hgs);
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
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5973 DelegateExp::DelegateExp(Loc loc, Expression e, FuncDeclaration f, int hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5974 : UnaExp(loc, TOKdelegate, sizeof(DelegateExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5975 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5976 this->func = f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5977 this->hasOverloads = hasOverloads;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5978 }
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 Expression DelegateExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5981 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5982 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5983 printf("DelegateExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5984 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5985 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5986 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5987 m = sc->module;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5988 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5989 // 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	5990 type = new TypeDelegate(func->type->syntaxCopy());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5991 type = type->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5992 AggregateDeclaration *ad = func->toParent()->isAggregateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5993 if (func->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5994 e1 = getRightThis(loc, sc, ad, e1, func);
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5997 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5998
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	5999 void DelegateExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6000 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6001 buf->writeByte('&');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6002 if (!func->isNested())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6003 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6004 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6005 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6006 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6007 buf->writestring(func->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6008 }
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 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6011
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6012 DotTypeExp::DotTypeExp(Loc loc, Expression e, Dsymbol s)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6013 : UnaExp(loc, TOKdottype, sizeof(DotTypeExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6014 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6015 this->sym = s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6016 this->type = s->getType();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6017 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6018
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6019 Expression DotTypeExp::semantic(Scope sc)
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 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6022 printf("DotTypeExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6023 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6024 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6025 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6026 }
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 void DotTypeExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6029 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6030 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6031 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6032 buf->writestring(sym->toChars());
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 /************************************************************/
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 CallExp::CallExp(Loc loc, Expression e, Expressions exps)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6038 : UnaExp(loc, TOKcall, sizeof(CallExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6039 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6040 this->arguments = exps;
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 CallExp::CallExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6044 : UnaExp(loc, TOKcall, sizeof(CallExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6045 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6046 this->arguments = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6047 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6048
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6049 CallExp::CallExp(Loc loc, Expression e, Expression earg1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6050 : UnaExp(loc, TOKcall, sizeof(CallExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6051 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6052 Expressions *arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6053 arguments->setDim(1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6054 arguments->data[0] = (void *)earg1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6055
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6056 this->arguments = arguments;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6059 CallExp::CallExp(Loc loc, Expression e, Expression earg1, Expression *earg2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6060 : UnaExp(loc, TOKcall, sizeof(CallExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6061 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6062 Expressions *arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6063 arguments->setDim(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6064 arguments->data[0] = (void *)earg1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6065 arguments->data[1] = (void *)earg2;
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 this->arguments = arguments;
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 Expression *CallExp::syntaxCopy()
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 return new CallExp(loc, e1->syntaxCopy(), arraySyntaxCopy(arguments));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6073 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6076 Expression CallExp::semantic(Scope sc)
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 TypeFunction *tf;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6079 FuncDeclaration *f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6080 int i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6081 Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6082 int istemp;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6083 Objects *targsi = NULL; // initial list of template arguments
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6084 TemplateInstance *tierror = NULL;
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 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6087 printf("CallExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6088 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6089 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6090 return this; // semantic() already run
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6091 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6092 if (arguments && arguments->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6093 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6094 Expression earg = (Expression )arguments->data[0];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6095 earg->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6096 if (earg->type) earg->type->print();
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6099
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6100 if (e1->op == TOKdelegate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6101 { DelegateExp de = (DelegateExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6102
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6103 e1 = new DotVarExp(de->loc, de->e1, de->func);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6104 return semantic(sc);
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 /* Transform:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6108 * array.id(args) into .id(array,args)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6109 * aa.remove(arg) into delete aa[arg]
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 if (e1->op == TOKdot)
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 // 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	6114
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6115 DotIdExp dotid = (DotIdExp )(e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6116 dotid->e1 = dotid->e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6117 assert(dotid->e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6118 if (dotid->e1->type)
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 TY e1ty = dotid->e1->type->toBasetype()->ty;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6121 if (e1ty == Taarray && dotid->ident == Id::remove)
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 if (!arguments \|\| arguments->dim != 1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6124 { error("expected key as argument to aa.remove()");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6125 goto Lagain;
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 Expression key = (Expression )arguments->data[0];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6128 key = key->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6129 key = resolveProperties(sc, key);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6130 key->rvalue();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6131
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6132 TypeAArray taa = (TypeAArray )dotid->e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6133 key = key->implicitCastTo(sc, taa->index);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6134
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6135 return new RemoveExp(loc, dotid->e1, key);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6136 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6137 else if (e1ty == Tarray \|\| e1ty == Tsarray \|\| e1ty == Taarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6138 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6139 if (!arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6140 arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6141 arguments->shift(dotid->e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6142 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6143 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	6144 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6145 e1 = new IdentifierExp(dotid->loc, dotid->ident);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6146 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6147 }
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6150
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6151 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6152 /* This recognizes:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6153 * foo!(tiargs)(funcargs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6154 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6155 if (e1->op == TOKimport && !e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6156 { ScopeExp se = (ScopeExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6157 TemplateInstance *ti = se->sds->isTemplateInstance();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6158 if (ti && !ti->semanticdone)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6159 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6160 /* Attempt to instantiate ti. If that works, go with it.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6161 * If not, go with partial explicit specialization.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6162 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6163 ti->semanticTiargs(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6164 unsigned errors = global.errors;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6165 global.gag++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6166 ti->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6167 global.gag--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6168 if (errors != global.errors)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6169 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6170 /* Didn't work, go with partial explicit specialization
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6171 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6172 global.errors = errors;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6173 targsi = ti->tiargs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6174 tierror = ti; // for error reporting
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6175 e1 = new IdentifierExp(loc, ti->name);
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6179
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6180 /* This recognizes:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6181 * expr.foo!(tiargs)(funcargs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6182 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6183 if (e1->op == TOKdotti && !e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6184 { DotTemplateInstanceExp se = (DotTemplateInstanceExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6185 TemplateInstance *ti = se->ti;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6186 if (!ti->semanticdone)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6187 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6188 /* Attempt to instantiate ti. If that works, go with it.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6189 * If not, go with partial explicit specialization.
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 ti->semanticTiargs(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6192 Expression *etmp = e1->trySemantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6193 if (etmp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6194 e1 = etmp; // it worked
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6195 else // didn't work
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6196 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6197 targsi = ti->tiargs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6198 tierror = ti; // for error reporting
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6199 e1 = new DotIdExp(loc, se->e1, ti->name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6200 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6201 }
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6204
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6205 istemp = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6206 Lagain:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6207 //printf("Lagain: %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6208 f = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6209 if (e1->op == TOKthis \|\| e1->op == TOKsuper)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6210 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6211 // semantic() run later for these
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6212 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6213 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6214 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6215 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6216
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6217 /* Look for e1 being a lazy parameter
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 if (e1->op == TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6220 { VarExp ve = (VarExp )e1;
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 (ve->var->storage_class & STClazy)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6223 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6224 TypeFunction *tf = new TypeFunction(NULL, ve->var->type, 0, LINKd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6225 TypeDelegate *t = new TypeDelegate(tf);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6226 ve->type = t->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6227 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6228 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6229
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6230 if (e1->op == TOKimport)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6231 { // Perhaps this should be moved to ScopeExp::semantic()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6232 ScopeExp se = (ScopeExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6233 e1 = new DsymbolExp(loc, se->sds);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6234 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6235 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6236 #if 1 // patch for #540 by Oskar Linde
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6237 else if (e1->op == TOKdotexp)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6238 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6239 DotExp de = (DotExp ) e1;
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 if (de->e2->op == TOKimport)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6242 { // This should really be moved to ScopeExp::semantic()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6243 ScopeExp se = (ScopeExp )de->e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6244 de->e2 = new DsymbolExp(loc, se->sds);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6245 de->e2 = de->e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6246 }
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 if (de->e2->op == TOKtemplate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6249 { TemplateExp te = (TemplateExp ) de->e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6250 e1 = new DotTemplateExp(loc,de->e1,te->td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6251 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6252 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6253 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6254 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6255
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6256 if (e1->op == TOKcomma)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6257 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6258 CommaExp ce = (CommaExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6259
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6260 e1 = ce->e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6261 e1->type = ce->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6262 ce->e2 = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6263 ce->type = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6264 return ce->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6265 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6266
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6267 t1 = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6268 if (e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6269 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6270
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6271 // Check for call operator overload
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6272 if (t1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6273 { AggregateDeclaration *ad;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6274
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6275 if (t1->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6276 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6277 ad = ((TypeStruct *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6278
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6279 // First look for constructor
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6280 if (ad->ctor && arguments && arguments->dim)
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 // Create variable that will get constructed
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6283 Identifier *idtmp = Lexer::uniqueId("__ctmp");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6284 VarDeclaration *tmp = new VarDeclaration(loc, t1, idtmp, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6285 Expression *av = new DeclarationExp(loc, tmp);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6286 av = new CommaExp(loc, av, new VarExp(loc, tmp));
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 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6289 CtorDeclaration *cf = ad->ctor->isCtorDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6290 if (cf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6291 e = new DotVarExp(loc, av, cf, 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6292 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6293 { TemplateDeclaration *td = ad->ctor->isTemplateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6294 assert(td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6295 e = new DotTemplateExp(loc, av, td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6296 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6297 e = new CallExp(loc, e, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6298 #if !STRUCTTHISREF
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6299 /* Constructors return a pointer to the instance
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 e = new PtrExp(loc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6302 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6303 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6304 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6305 }
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 // No constructor, look for overload of opCall
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6308 if (search_function(ad, Id::call))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6309 goto L1; // overload of opCall, therefore it's a call
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6310
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6311 if (e1->op != TOKtype)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6312 error("%s %s does not overload ()", ad->kind(), ad->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6313 /* It's a struct literal
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6314 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6315 Expression e = new StructLiteralExp(loc, (StructDeclaration )ad, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6316 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6317 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	6318 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6319 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6320 else if (t1->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6321 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6322 ad = ((TypeClass *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6323 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6324 L1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6325 // Rewrite as e1.call(arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6326 Expression *e = new DotIdExp(loc, e1, Id::call);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6327 e = new CallExp(loc, e, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6328 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6329 return e;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6332
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6333 arrayExpressionSemantic(arguments, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6334 preFunctionArguments(loc, sc, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6335
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6336 if (e1->op == TOKdotvar && t1->ty == Tfunction \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6337 e1->op == TOKdottd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6338 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6339 DotVarExp *dve;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6340 DotTemplateExp *dte;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6341 AggregateDeclaration *ad;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6342 UnaExp ue = (UnaExp )(e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6343
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6344 if (e1->op == TOKdotvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6345 { // Do overload resolution
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6346 dve = (DotVarExp *)(e1);
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 f = dve->var->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6349 assert(f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6350 f = f->overloadResolve(loc, ue->e1, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6351
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6352 ad = f->toParent()->isAggregateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6353 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6354 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6355 { dte = (DotTemplateExp *)(e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6356 TemplateDeclaration *td = dte->td;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6357 assert(td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6358 if (!arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6359 // Should fix deduceFunctionTemplate() so it works on NULL argument
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6360 arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6361 f = td->deduceFunctionTemplate(sc, loc, targsi, ue->e1, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6362 if (!f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6363 { type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6364 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6365 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6366 ad = td->toParent()->isAggregateDeclaration();
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 if (f->needThis())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6369 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6370 ue->e1 = getRightThis(loc, sc, ad, ue->e1, f);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6373 /* Cannot call public functions from inside invariant
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6374 * (because then the invariant would have infinite recursion)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6375 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6376 if (sc->func && sc->func->isInvariantDeclaration() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6377 ue->e1->op == TOKthis &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6378 f->addPostInvariant()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6379 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6380 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6381 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	6382 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6383
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6384 checkDeprecated(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6385 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6386 checkPurity(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6387 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6388 accessCheck(loc, sc, ue->e1, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6389 if (!f->needThis())
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 VarExp *ve = new VarExp(loc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6392 e1 = new CommaExp(loc, ue->e1, ve);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6393 e1->type = f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6394 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6395 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6396 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6397 if (e1->op == TOKdotvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6398 dve->var = f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6399 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6400 e1 = new DotVarExp(loc, dte->e1, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6401 e1->type = f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6402 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6403 printf("ue->e1 = %s\n", ue->e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6404 printf("f = %s\n", f->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6405 printf("t = %s\n", t->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6406 printf("e1 = %s\n", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6407 printf("e1->type = %s\n", e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6408 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6409 // Const member function can take const/immutable/mutable this
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6410 if (!(f->type->isConst()))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6411 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6412 // Check for const/immutable compatibility
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6413 Type *tthis = ue->e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6414 if (tthis->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6415 tthis = tthis->nextOf()->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6416 if (f->type->isInvariant())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6417 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6418 if (tthis->mod != MODinvariant)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6419 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	6420 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6421 else
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 if (tthis->mod != 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6424 { //printf("mod = %x\n", tthis->mod);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6425 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	6426 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6427 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6428
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6429 /* Cannot call mutable method on a final struct
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6430 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6431 if (tthis->ty == Tstruct &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6432 ue->e1->op == TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6433 { VarExp v = (VarExp )ue->e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6434 if (v->var->storage_class & STCfinal)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6435 error("cannot call mutable method on final struct");
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 }
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 // See if we need to adjust the 'this' pointer
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6440 AggregateDeclaration *ad = f->isThis();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6441 ClassDeclaration *cd = ue->e1->type->isClassHandle();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6442 if (ad && cd && ad->isClassDeclaration() && ad != cd &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6443 ue->e1->op != TOKsuper)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6444 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6445 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	6446 ue->e1 = ue->e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6447 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6448 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6449 t1 = e1->type;
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 else if (e1->op == TOKsuper)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6452 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6453 // Base class constructor call
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6454 ClassDeclaration *cd = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6455
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6456 if (sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6457 cd = sc->func->toParent()->isClassDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6458 if (!cd \|\| !cd->baseClass \|\| !sc->func->isCtorDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6459 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6460 error("super class constructor call must be in a constructor");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6461 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6462 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6463 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6464 else
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 if (!cd->baseClass->ctor)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6467 { error("no super class constructor for %s", cd->baseClass->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6468 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6469 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6470 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6471 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6472 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6473 if (!sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6474 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6475 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6476 if (sc->callSuper & (CSXthis \| CSXsuper))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6477 error("reference to this before super()");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6478 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6479 if (sc->noctor \|\| sc->callSuper & CSXlabel)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6480 error("constructor calls not allowed in loops or after labels");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6481 if (sc->callSuper & (CSXsuper_ctor \| CSXthis_ctor))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6482 error("multiple constructor calls");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6483 sc->callSuper \|= CSXany_ctor \| CSXsuper_ctor;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6484 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6485
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6486 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	6487 checkDeprecated(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6488 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6489 checkPurity(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6490 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6491 e1 = new DotVarExp(e1->loc, e1, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6492 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6493 t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6494 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6495 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6496 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6497 else if (e1->op == TOKthis)
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 // same class constructor call
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6500 AggregateDeclaration *cd = NULL;
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 (sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6503 cd = sc->func->toParent()->isAggregateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6504 if (!cd \|\| !sc->func->isCtorDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6505 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6506 error("constructor call must be in a constructor");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6507 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6508 return this;
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6511 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6512 if (!sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6513 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6514 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6515 if (sc->callSuper & (CSXthis \| CSXsuper))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6516 error("reference to this before super()");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6517 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6518 if (sc->noctor \|\| sc->callSuper & CSXlabel)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6519 error("constructor calls not allowed in loops or after labels");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6520 if (sc->callSuper & (CSXsuper_ctor \| CSXthis_ctor))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6521 error("multiple constructor calls");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6522 sc->callSuper \|= CSXany_ctor \| CSXthis_ctor;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6525 f = resolveFuncCall(sc, loc, cd->ctor, NULL, NULL, arguments, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6526 checkDeprecated(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6527 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6528 checkPurity(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6529 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6530 e1 = new DotVarExp(e1->loc, e1, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6531 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6532 t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6533
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6534 // BUG: this should really be done by checking the static
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6535 // call graph
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6536 if (f == sc->func)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6537 error("cyclic constructor call");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6538 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6539 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6540 else if (e1->op == TOKoverloadset)
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 OverExp eo = (OverExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6543 FuncDeclaration *f = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6544 for (int i = 0; i < eo->vars->a.dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6545 { Dsymbol s = (Dsymbol )eo->vars->a.data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6546 FuncDeclaration *f2 = s->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6547 if (f2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6548 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6549 f2 = f2->overloadResolve(loc, NULL, arguments, 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6550 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6551 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6552 { TemplateDeclaration *td = s->isTemplateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6553 assert(td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6554 f2 = td->deduceFunctionTemplate(sc, loc, targsi, NULL, arguments, 1);
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 if (f2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6557 { if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6558 /* Error if match in more than one overload set,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6559 * even if one is a 'better' match than the other.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6560 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6561 ScopeDsymbol::multiplyDefined(loc, f, f2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6562 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6563 f = f2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6564 }
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 if (!f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6567 { /* No overload matches, just set f and rely on error
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6568 * message being generated later.
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 f = (FuncDeclaration *)eo->vars->a.data[0];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6571 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6572 e1 = new VarExp(loc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6573 goto Lagain;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6574 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6575 else if (!t1)
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("function expected before (), not '%s'", e1->toChars());
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 if (t1->ty != Tfunction)
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 (t1->ty == Tdelegate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6584 { TypeDelegate td = (TypeDelegate )t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6585 assert(td->next->ty == Tfunction);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6586 tf = (TypeFunction *)(td->next);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6587 if (sc->func && sc->func->isPure() && !tf->ispure)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6588 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6589 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	6590 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6591 goto Lcheckargs;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6592 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6593 else if (t1->ty == Tpointer && ((TypePointer *)t1)->next->ty == Tfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6594 { Expression *e;
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 e = new PtrExp(loc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6597 t1 = ((TypePointer *)t1)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6598 if (sc->func && sc->func->isPure() && !((TypeFunction *)t1)->ispure)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6599 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6600 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	6601 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6602 e->type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6603 e1 = e;
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 else if (e1->op == TOKtemplate)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6606 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6607 TemplateExp te = (TemplateExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6608 f = te->td->deduceFunctionTemplate(sc, loc, targsi, NULL, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6609 if (!f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6610 { if (tierror)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6611 tierror->error("errors instantiating template"); // give better error message
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6612 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6613 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6614 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6615 if (f->needThis() && hasThis(sc))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6616 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6617 // Supply an implicit 'this', as in
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6618 // this.ident
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 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	6621 goto Lagain;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6622 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6623
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6624 e1 = new VarExp(loc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6625 goto Lagain;
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6628 { 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	6629 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6630 return this;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6633 else if (e1->op == TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6634 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6635 // Do overload resolution
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6636 VarExp ve = (VarExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6637
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6638 f = ve->var->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6639 assert(f);
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 if (ve->hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6642 f = f->overloadResolve(loc, NULL, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6643 checkDeprecated(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6644 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6645 checkPurity(sc, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6646 #endif
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 if (f->needThis() && hasThis(sc))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6649 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6650 // Supply an implicit 'this', as in
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6651 // this.ident
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6652
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6653 e1 = new DotVarExp(loc, new ThisExp(loc), f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6654 goto Lagain;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6655 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6656
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6657 accessCheck(loc, sc, NULL, f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6658
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6659 ve->var = f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6660 // ve->hasOverloads = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6661 ve->type = f->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6662 t1 = f->type;
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 assert(t1->ty == Tfunction);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6665 tf = (TypeFunction *)(t1);
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 Lcheckargs:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6668 assert(tf->ty == Tfunction);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6669 type = tf->next;
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 if (!arguments)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6672 arguments = new Expressions();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6673 functionArguments(loc, sc, tf, arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6674
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6675 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6676 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6677 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	6678 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6679 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6680
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6681 if (f && f->tintro)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6682 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6683 Type *t = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6684 int offset = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6685 TypeFunction tf = (TypeFunction )f->tintro;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6686
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6687 if (tf->next->isBaseOf(t, &offset) && offset)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6688 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6689 type = tf->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6690 return castTo(sc, t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6691 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6692 }
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6695 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6696
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6697 int CallExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6698 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6699 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6700 if (flag != 2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6701 return 1;
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 if (e1->checkSideEffect(2))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6704 return 1;
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 /* 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	6707 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6708 for (size_t i = 0; i < arguments->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6709 { Expression e = (Expression )arguments->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6710
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6711 if (e->checkSideEffect(2))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6712 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6713 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6714
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6715 /* 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	6716 * then this expression has no side effects.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6717 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6718 Type *t = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6719 if (t->ty == Tfunction && ((TypeFunction *)t)->ispure)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6720 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6721 if (t->ty == Tdelegate && ((TypeFunction )((TypeDelegate )t)->next)->ispure)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6722 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6723 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6724 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6725 }
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6728 int CallExp::canThrow()
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 //printf("CallExp::canThrow() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6731 if (e1->canThrow())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6732 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6733
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6734 /* 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	6735 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6736 for (size_t i = 0; i < arguments->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6737 { Expression e = (Expression )arguments->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6738
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6739 if (e && e->canThrow())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6740 return 1;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6743 if (global.errors && !e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6744 return 0; // error recovery
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 calling a function or delegate that is typed as nothrow,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6747 * then this expression cannot throw.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6748 * Note that pure functions can throw.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6749 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6750 Type *t = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6751 if (t->ty == Tfunction && ((TypeFunction *)t)->isnothrow)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6752 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6753 if (t->ty == Tdelegate && ((TypeFunction )((TypeDelegate )t)->next)->isnothrow)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6754 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6755
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6756 return 1;
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 #endif
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6761 int CallExp::isLvalue()
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 // if (type->toBasetype()->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6764 // return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6765 Type *tb = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6766 if (tb->ty == Tfunction && ((TypeFunction *)tb)->isref)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6767 return 1; // function returns a reference
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6768 return 0;
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6771
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6772 Expression CallExp::toLvalue(Scope sc, Expression *e)
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 (isLvalue())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6775 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6776 return Expression::toLvalue(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6777 }
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 void CallExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6780 { int 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 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6783 buf->writeByte('(');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6784 argsToCBuffer(buf, arguments, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6785 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6786 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6787
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 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6790
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6791 AddrExp::AddrExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6792 : UnaExp(loc, TOKaddress, sizeof(AddrExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6793 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6794 m = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6795 }
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 Expression AddrExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6798 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6799 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6800 printf("AddrExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6801 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6802 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6803 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6804 m = sc->module;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6805 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6806 e1 = e1->toLvalue(sc, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6807 if (!e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6808 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6809 error("cannot take address of %s", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6810 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6811 return this;
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 type = e1->type->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6814
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6815 // See if this should really be a delegate
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6816 if (e1->op == TOKdotvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6817 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6818 DotVarExp dve = (DotVarExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6819 FuncDeclaration *f = dve->var->isFuncDeclaration();
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 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6822 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6823 if (!dve->hasOverloads)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6824 f->tookAddressOf++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6825 Expression *e = new DelegateExp(loc, dve->e1, f, dve->hasOverloads);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6826 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6827 return e;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6830 else if (e1->op == TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6831 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6832 VarExp ve = (VarExp )e1;
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 VarDeclaration *v = ve->var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6835 if (v && !v->canTakeAddressOf())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6836 error("cannot take address of %s", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6837
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6838 FuncDeclaration *f = ve->var->isFuncDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6839
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6840 if (f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6841 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6842 if (!ve->hasOverloads \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6843 /* Because nested functions cannot be overloaded,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6844 * mark here that we took its address because castTo()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6845 * may not be called with an exact match.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6846 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6847 f->toParent2()->isFuncDeclaration())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6848 f->tookAddressOf++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6849 if (f->isNested())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6850 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6851 Expression *e = new DelegateExp(loc, e1, f, ve->hasOverloads);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6852 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6853 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6854 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6855 if (f->needThis() && hasThis(sc))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6856 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6857 /* Should probably supply 'this' after overload resolution,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6858 * not before.
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 Expression *ethis = new ThisExp(loc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6861 Expression *e = new DelegateExp(loc, ethis, f, ve->hasOverloads);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6862 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6863 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6864 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6865 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6866 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6867 return optimize(WANTvalue);
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6870 }
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 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6873
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6874 PtrExp::PtrExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6875 : UnaExp(loc, TOKstar, sizeof(PtrExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6876 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6877 if (e->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6878 type = ((TypePointer *)e->type)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6879 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6880
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6881 PtrExp::PtrExp(Loc loc, Expression e, Type t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6882 : UnaExp(loc, TOKstar, sizeof(PtrExp), e)
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 type = t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6885 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6886
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6887 Expression PtrExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6888 { Type *tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6889
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6890 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6891 printf("PtrExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6892 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6893 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6894 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6895 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6896 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6897 if (!e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6898 printf("PtrExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6899 Expression *e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6900 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6901 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6902 tb = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6903 switch (tb->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6904 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6905 case Tpointer:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6906 type = ((TypePointer *)tb)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6907 break;
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 case Tsarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6910 case Tarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6911 type = ((TypeArray *)tb)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6912 e1 = e1->castTo(sc, type->pointerTo());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6913 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6914
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6915 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6916 error("can only * a pointer, not a '%s'", e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6917 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6918 break;
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 rvalue();
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6923 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6924
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6925 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6926 int PtrExp::isLvalue()
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 return 1;
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6931
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6932 Expression PtrExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6933 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6934 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6935 tym = tybasic(e1->ET->Tty);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6936 if (!(tyscalar(tym) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6937 tym == TYstruct \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6938 tym == TYarray && e->Eoper == TOKaddr))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6939 synerr(EM_lvalue); // lvalue expected
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6940 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6941 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6944 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6945 Expression PtrExp::modifiableLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6946 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6947 //printf("PtrExp::modifiableLvalue() %s, type %s\n", toChars(), type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6948
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6949 if (e1->op == TOKsymoff)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6950 { SymOffExp se = (SymOffExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6951 se->var->checkModify(loc, sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6952 //return toLvalue(sc, e);
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 Expression::modifiableLvalue(sc, e);
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 #endif
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 void PtrExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 buf->writeByte('*');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6962 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6963 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6964
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6965 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6966
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6967 NegExp::NegExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6968 : UnaExp(loc, TOKneg, sizeof(NegExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6969 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6970 }
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 Expression NegExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6973 { Expression *e;
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 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6976 printf("NegExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6977 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6978 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6979 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6980 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6981 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6982 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6983 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6984 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6985
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6986 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6987 if (e1->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6988 e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6989 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6990 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6991 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6992 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6993
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6994 /************************************************************/
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 UAddExp::UAddExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6997 : UnaExp(loc, TOKuadd, sizeof(UAddExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6998 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	6999 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7000
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7001 Expression UAddExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7002 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7003
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7004 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7005 printf("UAddExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7006 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7007 assert(!type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7008 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7009 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7010 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7011 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7012 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7013 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7014 e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7015 return e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7016 }
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 /************************************************************/
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 ComExp::ComExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7021 : UnaExp(loc, TOKtilde, sizeof(ComExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7022 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7023 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7024
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7025 Expression ComExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7026 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7027
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7028 if (!type)
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 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7031 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7032 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7033 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7034 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7035
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7036 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7037 if (e1->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7038 e1 = e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7039 type = e1->type;
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 this;
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
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7046 NotExp::NotExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7047 : UnaExp(loc, TOKnot, sizeof(NotExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7048 {
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 Expression NotExp::semantic(Scope sc)
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 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7054 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7055 e1 = e1->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7056 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7057 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7058 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7059
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7060 int NotExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7061 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7062 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7063 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7064
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7067 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7068
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7069 BoolExp::BoolExp(Loc loc, Expression e, Type t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7070 : UnaExp(loc, TOKtobool, sizeof(BoolExp), 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 type = t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7073 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7074
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7075 Expression BoolExp::semantic(Scope sc)
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 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7078 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7079 e1 = e1->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7080 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7081 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7082 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7083
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7084 int BoolExp::isBit()
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 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7087 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7088
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7091 DeleteExp::DeleteExp(Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7092 : UnaExp(loc, TOKdelete, sizeof(DeleteExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7093 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7094 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7095
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7096 Expression DeleteExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7097 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7098 Type *tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7099
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7100 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7101 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7102 e1 = e1->toLvalue(sc, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7103 type = Type::tvoid;
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 tb = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7106 switch (tb->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7107 { case Tclass:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7108 { TypeClass tc = (TypeClass )tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7109 ClassDeclaration *cd = tc->sym;
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 if (cd->isCOMinterface())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7112 { /* Because COM classes are deleted by IUnknown.Release()
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 error("cannot delete instance of COM interface %s", cd->toChars());
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 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7117 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7118 case Tpointer:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7119 tb = ((TypePointer *)tb)->next->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7120 if (tb->ty == Tstruct)
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 TypeStruct ts = (TypeStruct )tb;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7123 StructDeclaration *sd = ts->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7124 FuncDeclaration *f = sd->aggDelete;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7125 FuncDeclaration *fd = sd->dtor;
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 if (!f && !fd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7128 break;
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 /* Construct:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7131 * 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	7132 * eb = call destructor
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7133 * ec = call deallocator
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 Expression *ea = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7136 Expression *eb = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7137 Expression *ec = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7138 VarDeclaration *v;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7139
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7140 if (fd && f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7141 { Identifier *id = Lexer::idPool("__tmp");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7142 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	7143 v->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7144 v->parent = sc->parent;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7145 ea = new DeclarationExp(loc, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7146 ea->type = v->type;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7149 if (fd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7150 { Expression *e = ea ? new VarExp(loc, v) : e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7151 e = new DotVarExp(0, e, fd, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7152 eb = new CallExp(loc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7153 eb = eb->semantic(sc);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7156 if (f)
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 *tpv = Type::tvoid->pointerTo();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7159 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	7160 e = new CallExp(loc, new VarExp(loc, f), e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7161 ec = e->semantic(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 ea = combine(ea, eb);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7164 ea = combine(ea, ec);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7165 assert(ea);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7166 return ea;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7167 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7168 break;
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 case Tarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7171 /* BUG: look for deleting arrays of structs with dtors.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7172 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7173 break;
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 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7176 if (e1->op == TOKindex)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7177 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7178 IndexExp ae = (IndexExp )(e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7179 Type *tb1 = ae->e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7180 if (tb1->ty == Taarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7181 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7182 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7183 error("cannot delete type %s", e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7184 break;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7187 if (e1->op == TOKindex)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7188 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7189 IndexExp ae = (IndexExp )(e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7190 Type *tb1 = ae->e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7191 if (tb1->ty == Taarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7192 { if (!global.params.useDeprecated)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7193 error("delete aa[key] deprecated, use aa.remove(key)");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7194 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7195 }
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7198 }
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 int DeleteExp::checkSideEffect(int flag)
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 return 1;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7205 Expression *DeleteExp::checkToBoolean()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7206 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7207 error("delete does not give a boolean result");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7208 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7209 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7210
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7211 void DeleteExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 buf->writestring("delete ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7214 expToCBuffer(buf, hgs, e1, precedence[op]);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7217 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7218
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7219 CastExp::CastExp(Loc loc, Expression e, Type t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7220 : UnaExp(loc, TOKcast, sizeof(CastExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7221 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7222 to = t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7223 this->mod = ~0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7224 }
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 DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7227 /* For cast(const) and cast(immutable)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7228 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7229 CastExp::CastExp(Loc loc, Expression *e, unsigned mod)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7230 : UnaExp(loc, TOKcast, sizeof(CastExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7231 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7232 to = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7233 this->mod = mod;
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7236
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7237 Expression *CastExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7238 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7239 return to ? new CastExp(loc, e1->syntaxCopy(), to->syntaxCopy())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7240 : new CastExp(loc, e1->syntaxCopy(), mod);
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
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 Expression CastExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7245 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7246 BinExp *b;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7247 UnaExp *u;
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 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7250 printf("CastExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7251 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7252
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7253 //static int x; assert(++x < 10);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7254
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7255 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7256 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7257 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7258 if (e1->type) // if not a tuple
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7259 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7260 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7261
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7262 if (!to)
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 /* Handle cast(const) and cast(immutable), etc.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7265 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7266 to = e1->type->castMod(mod);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7267 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7268 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7269 to = to->semantic(loc, sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7270
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7271 if (!to->equals(e1->type))
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 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7274 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7275 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7276 return e->implicitCastTo(sc, to);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7277 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7278 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7279
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7280 Type *t1b = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7281 Type *tob = to->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7282 if (tob->ty == Tstruct &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7283 !tob->equals(t1b) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7284 ((TypeStruct *)tob)->sym->search(0, Id::call, 0)
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 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7287 /* Look to replace:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7288 * cast(S)t
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7289 * with:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7290 * S(t)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7291 */
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 // Rewrite as to.call(e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7294 e = new TypeExp(loc, to);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7295 e = new DotIdExp(loc, e, Id::call);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7296 e = new CallExp(loc, e, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7297 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7298 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7299 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7300 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7301 else if (!to)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7302 { error("cannot cast tuple");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7303 to = Type::terror;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7306 if (global.params.safe && !sc->module->safe && !sc->intypeof)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7307 { // Disallow unsafe casts
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7308 Type *tob = to->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7309 Type *t1b = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7310 if (!t1b->isMutable() && tob->isMutable())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7311 { // Cast not mutable to mutable
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7312 Lunsafe:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7313 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	7314 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7315 else if (t1b->isShared() && !tob->isShared())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7316 // Cast away shared
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7317 goto Lunsafe;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7318 else if (tob->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7319 { if (t1b->ty != Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7320 goto Lunsafe;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7321 Type *tobn = tob->nextOf()->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7322 Type *t1bn = t1b->nextOf()->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7323
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7324 if (!t1bn->isMutable() && tobn->isMutable())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7325 // Cast away pointer to not mutable
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7326 goto Lunsafe;
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 if (t1bn->isShared() && !tobn->isShared())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7329 // Cast away pointer to shared
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7330 goto Lunsafe;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7331
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7332 if (tobn->isTypeBasic() && tobn->size() < t1bn->size())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7333 // Allow things like casting a long* to an int*
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 else if (tobn->ty != Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7336 // Cast to a pointer other than void*
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7337 goto Lunsafe;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7340 // 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	7341 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7342
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7343 e = e1->castTo(sc, to);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7344 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7347 int CastExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7348 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7349 /* if not:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7350 * cast(void)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7351 * cast(classtype)func()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7352 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7353 if (!to->equals(Type::tvoid) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7354 !(to->ty == Tclass && e1->op == TOKcall && e1->type->ty == Tclass))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7355 return Expression::checkSideEffect(flag);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7356 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7357 }
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 void CastExp::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7360 { Type *tb = type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7361 if (tb->ty == Tarray && e1->op == TOKvar &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7362 e1->type->toBasetype()->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7363 { VarExp ve = (VarExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7364 VarDeclaration *v = ve->var->isVarDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7365 if (v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7366 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7367 if (!v->isDataseg() && !v->isParameter())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7368 error("escaping reference to local %s", v->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7369 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7370 }
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 void CastExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7374 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7375 buf->writestring("cast(");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7376 #if DMDV1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7377 to->toCBuffer(buf, NULL, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7378 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7379 if (to)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7380 to->toCBuffer(buf, NULL, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7381 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7382 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7383 switch (mod)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7384 { case 0:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7385 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7386 case MODconst:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7387 buf->writestring(Token::tochars[TOKconst]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7388 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7389 case MODinvariant:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7390 buf->writestring(Token::tochars[TOKimmutable]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7391 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7392 case MODshared:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7393 buf->writestring(Token::tochars[TOKshared]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7394 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7395 case MODshared \| MODconst:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7396 buf->writestring(Token::tochars[TOKshared]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7397 buf->writeByte(' ');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7398 buf->writestring(Token::tochars[TOKconst]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7399 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7400 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7401 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7402 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7403 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7404 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7405 buf->writeByte(')');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7406 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7407 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7408
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 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7411
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7412 SliceExp::SliceExp(Loc loc, Expression e1, Expression lwr, Expression *upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7413 : UnaExp(loc, TOKslice, sizeof(SliceExp), e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7414 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7415 this->upr = upr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7416 this->lwr = lwr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7417 lengthVar = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7418 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7419
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7420 Expression *SliceExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7421 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7422 Expression *lwr = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7423 if (this->lwr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7424 lwr = this->lwr->syntaxCopy();
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 Expression *upr = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7427 if (this->upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7428 upr = this->upr->syntaxCopy();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7429
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7430 return new SliceExp(loc, e1->syntaxCopy(), lwr, upr);
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 Expression SliceExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7434 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7435 AggregateDeclaration *ad;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7436 //FuncDeclaration *fd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7437 ScopeDsymbol *sym;
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 LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7440 printf("SliceExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7441 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7442 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7443 return this;
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 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7446 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7447
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7448 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7449
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7450 Type *t = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7451 if (t->ty == Tpointer)
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 (!lwr \|\| !upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7454 error("need upper and lower bound to slice pointer");
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 else if (t->ty == Tarray)
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 else if (t->ty == Tsarray)
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7462 else if (t->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7463 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7464 ad = ((TypeClass *)t)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7465 goto L1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7466 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7467 else if (t->ty == Tstruct)
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 ad = ((TypeStruct *)t)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7470
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7471 L1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7472 if (search_function(ad, Id::slice))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7473 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7474 // Rewrite as e1.slice(lwr, upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7475 e = new DotIdExp(loc, e1, Id::slice);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7476
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7477 if (lwr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7478 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7479 assert(upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7480 e = new CallExp(loc, e, lwr, upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7481 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7482 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7483 { assert(!upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7484 e = new CallExp(loc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7485 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7486 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7487 return e;
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 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7490 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7491 else if (t->ty == Ttuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7492 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7493 if (!lwr && !upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7494 return e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7495 if (!lwr \|\| !upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7496 { error("need upper and lower bound to slice tuple");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7497 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7498 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7499 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7500 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7501 goto Lerror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7502
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7503 if (t->ty == Tsarray \|\| t->ty == Tarray \|\| t->ty == Ttuple)
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 sym = new ArrayScopeSymbol(sc, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7506 sym->loc = loc;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7507 sym->parent = sc->scopesym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7508 sc = sc->push(sym);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7509 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7510
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7511 if (lwr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7512 { lwr = lwr->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7513 lwr = resolveProperties(sc, lwr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7514 lwr = lwr->implicitCastTo(sc, Type::tsize_t);
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 if (upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7517 { upr = upr->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7518 upr = resolveProperties(sc, upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7519 upr = upr->implicitCastTo(sc, Type::tsize_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7520 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7521
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7522 if (t->ty == Tsarray \|\| t->ty == Tarray \|\| t->ty == Ttuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7523 sc->pop();
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 (t->ty == Ttuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7526 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7527 lwr = lwr->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7528 upr = upr->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7529 uinteger_t i1 = lwr->toUInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7530 uinteger_t i2 = upr->toUInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7531
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7532 size_t length;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7533 TupleExp *te;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7534 TypeTuple *tup;
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 if (e1->op == TOKtuple) // slicing an expression tuple
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7537 { te = (TupleExp *)e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7538 length = te->exps->dim;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7539 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7540 else if (e1->op == TOKtype) // slicing a type tuple
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7541 { tup = (TypeTuple *)t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7542 length = Argument::dim(tup->arguments);
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7545 assert(0);
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 if (i1 <= i2 && i2 <= length)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7548 { size_t j1 = (size_t) i1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7549 size_t j2 = (size_t) i2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7550
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7551 if (e1->op == TOKtuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7552 { Expressions *exps = new Expressions;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7553 exps->setDim(j2 - j1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7554 for (size_t i = 0; i < j2 - j1; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7555 { Expression e = (Expression )te->exps->data[j1 + i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7556 exps->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7557 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7558 e = new TupleExp(loc, exps);
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7561 { Arguments *args = new Arguments;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7562 args->reserve(j2 - j1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7563 for (size_t i = j1; i < j2; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7564 { Argument *arg = Argument::getNth(tup->arguments, i);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7565 args->push(arg);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7566 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7567 e = new TypeExp(e1->loc, new TypeTuple(args));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7568 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7569 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7570 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7571 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7572 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7573 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	7574 e = new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7575 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7576 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7577 }
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 (t->ty == Tarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7580 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7581 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7582 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7583 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7584 type = t->nextOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7585 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7586
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7587 Lerror:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7588 char *s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7589 if (t->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7590 s = e1->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7591 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7592 s = t->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7593 error("%s cannot be sliced with []", s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7594 e = new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7595 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7598 void SliceExp::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7599 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7600 e1->checkEscape();
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7603 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7604 int SliceExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7605 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7606 return 1;
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7609
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7610 Expression SliceExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7611 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7612 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7613 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7614
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7615 Expression SliceExp::modifiableLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7616 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7617 error("slice expression %s is not a modifiable lvalue", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7618 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7619 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7620
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7621 void SliceExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7622 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7623 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7624 buf->writeByte('[');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7625 if (upr \|\| lwr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7626 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7627 if (lwr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7628 expToCBuffer(buf, hgs, lwr, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7629 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7630 buf->writeByte('0');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7631 buf->writestring("..");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7632 if (upr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7633 expToCBuffer(buf, hgs, upr, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7634 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7635 buf->writestring("length"); // BUG: should be array.length
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 buf->writeByte(']');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7638 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7639
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7640 /******************** ArrayLength ************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7641
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7642 ArrayLengthExp::ArrayLengthExp(Loc loc, Expression *e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7643 : UnaExp(loc, TOKarraylength, sizeof(ArrayLengthExp), e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7644 {
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7647 Expression ArrayLengthExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7648 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7649
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7650 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7651 printf("ArrayLengthExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7652 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7653 if (!type)
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 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7656 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7657
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7658 type = Type::tsize_t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7659 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7660 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7663 void ArrayLengthExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7666 buf->writestring(".length");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7667 }
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 /********************* ArrayExp ***********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7670
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7671 // e1 [ i1, i2, i3, ... ]
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 ArrayExp::ArrayExp(Loc loc, Expression e1, Expressions args)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7674 : UnaExp(loc, TOKarray, sizeof(ArrayExp), e1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7675 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7676 arguments = args;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7677 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7678
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7679 Expression *ArrayExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7680 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7681 return new ArrayExp(loc, e1->syntaxCopy(), arraySyntaxCopy(arguments));
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 Expression ArrayExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7685 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7686 Type *t1;
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 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7689 printf("ArrayExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7690 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7691 UnaExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7692 e1 = resolveProperties(sc, e1);
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 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7695 if (t1->ty != Tclass && t1->ty != Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7696 { // Convert to IndexExp
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7697 if (arguments->dim != 1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7698 error("only one index allowed to index %s", t1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7699 e = new IndexExp(loc, e1, (Expression *)arguments->data[0]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7700 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7701 }
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 // Run semantic() on each argument
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7704 for (size_t i = 0; i < arguments->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7705 { e = (Expression *)arguments->data[i];
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 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7708 if (!e->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7709 error("%s has no value", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7710 arguments->data[i] = (void *)e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7711 }
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 expandTuples(arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7714 assert(arguments && arguments->dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7715
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7716 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7717 if (!e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7718 { error("no [] operator overload for type %s", e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7719 e = e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7720 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7721 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7724 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7725 int ArrayExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7726 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7727 if (type && type->toBasetype()->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7728 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7729 return 1;
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 #endif
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 ArrayExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7734 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7735 if (type && type->toBasetype()->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7736 error("voids have no value");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7737 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7738 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7739
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 void ArrayExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7742 { int i;
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 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7745 buf->writeByte('[');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7746 argsToCBuffer(buf, arguments, hgs);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7747 buf->writeByte(']');
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7750 /*********************** DotExp *********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7751
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7752 DotExp::DotExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7753 : BinExp(loc, TOKdotexp, sizeof(DotExp), e1, e2)
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 }
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 Expression DotExp::semantic(Scope sc)
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 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7760 printf("DotExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7761 if (type) printf("\ttype = %s\n", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7762 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7763 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7764 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7765 if (e2->op == TOKimport)
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 ScopeExp se = (ScopeExp )e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7768 TemplateDeclaration *td = se->sds->isTemplateDeclaration();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7769 if (td)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7770 { Expression *e = new DotTemplateExp(loc, e1, td);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7771 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7772 return e;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7775 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7776 type = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7777 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7778 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7781 /*********************** CommaExp *********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7782
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7783 CommaExp::CommaExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7784 : BinExp(loc, TOKcomma, sizeof(CommaExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7785 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7786 }
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 Expression CommaExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7789 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7790 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7791 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7792 type = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7793 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7794 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7795 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7796
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7797 void CommaExp::checkEscape()
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 e2->checkEscape();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7800 }
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7803 int CommaExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7804 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7805 return e2->isLvalue();
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 #endif
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 Expression CommaExp::toLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7810 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7811 e2 = e2->toLvalue(sc, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7812 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7813 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7814
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7815 Expression CommaExp::modifiableLvalue(Scope sc, Expression *e)
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 e2 = e2->modifiableLvalue(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7818 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7819 }
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 int CommaExp::isBool(int result)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7822 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7823 return e2->isBool(result);
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 int CommaExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7827 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7828 if (flag == 2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7829 return e1->checkSideEffect(2) \|\| e2->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7830 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7831 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7832 // 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	7833 return e2->checkSideEffect(flag);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7837 /************************ IndexExp ********************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7838
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7839 // 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 IndexExp::IndexExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7842 : BinExp(loc, TOKindex, sizeof(IndexExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7843 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7844 //printf("IndexExp::IndexExp('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7845 lengthVar = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7846 modifiable = 0; // assume it is an rvalue
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7847 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7848
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7849 Expression IndexExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7850 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7851 BinExp *b;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7852 UnaExp *u;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7853 Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7854 ScopeDsymbol *sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7855
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7856 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7857 printf("IndexExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7858 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7859 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7860 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7861 if (!e1->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7862 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7863 assert(e1->type); // semantic() should already be run on it
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7864 e = this;
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 // 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	7867
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7868 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7869
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7870 if (t1->ty == Tsarray \|\| t1->ty == Tarray \|\| t1->ty == Ttuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7871 { // Create scope for 'length' variable
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7872 sym = new ArrayScopeSymbol(sc, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7873 sym->loc = loc;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7874 sym->parent = sc->scopesym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7875 sc = sc->push(sym);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7876 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7877
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7878 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7879 if (!e2->type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7880 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7881 error("%s has no value", e2->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7882 e2->type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7883 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7884 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7885
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7886 if (t1->ty == Tsarray \|\| t1->ty == Tarray \|\| t1->ty == Ttuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7887 sc = sc->pop();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7888
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7889 switch (t1->ty)
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 case Tpointer:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7892 case Tarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7893 e2 = e2->implicitCastTo(sc, Type::tsize_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7894 e->type = ((TypeNext *)t1)->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7895 break;
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 case Tsarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7898 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7899 e2 = e2->implicitCastTo(sc, Type::tsize_t);
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 TypeSArray tsa = (TypeSArray )t1;
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 #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	7904 // Do compile time array bounds checking if possible
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7905 e2 = e2->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7906 if (e2->op == TOKint64)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7907 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7908 dinteger_t index = e2->toInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7909 dinteger_t length = tsa->dim->toInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7910 if (index < 0 \|\| index >= length)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7911 error("array index [%lld] is outside array bounds [0 .. %lld]",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7912 index, length);
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7915 e->type = t1->nextOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7916 break;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7919 case Taarray:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7920 { TypeAArray taa = (TypeAArray )t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7921 if (!arrayTypeCompatible(e2->loc, e2->type, taa->index))
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 e2 = e2->implicitCastTo(sc, taa->index); // type checking
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 type = taa->next;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7926 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7927 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7928
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7929 case Ttuple:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7930 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7931 e2 = e2->implicitCastTo(sc, Type::tsize_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7932 e2 = e2->optimize(WANTvalue \| WANTinterpret);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7933 uinteger_t index = e2->toUInteger();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7934 size_t length;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7935 TupleExp *te;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7936 TypeTuple *tup;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7937
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7938 if (e1->op == TOKtuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7939 { te = (TupleExp *)e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7940 length = te->exps->dim;
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 else if (e1->op == TOKtype)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7943 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7944 tup = (TypeTuple *)t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7945 length = Argument::dim(tup->arguments);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7946 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7947 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7948 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7949
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7950 if (index < length)
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7953 if (e1->op == TOKtuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7954 e = (Expression *)te->exps->data[(size_t)index];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7955 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7956 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	7957 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7958 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7959 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7960 error("array index [%ju] is outside array bounds [0 .. %zu]",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7961 index, length);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7962 e = e1;
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 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7965 }
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 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7968 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	7969 e1->toChars(), e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7970 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7971 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7972 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7973 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7976 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7977 int IndexExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7978 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7979 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7980 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7981 #endif
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 Expression IndexExp::toLvalue(Scope sc, Expression *e)
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 // if (type && type->toBasetype()->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7986 // error("voids have no value");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7987 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7990 Expression IndexExp::modifiableLvalue(Scope sc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7991 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7992 //printf("IndexExp::modifiableLvalue(%s)\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7993 modifiable = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7994 if (e1->op == TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7995 error("string literals are immutable");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7996 if (type && !type->isMutable())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7997 error("%s isn't mutable", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7998 if (e1->type->toBasetype()->ty == Taarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	7999 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8000 return toLvalue(sc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8001 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8002
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8003 void IndexExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
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 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8006 buf->writeByte('[');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8007 expToCBuffer(buf, hgs, e2, PREC_assign);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8008 buf->writeByte(']');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8009 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8012 /*********************** PostExp *********************************/
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 PostExp::PostExp(enum TOK op, Loc loc, Expression *e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8015 : BinExp(loc, op, sizeof(PostExp), e,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8016 new IntegerExp(loc, 1, Type::tint32))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8017 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8018 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8019
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8020 Expression PostExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8021 { Expression *e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8022
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8023 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8024 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8025 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8026 e2 = resolveProperties(sc, e2);
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 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8029 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8030 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8031
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8032 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8033 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8034 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8035 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8036 if (e1->type->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8037 e = scaleFactor(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8038 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8039 e2 = e2->castTo(sc, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8040 e->type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8041 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8042 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8045 void PostExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8046 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8047 expToCBuffer(buf, hgs, e1, precedence[op]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8048 buf->writestring((op == TOKplusplus) ? (char )"++" : (char )"--");
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
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 /* op can be TOKassign, TOKconstruct, or TOKblit */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8054
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8055 AssignExp::AssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8056 : BinExp(loc, TOKassign, sizeof(AssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8057 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8058 ismemset = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8059 }
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 Expression AssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8062 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8063 Expression *e1old = e1;
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 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8066 printf("AssignExp::semantic('%s')\n", toChars());
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 //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	8069 //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	8070
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8071 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8072 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8073
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8074 if (e2->op == TOKcomma)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8075 { /* Rewrite to get rid of the comma from rvalue
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8076 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8077 AssignExp ea = new AssignExp(loc, e1, ((CommaExp )e2)->e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8078 ea->op = op;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8079 Expression e = new CommaExp(loc, ((CommaExp )e2)->e1, ea);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8080 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8081 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8082
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8083 /* Look for operator overloading of a[i]=value.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8084 * 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	8085 * converted to a.opIndex() already.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8086 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8087 if (e1->op == TOKarray)
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 ArrayExp ae = (ArrayExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8090 AggregateDeclaration *ad;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8091 Identifier *id = Id::index;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8092
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8093 ae->e1 = ae->e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8094 Type *t1 = ae->e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8095 if (t1->ty == Tstruct)
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 ad = ((TypeStruct *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8098 goto L1;
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 else if (t1->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8101 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8102 ad = ((TypeClass *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8103 L1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8104 // Rewrite (a[i] = value) to (a.opIndexAssign(value, i))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8105 if (search_function(ad, Id::indexass))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8106 { Expression *e = new DotIdExp(loc, ae->e1, Id::indexass);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8107 Expressions a = (Expressions )ae->arguments->copy();
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 a->insert(0, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8110 e = new CallExp(loc, e, a);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8111 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8112 return e;
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8115 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8116 // Rewrite (a[i] = value) to (a.opIndex(i, value))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8117 if (search_function(ad, id))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8118 { Expression *e = new DotIdExp(loc, ae->e1, id);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8119
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8120 if (1 \|\| !global.params.useDeprecated)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8121 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	8122
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8123 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	8124 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8125 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8126 }
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 }
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 /* Look for operator overloading of a[i..j]=value.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8131 * 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	8132 * converted to a.opSlice() already.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8133 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8134 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8135 { Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8136 SliceExp ae = (SliceExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8137 AggregateDeclaration *ad;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8138 Identifier *id = Id::index;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8139
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8140 ae->e1 = ae->e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8141 ae->e1 = resolveProperties(sc, ae->e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8142 t1 = ae->e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8143 if (t1->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8144 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8145 ad = ((TypeStruct *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8146 goto L2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8147 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8148 else if (t1->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8149 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8150 ad = ((TypeClass *)t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8151 L2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8152 // 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	8153 if (search_function(ad, Id::sliceass))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8154 { Expression *e = new DotIdExp(loc, ae->e1, Id::sliceass);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8155 Expressions *a = new Expressions();
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 a->push(e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8158 if (ae->lwr)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8159 { a->push(ae->lwr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8160 assert(ae->upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8161 a->push(ae->upr);
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8164 assert(!ae->upr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8165 e = new CallExp(loc, e, a);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8166 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8167 return e;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8170 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8171
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8172 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8173
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8174 if (e1->op == TOKdottd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8175 { // 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	8176 Expression *e = new CallExp(loc, e1, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8177 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8178 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8179 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8180
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8181 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8182 assert(e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8183
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8184 /* Rewrite tuple assignment as a tuple of assignments.
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 if (e1->op == TOKtuple && e2->op == TOKtuple)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8187 { TupleExp tup1 = (TupleExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8188 TupleExp tup2 = (TupleExp )e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8189 size_t dim = tup1->exps->dim;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8190 if (dim != tup2->exps->dim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8191 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8192 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	8193 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8194 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8195 { Expressions *exps = new Expressions;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8196 exps->setDim(dim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8197
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8198 for (int i = 0; i < dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8199 { Expression ex1 = (Expression )tup1->exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8200 Expression ex2 = (Expression )tup2->exps->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8201 exps->data[i] = (void *) new AssignExp(loc, ex1, ex2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8202 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8203 Expression *e = new TupleExp(loc, exps);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8204 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8205 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8206 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8207 }
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 Type *t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8210
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8211 if (t1->ty == Tfunction)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8212 { // Rewrite f=value to f(value)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8213 Expression *e = new CallExp(loc, e1, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8214 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8215 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8216 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8217
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8218 /* If it is an assignment from a 'foreign' type,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8219 * check for operator overloading.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8220 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8221 if (t1->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8222 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8223 StructDeclaration sd = ((TypeStruct )t1)->sym;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8224 if (op == TOKassign)
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 Expression *e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8227 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8228 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8229 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8230 else if (op == TOKconstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8231 { Type *t2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8232 if (t2->ty == Tstruct &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8233 sd == ((TypeStruct *)t2)->sym &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8234 sd->cpctor)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8235 { /* We have a copy constructor for this
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8236 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8237 if (e2->op == TOKvar \|\| e2->op == TOKstar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8238 { /* Write as:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8239 * e1.cpctor(e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8240 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8241 Expression *e = new DotVarExp(loc, e1, sd->cpctor, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8242 e = new CallExp(loc, e, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8243 return e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8244 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8245 else if (e2->op == TOKquestion)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8246 { /* Write as:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8247 * a ? e1 = b : e1 = c;
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 CondExp ec = (CondExp )e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8250 AssignExp *ea1 = new AssignExp(ec->e1->loc, e1, ec->e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8251 ea1->op = op;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8252 AssignExp *ea2 = new AssignExp(ec->e1->loc, e1, ec->e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8253 ea2->op = op;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8254 Expression *e = new CondExp(loc, ec->econd, ea1, ea2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8255 return e->semantic(sc);
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 }
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 else if (t1->ty == Tclass)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8261 { // Disallow assignment operator overloads for same type
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8262 if (!e2->type->implicitConvTo(e1->type))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8263 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8264 Expression *e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8265 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8266 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8267 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8268 }
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 if (t1->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8271 { // Convert e1 to e1[]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8272 Expression *e = new SliceExp(e1->loc, e1, NULL, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8273 e1 = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8274 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8275 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8276
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8277 e2->rvalue();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8278
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8279 if (e1->op == TOKarraylength)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8280 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8281 // 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	8282 ArrayLengthExp ale = (ArrayLengthExp )e1;
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 ale->e1 = ale->e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8285 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8286 else if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8287 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8288 Type *tn = e1->type->nextOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8289 if (tn && !tn->isMutable() && op != TOKconstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8290 error("slice %s is not mutable", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8291 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8292 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8293 { // Try to do a decent error message with the expression
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8294 // before it got constant folded
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8295 if (e1->op != TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8296 e1 = e1->optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8297
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8298 if (op != TOKconstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8299 e1 = e1->modifiableLvalue(sc, e1old);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8300 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8301
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8302 Type *t2 = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8303 if (e1->op == TOKslice &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8304 t1->nextOf() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8305 e2->implicitConvTo(t1->nextOf())
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 { // memset
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8308 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	8309 e2 = e2->implicitCastTo(sc, t1->nextOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8310 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8311 else if (t1->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8312 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8313 /* Should have already converted e1 => e1[]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8314 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8315 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8316 //error("cannot assign to static array %s", e1->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8317 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8318 else if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8319 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8320 e2 = e2->implicitCastTo(sc, e1->type->constOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8321 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8322 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8323 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8324 e2 = e2->implicitCastTo(sc, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8325 }
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 /* Look for array operations
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8328 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8329 if (e1->op == TOKslice && !ismemset &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8330 (e2->op == TOKadd \|\| e2->op == TOKmin \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8331 e2->op == TOKmul \|\| e2->op == TOKdiv \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8332 e2->op == TOKmod \|\| e2->op == TOKxor \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8333 e2->op == TOKand \|\| e2->op == TOKor \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8334 e2->op == TOKtilde \|\| e2->op == TOKneg))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8335 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8336 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8337 return arrayOp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8338 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8339
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8340 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8341 assert(type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8342 return this;
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 Expression *AssignExp::checkToBoolean()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8346 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8347 // Things like:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8348 // if (a = b) ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8349 // are usually mistakes.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8350
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8351 error("'=' does not give a boolean result");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8352 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8357 AddAssignExp::AddAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8358 : BinExp(loc, TOKaddass, sizeof(AddAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8359 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8360 }
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 Expression AddAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8363 { Expression *e;
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 (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8366 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8367
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8368 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8369 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8370
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8371 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8372 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8373 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8374
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8375 Type *tb1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8376 Type *tb2 = e2->type->toBasetype();
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 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8379 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8380 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8381 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8382 return arrayOp(sc);
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8385 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8386 e1 = e1->modifiableLvalue(sc, e1);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8389 if ((tb1->ty == Tarray \|\| tb1->ty == Tsarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8390 (tb2->ty == Tarray \|\| tb2->ty == Tsarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8391 tb1->nextOf()->equals(tb2->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 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8394 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8395 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8396 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8397 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8398 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8399 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8400 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8401 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8402 if (tb1->ty == Tpointer && tb2->isintegral())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8403 e = scaleFactor(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8404 else if (tb1->ty == Tbit \|\| tb1->ty == Tbool)
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 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8407 // Need to rethink this
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8408 if (e1->op != TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8409 { // Rewrite e1+=e2 to (v=&e1),v=v+e2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8410 VarDeclaration *v;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8411 Expression *ea;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8412 Expression *ex;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8413
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8414 Identifier *id = Lexer::uniqueId("__name");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8415
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8416 v = new VarDeclaration(loc, tb1->pointerTo(), id, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8417 v->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8418 if (!sc->insert(v))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8419 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8420 v->parent = sc->func;
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 ea = new AddrExp(loc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8423 ea = new AssignExp(loc, new VarExp(loc, v), ea);
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 ex = new VarExp(loc, v);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8426 ex = new PtrExp(loc, ex);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8427 e = new AddExp(loc, ex, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8428 e = new CastExp(loc, e, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8429 e = new AssignExp(loc, ex->syntaxCopy(), e);
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 e = new CommaExp(loc, ea, e);
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8434 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8435 { // Rewrite e1+=e2 to e1=e1+e2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8436 // BUG: doesn't account for side effects in e1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8437 // 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	8438 e = new AddExp(loc, e1, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8439 e = new CastExp(loc, e, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8440 e = new AssignExp(loc, e1->syntaxCopy(), e);
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 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8443 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8444 else
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 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8447 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8448 e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8449 e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8450 if (type->isreal() \|\| type->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8451 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8452 assert(global.errors \|\| e2->type->isfloating());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8453 e2 = e2->castTo(sc, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8454 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8455 e = this;
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 if (e2->type->iscomplex() && !type->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8458 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	8459 }
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 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8462 }
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 /************************************************************/
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 MinAssignExp::MinAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8467 : BinExp(loc, TOKminass, sizeof(MinAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8468 {
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8471 Expression MinAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8472 { Expression *e;
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 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8475 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8476
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8477 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8478 e2 = resolveProperties(sc, e2);
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 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8481 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8482 return e;
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 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8485 { // T[] -= ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8486 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8487 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8488 return arrayOp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8489 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8490
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8491 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8492 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8493 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8494 if (e1->type->ty == Tpointer && e2->type->isintegral())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8495 e = scaleFactor(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8496 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8497 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8498 e1 = e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8499 e2 = e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8500 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8501 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8502 if (type->isreal() \|\| type->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8503 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8504 assert(e2->type->isfloating());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8505 e2 = e2->castTo(sc, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8506 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8507 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8508
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8509 if (e2->type->iscomplex() && !type->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8510 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	8511 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8512 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8513 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8514
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8515 /************************************************************/
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 CatAssignExp::CatAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8518 : BinExp(loc, TOKcatass, sizeof(CatAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8519 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8520 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8521
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8522 Expression CatAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8523 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8524
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8525 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8526 e2 = resolveProperties(sc, e2);
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 = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8529 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8530 return e;
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 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8533 { SliceExp se = (SliceExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8534
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8535 if (se->e1->type->toBasetype()->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8536 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	8537 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8538
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8539 e1 = e1->modifiableLvalue(sc, e1);
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 Type *tb1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8542 Type *tb2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8543
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8544 e2->rvalue();
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 if ((tb1->ty == Tarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8547 (tb2->ty == Tarray \|\| tb2->ty == Tsarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8548 (e2->implicitConvTo(e1->type) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8549 tb2->nextOf()->implicitConvTo(tb1->nextOf()))
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 { // Append array
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8552 e2 = e2->castTo(sc, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8553 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8554 e = this;
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 else if ((tb1->ty == Tarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8557 e2->implicitConvTo(tb1->nextOf())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8558 )
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8559 { // Append element
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8560 e2 = e2->castTo(sc, tb1->nextOf());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8561 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8562 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8563 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8564 else
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 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	8567 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8568 e = this;
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 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8571 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8572
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8573 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8574
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8575 MulAssignExp::MulAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8576 : BinExp(loc, TOKmulass, sizeof(MulAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8577 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8578 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8579
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8580 Expression MulAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8581 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8582
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8583 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8584 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8585
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8586 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8587 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8588 return e;
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 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8591 { // T[] -= ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8592 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8593 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8594 return arrayOp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8595 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8596
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8597 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8598 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8599 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8600 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8601 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8602 e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8603 e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8604 if (e2->type->isfloating())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8605 { Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8606 Type *t2;
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 t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8609 t2 = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8610 if (t1->isreal())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8611 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8612 if (t2->isimaginary() \|\| t2->iscomplex())
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 e2 = e2->castTo(sc, t1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8615 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8616 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8617 else if (t1->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8618 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8619 if (t2->isimaginary() \|\| t2->iscomplex())
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 switch (t1->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8622 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8623 case Timaginary32: t2 = Type::tfloat32; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8624 case Timaginary64: t2 = Type::tfloat64; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8625 case Timaginary80: t2 = Type::tfloat80; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8626 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8627 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8628 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8629 e2 = e2->castTo(sc, t2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8630 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8633 if (e2->type->iscomplex() && !type->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8634 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	8635 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8636 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8637 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8638
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8639 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8640
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8641 DivAssignExp::DivAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8642 : BinExp(loc, TOKdivass, sizeof(DivAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8643 {
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8646 Expression DivAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8647 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8648
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8649 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8650 e2 = resolveProperties(sc, e2);
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 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8653 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8654 return e;
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 if (e1->op == TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8657 { // T[] -= ...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8658 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8659 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8660 return arrayOp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8661 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8662
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8663 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8664 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8665 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8666 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8667 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8668 e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8669 e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8670 if (e2->type->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8671 { Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8672 Type *t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8673
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8674 t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8675 if (t1->isreal())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8676 { // x/iv = i(-x/v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8677 // Therefore, the result is 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8678 e2 = new CommaExp(loc, e2, new RealExp(loc, 0, t1));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8679 e2->type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8680 e = new AssignExp(loc, e1, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8681 e->type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8682 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8683 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8684 else if (t1->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8685 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8686
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8687 switch (t1->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8688 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8689 case Timaginary32: t2 = Type::tfloat32; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8690 case Timaginary64: t2 = Type::tfloat64; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8691 case Timaginary80: t2 = Type::tfloat80; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8692 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8693 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8694 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8695 e2 = e2->castTo(sc, t2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8696 e = new AssignExp(loc, e1, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8697 e->type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8698 return e;
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 }
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 if (e2->type->iscomplex() && !type->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8703 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	8704
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8705 return this;
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
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8710 ModAssignExp::ModAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8711 : BinExp(loc, TOKmodass, sizeof(ModAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8712 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8713 }
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 Expression ModAssignExp::semantic(Scope sc)
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 return commonSemanticAssign(sc);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8720 /************************************************************/
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 ShlAssignExp::ShlAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8723 : BinExp(loc, TOKshlass, sizeof(ShlAssignExp), e1, e2)
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 Expression ShlAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8728 { Expression *e;
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 //printf("ShlAssignExp::semantic()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8731 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8732 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8733
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8734 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8735 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8736 return e;
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 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8739 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8740 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8741 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8742 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8743 e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8744 e2 = e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8745 //e2 = e2->castTo(sc, Type::tshiftcnt);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8746 e2 = e2->castTo(sc, e1->type); // LDC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8747 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8750 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8751
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8752 ShrAssignExp::ShrAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8753 : BinExp(loc, TOKshrass, sizeof(ShrAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8754 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8755 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8756
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8757 Expression ShrAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8758 { Expression *e;
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 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8761 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8762
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8763 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8764 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8765 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8766
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8767 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8768 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8769 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8770 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8771 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8772 e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8773 e2 = e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8774 //e2 = e2->castTo(sc, Type::tshiftcnt);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8775 e2 = e2->castTo(sc, e1->type); // LDC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8776 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8777 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8778
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8779 /************************************************************/
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 UshrAssignExp::UshrAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8782 : BinExp(loc, TOKushrass, sizeof(UshrAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8783 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8784 }
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 Expression UshrAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8787 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8788
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8789 BinExp::semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8790 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8791
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8792 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8793 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8794 return e;
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 e1 = e1->modifiableLvalue(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8797 e1->checkScalar();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8798 e1->checkNoBool();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8799 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8800 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8801 e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8802 e2 = e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8803 //e2 = e2->castTo(sc, Type::tshiftcnt);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8804 e2 = e2->castTo(sc, e1->type); // LDC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8805 return this;
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 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8809
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8810 AndAssignExp::AndAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8811 : BinExp(loc, TOKandass, sizeof(AndAssignExp), e1, e2)
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8814
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8815 Expression AndAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8816 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8817 return commonSemanticAssignIntegral(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8818 }
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 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8821
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8822 OrAssignExp::OrAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8823 : BinExp(loc, TOKorass, sizeof(OrAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8824 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8825 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8826
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8827 Expression OrAssignExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8828 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8829 return commonSemanticAssignIntegral(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8830 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8831
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8832 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8833
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8834 XorAssignExp::XorAssignExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8835 : BinExp(loc, TOKxorass, sizeof(XorAssignExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8836 {
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 Expression XorAssignExp::semantic(Scope sc)
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 return commonSemanticAssignIntegral(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8842 }
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 /*********************** AddExp ***************************/
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 AddExp::AddExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8847 : BinExp(loc, TOKadd, sizeof(AddExp), e1, e2)
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8850
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8851 Expression AddExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8852 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8853
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8854 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8855 printf("AddExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8856 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8857 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8858 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8859 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8860
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8861 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8862 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8863 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8864
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8865 Type *tb1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8866 Type *tb2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8867
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8868 if ((tb1->ty == Tarray \|\| tb1->ty == Tsarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8869 (tb2->ty == Tarray \|\| tb2->ty == Tsarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8870 tb1->nextOf()->equals(tb2->nextOf())
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 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8874 e = this;
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 else if (tb1->ty == Tpointer && e2->type->isintegral() \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8877 tb2->ty == Tpointer && e1->type->isintegral())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8878 e = scaleFactor(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8879 else if (tb1->ty == Tpointer && tb2->ty == Tpointer)
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 incompatibleTypes();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8882 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8883 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8884 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8885 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8886 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8887 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8888 if ((e1->type->isreal() && e2->type->isimaginary()) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8889 (e1->type->isimaginary() && e2->type->isreal()))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8890 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8891 switch (type->toBasetype()->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8892 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8893 case Tfloat32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8894 case Timaginary32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8895 type = Type::tcomplex32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8896 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8897
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8898 case Tfloat64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8899 case Timaginary64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8900 type = Type::tcomplex64;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8901 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8902
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8903 case Tfloat80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8904 case Timaginary80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8905 type = Type::tcomplex80;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8906 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8907
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8908 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8909 assert(0);
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 e = this;
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 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8915 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8916 return this;
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 /************************************************************/
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 MinExp::MinExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8922 : BinExp(loc, TOKmin, sizeof(MinExp), e1, e2)
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 Expression MinExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8927 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8928 Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8929 Type *t2;
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 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8932 printf("MinExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8933 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8934 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8935 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8936
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8937 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8938
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8939 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8940 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8941 return e;
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 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8944 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8945 t2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8946 if (t1->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8947 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8948 if (t2->ty == Tpointer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8949 { // Need to divide the result by the stride
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8950 // Replace (ptr - ptr) with (ptr - ptr) / stride
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8951 d_int64 stride;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8952 Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8953
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8954 typeCombine(sc); // make sure pointer types are compatible
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8955 type = Type::tptrdiff_t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8956 stride = t2->nextOf()->size();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8957 if (stride == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8958 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8959 e = new IntegerExp(loc, 0, Type::tptrdiff_t);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8960 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8961 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8962 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8963 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	8964 e->type = Type::tptrdiff_t;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8965 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8966 return e;
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 (t2->isintegral())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8969 e = scaleFactor(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8970 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8971 { error("incompatible types for minus");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8972 return new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8973 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8974 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8975 else if (t2->ty == Tpointer)
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 type = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8978 error("can't subtract pointer from %s", e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8979 return new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8980 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8981 else
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 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8984 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8985 t2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8986 if ((t1->isreal() && t2->isimaginary()) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8987 (t1->isimaginary() && t2->isreal()))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8988 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8989 switch (type->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8990 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8991 case Tfloat32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8992 case Timaginary32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8993 type = Type::tcomplex32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8994 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8995
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8996 case Tfloat64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8997 case Timaginary64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8998 type = Type::tcomplex64;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	8999 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9000
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9001 case Tfloat80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9002 case Timaginary80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9003 type = Type::tcomplex80;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9004 break;
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 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9007 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9008 }
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 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9014 /*********************** CatExp ***************************/
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 CatExp::CatExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9017 : BinExp(loc, TOKcat, sizeof(CatExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9018 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9019 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9020
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9021 Expression CatExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9022 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9023
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9024 //printf("CatExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9025 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9026 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9027 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9028 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9029 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9030 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9031
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9032 Type *tb1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9033 Type *tb2 = e2->type->toBasetype();
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9036 /* BUG: Should handle things like:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9037 * char c;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9038 * c ~ ' '
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9039 * ' ' ~ c;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9040 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9041
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9042 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9043 e1->type->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9044 e2->type->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9045 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9046 if ((tb1->ty == Tsarray \|\| tb1->ty == Tarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9047 e2->type->implicitConvTo(tb1->nextOf()) >= MATCHconst)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9048 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9049 type = tb1->nextOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9050 if (tb2->ty == Tarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9051 { // Make e2 into [e2]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9052 e2 = new ArrayLiteralExp(e2->loc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9053 e2->type = type;
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9056 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9057 else if ((tb2->ty == Tsarray \|\| tb2->ty == Tarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9058 e1->type->implicitConvTo(tb2->nextOf()) >= MATCHconst)
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 type = tb2->nextOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9061 if (tb1->ty == Tarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9062 { // Make e1 into [e1]
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9063 e1 = new ArrayLiteralExp(e1->loc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9064 e1->type = type;
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9067 }
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 if ((tb1->ty == Tsarray \|\| tb1->ty == Tarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9070 (tb2->ty == Tsarray \|\| tb2->ty == Tarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9071 (tb1->nextOf()->mod \|\| tb2->nextOf()->mod) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9072 (tb1->nextOf()->mod != tb2->nextOf()->mod)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9073 )
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 Type *t1 = tb1->nextOf()->mutableOf()->constOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9076 Type *t2 = tb2->nextOf()->mutableOf()->constOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9077 if (e1->op == TOKstring && !((StringExp *)e1)->committed)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9078 e1->type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9079 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9080 e1 = e1->castTo(sc, t1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9081 if (e2->op == TOKstring && !((StringExp *)e2)->committed)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9082 e2->type = t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9083 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9084 e2 = e2->castTo(sc, t2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9085 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9086
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9087 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9088 type = type->toHeadMutable();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9089
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9090 Type *tb = type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9091 if (tb->ty == Tsarray)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9092 type = tb->nextOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9093 if (type->ty == Tarray && tb1->nextOf() && tb2->nextOf() &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9094 tb1->nextOf()->mod != tb2->nextOf()->mod)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9095 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9096 type = type->nextOf()->toHeadMutable()->arrayOf();
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 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9099 e1->type->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9100 e2->type->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9101 type->print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9102 print();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9103 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9104 Type *t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9105 Type *t2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9106 if (e1->op == TOKstring && e2->op == TOKstring)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9107 e = optimize(WANTvalue);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9108 else if ((t1->ty == Tarray \|\| t1->ty == Tsarray) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9109 (t2->ty == Tarray \|\| t2->ty == Tsarray))
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 e = this;
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9114 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9115 //printf("(%s) ~ (%s)\n", e1->toChars(), e2->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9116 error("Can only concatenate arrays, not (%s ~ %s)",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9117 e1->type->toChars(), e2->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9118 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9119 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9120 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9121 e->type = e->type->semantic(loc, sc);
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9125 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9129 MulExp::MulExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9130 : BinExp(loc, TOKmul, sizeof(MulExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9131 {
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 Expression MulExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9135 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9136
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9137 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9138 printf("MulExp::semantic() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9139 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9140 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9141 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9142 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9143 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9144
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9145 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9146 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9147 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9148 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9149
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9150 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9151 if (e1->op != TOKslice && e2->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9152 { e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9153 e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9154 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9155 if (type->isfloating())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9156 { Type *t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9157 Type *t2 = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9158
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9159 if (t1->isreal())
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 type = t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9162 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9163 else if (t2->isreal())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9164 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9165 type = t1;
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 else if (t1->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9168 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9169 if (t2->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9170 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9171
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9172 switch (t1->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9173 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9174 case Timaginary32: type = Type::tfloat32; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9175 case Timaginary64: type = Type::tfloat64; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9176 case Timaginary80: type = Type::tfloat80; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9177 default: assert(0);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9180 // iy * iv = -yv
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9181 e1->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9182 e2->type = type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9183 e = new NegExp(loc, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9184 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9185 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9186 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9187 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9188 type = t2; // t2 is complex
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 else if (t2->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9191 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9192 type = t1; // t1 is complex
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9193 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9194 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9195 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9196 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9197
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9198 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9199
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9200 DivExp::DivExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9201 : BinExp(loc, TOKdiv, sizeof(DivExp), e1, e2)
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 }
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 Expression DivExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9206 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9207
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9208 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9209 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9210
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9211 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9212 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9213 if (e)
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 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9217 if (e1->op != TOKslice && e2->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9218 { e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9219 e2->checkArithmetic();
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 if (type->isfloating())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9222 { Type *t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9223 Type *t2 = e2->type;
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 if (t1->isreal())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9226 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9227 type = t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9228 if (t2->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9229 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9230
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9231 // x/iv = i(-x/v)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9232 e2->type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9233 e = new NegExp(loc, this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9234 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9235 return e;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9238 else if (t2->isreal())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9239 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9240 type = t1;
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 else if (t1->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9243 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9244 if (t2->isimaginary())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9245 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9246 switch (t1->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9247 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9248 case Timaginary32: type = Type::tfloat32; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9249 case Timaginary64: type = Type::tfloat64; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9250 case Timaginary80: type = Type::tfloat80; break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9251 default: assert(0);
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9254 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9255 type = t2; // t2 is complex
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 else if (t2->isimaginary())
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 type = t1; // t1 is complex
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9262 return this;
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
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9267 ModExp::ModExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9268 : BinExp(loc, TOKmod, sizeof(ModExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9269 {
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 Expression ModExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9273 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9274
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9275 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9276 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9277
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9278 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9279 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9280 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9281 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9282
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9283 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9284 if (e1->op != TOKslice && e2->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9285 { e1->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9286 e2->checkArithmetic();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9287 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9288 if (type->isfloating())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9289 { type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9290 if (e2->type->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9291 { error("cannot perform modulo complex arithmetic");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9292 return new ErrorExp();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9293 }
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 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9298 /************************************************************/
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 ShlExp::ShlExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9301 : BinExp(loc, TOKshl, sizeof(ShlExp), e1, e2)
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9304
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9305 Expression ShlExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9306 { Expression *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 //printf("ShlExp::semantic(), type = %p\n", type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9309 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9310 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9311 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9312 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9313 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9314 e1 = e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9315 e2 = e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9316 e1 = e1->integralPromotions(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9317 //e2 = e2->castTo(sc, Type::tshiftcnt);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9318 e2 = e2->castTo(sc, e1->type); // LDC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9319 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9320 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9321 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9324 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9325
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9326 ShrExp::ShrExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9327 : BinExp(loc, TOKshr, sizeof(ShrExp), e1, e2)
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9331 Expression ShrExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9332 { Expression *e;
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 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9335 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9336 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9337 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9338 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9339 e1 = e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9340 e2 = e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9341 e1 = e1->integralPromotions(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9342 e2 = e2->castTo(sc, Type::tshiftcnt);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9343 type = e1->type;
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9346 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9347
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9350 UshrExp::UshrExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9351 : BinExp(loc, TOKushr, sizeof(UshrExp), e1, e2)
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9355 Expression UshrExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9356 { Expression *e;
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 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9359 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9360 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9361 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9362 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9363 e1 = e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9364 e2 = e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9365 e1 = e1->integralPromotions(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9366 e2 = e2->castTo(sc, Type::tshiftcnt);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9367 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9368 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9369 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9370 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9371
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9372 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9373
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9374 AndExp::AndExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9375 : BinExp(loc, TOKand, sizeof(AndExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9376 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9377 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9378
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9379 Expression AndExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9380 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9381
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9382 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9383 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9384 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9385 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9386 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9387 if (e1->type->toBasetype()->ty == Tbool &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9388 e2->type->toBasetype()->ty == Tbool)
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 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9391 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9392 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9393 else
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 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9396 if (e1->op != TOKslice && e2->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9397 { e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9398 e2->checkIntegral();
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9401 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9402 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9403 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9404
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9405 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9406
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9407 OrExp::OrExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9408 : BinExp(loc, TOKor, sizeof(OrExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9409 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9410 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9411
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9412 Expression OrExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9413 { Expression *e;
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 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9416 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9417 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9418 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9419 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9420 if (e1->type->toBasetype()->ty == Tbool &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9421 e2->type->toBasetype()->ty == Tbool)
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 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9424 e = this;
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9427 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9428 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9429 if (e1->op != TOKslice && e2->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9430 { e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9431 e2->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9432 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9433 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9434 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9435 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9436 }
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 /************************************************************/
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 XorExp::XorExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9441 : BinExp(loc, TOKxor, sizeof(XorExp), e1, e2)
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9444
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9445 Expression XorExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9446 { Expression *e;
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 if (!type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9449 { BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9450 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9451 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9452 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9453 if (e1->type->toBasetype()->ty == Tbool &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9454 e2->type->toBasetype()->ty == Tbool)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9455 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9456 type = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9457 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9458 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9459 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9460 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9461 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9462 if (e1->op != TOKslice && e2->op != TOKslice)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9463 { e1->checkIntegral();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9464 e2->checkIntegral();
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9469 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9474 OrOrExp::OrOrExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9475 : BinExp(loc, TOKoror, sizeof(OrOrExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9476 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9477 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9478
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9479 Expression OrOrExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9480 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9481 unsigned cs1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9482
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9483 // same as for AndAnd
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9484 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9485 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9486 e1 = e1->checkToPointer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9487 e1 = e1->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9488 cs1 = sc->callSuper;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9489
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9490 if (sc->flags & SCOPEstaticif)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9491 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9492 /* 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	9493 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9494 e1 = e1->optimize(WANTflags);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9495 if (e1->isBool(TRUE))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9496 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9497 return new IntegerExp(loc, 1, Type::tboolean);
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 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9502 sc->mergeCallSuper(loc, cs1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9503 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9504 e2 = e2->checkToPointer();
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 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9507 if (e2->type->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9508 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9509 if (e2->op == TOKtype \|\| e2->op == TOKimport)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9510 error("%s is not an expression", e2->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9511 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9512 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9513
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9514 Expression *OrOrExp::checkToBoolean()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9515 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9516 e2 = e2->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9517 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9518 }
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 int OrOrExp::isBit()
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 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9523 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9524
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9525 int OrOrExp::checkSideEffect(int flag)
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 if (flag == 2)
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 e1->checkSideEffect(2) \|\| e2->checkSideEffect(2);
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9532 { e1->checkSideEffect(1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9533 return e2->checkSideEffect(flag);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9534 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9535 }
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 AndAndExp::AndAndExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9540 : BinExp(loc, TOKandand, sizeof(AndAndExp), e1, e2)
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9543
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9544 Expression AndAndExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9545 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9546 unsigned cs1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9547
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9548 // same as for OrOr
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9549 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9550 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9551 e1 = e1->checkToPointer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9552 e1 = e1->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9553 cs1 = sc->callSuper;
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 if (sc->flags & SCOPEstaticif)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9556 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9557 /* 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	9558 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9559 e1 = e1->optimize(WANTflags);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9560 if (e1->isBool(FALSE))
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 new IntegerExp(loc, 0, Type::tboolean);
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 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9567 sc->mergeCallSuper(loc, cs1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9568 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9569 e2 = e2->checkToPointer();
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 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9572 if (e2->type->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9573 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9574 if (e2->op == TOKtype \|\| e2->op == TOKimport)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9575 error("%s is not an expression", e2->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9576 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9577 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9578
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9579 Expression *AndAndExp::checkToBoolean()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9580 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9581 e2 = e2->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9582 return this;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9585 int AndAndExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9586 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9587 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9588 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9589
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9590 int AndAndExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9591 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9592 if (flag == 2)
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 return e1->checkSideEffect(2) \|\| e2->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9595 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9596 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9597 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9598 e1->checkSideEffect(1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9599 return e2->checkSideEffect(flag);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9600 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9601 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9602
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9603 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9604
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9605 InExp::InExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9606 : BinExp(loc, TOKin, sizeof(InExp), e1, e2)
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 }
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 Expression InExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9611 { Expression *e;
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 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9614 return this;
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 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9617 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9618 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9619 return e;
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 //type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9622 Type *t2b = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9623 if (t2b->ty != Taarray)
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 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	9626 type = Type::terror;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9627 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9628 else
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 TypeAArray ta = (TypeAArray )t2b;
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 // Special handling for array keys
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9633 if (!arrayTypeCompatible(e1->loc, e1->type, ta->index))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9634 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9635 // Convert key to type of key
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9636 e1 = e1->implicitCastTo(sc, ta->index);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9639 // Return type is pointer to value
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9640 type = ta->nextOf()->pointerTo();
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 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9643 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9644
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9645 int InExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9646 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9647 return FALSE;
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
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 /************************************************************/
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 /* This deletes the key e1 from the associative array e2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9654 */
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 RemoveExp::RemoveExp(Loc loc, Expression e1, Expression e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9657 : BinExp(loc, TOKremove, sizeof(RemoveExp), e1, e2)
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 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9660 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9661
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9662 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9663
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9664 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	9665 : BinExp(loc, op, sizeof(CmpExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9666 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9667 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9668
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9669 Expression CmpExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9670 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9671 Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9672 Type *t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9673
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9674 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9675 printf("CmpExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9676 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9677 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9678 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9679
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9680 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9681
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9682 if (e1->type->toBasetype()->ty == Tclass && e2->op == TOKnull \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9683 e2->type->toBasetype()->ty == Tclass && e1->op == TOKnull)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9684 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9685 error("do not use null when comparing class types");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9686 }
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 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9689 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9690 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9691 if (!e->type->isscalar() && e->type->equals(e1->type))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9692 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9693 error("recursive opCmp expansion");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9694 e = new ErrorExp();
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 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9697 { 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	9698 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9699 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9700 return e;
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 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9704 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9705
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9706 // Special handling for array comparisons
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9707 t1 = e1->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9708 t2 = e2->type->toBasetype();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9709 if ((t1->ty == Tarray \|\| t1->ty == Tsarray \|\| t1->ty == Tpointer) &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9710 (t2->ty == Tarray \|\| t2->ty == Tsarray \|\| t2->ty == Tpointer))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9711 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9712 if (t1->nextOf()->implicitConvTo(t2->nextOf()) < MATCHconst &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9713 t2->nextOf()->implicitConvTo(t1->nextOf()) < MATCHconst &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9714 (t1->nextOf()->ty != Tvoid && t2->nextOf()->ty != Tvoid))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9715 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	9716 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9717 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9718 else if (t1->ty == Tstruct \|\| t2->ty == Tstruct \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9719 (t1->ty == Tclass && t2->ty == Tclass))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9720 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9721 if (t2->ty == Tstruct)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9722 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	9723 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9724 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	9725 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9726 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9727 #if 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9728 else if (t1->iscomplex() \|\| t2->iscomplex())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9729 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9730 error("compare not defined for complex operands");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9731 e = new ErrorExp();
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9734 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9735 e = this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9736 //printf("CmpExp: %s\n", e->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9737 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9740 int CmpExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9741 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9742 return TRUE;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9748 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	9749 : BinExp(loc, op, sizeof(EqualExp), e1, e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9750 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9751 assert(op == TOKequal \|\| op == TOKnotequal);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9754 Expression EqualExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9755 { Expression *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9756 Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9757 Type *t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9758
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9759 //printf("EqualExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9760 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9761 return this;
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 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9764
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9765 /* 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	9766 * 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	9767 * if they are the same symbol.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9768 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9769 if (e1->op == TOKaddress && e2->op == TOKaddress)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9770 { AddrExp ae1 = (AddrExp )e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9771 AddrExp ae2 = (AddrExp )e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9772
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9773 if (ae1->e1->op == TOKvar && ae2->e1->op == TOKvar)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9774 { VarExp ve1 = (VarExp )ae1->e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9775 VarExp ve2 = (VarExp )ae2->e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9776
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9777 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	9778 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9779 // They are the same, result is 'true' for ==, 'false' for !=
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9780 e = new IntegerExp(loc, (op == TOKequal), Type::tboolean);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9781 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9782 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9783 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9786 if (e1->type->toBasetype()->ty == Tclass && e2->op == TOKnull \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9787 e2->type->toBasetype()->ty == Tclass && e1->op == TOKnull)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9788 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9789 error("use '%s' instead of '%s' when comparing with null",
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9790 Token::toChars(op == TOKequal ? TOKidentity : TOKnotidentity),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9791 Token::toChars(op));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9792 }
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 //if (e2->op != TOKnull)
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 e = op_overload(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9797 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9798 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9799 if (op == TOKnotequal)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9800 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9801 e = new NotExp(e->loc, e);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9802 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9803 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9804 return e;
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 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9807
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9808 e = typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9809 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9810
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9811 // Special handling for array comparisons
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9812 if (!arrayTypeCompatible(loc, e1->type, e2->type))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9813 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9814 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	9815 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9816 // Cast both to complex
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9817 e1 = e1->castTo(sc, Type::tcomplex80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9818 e2 = e2->castTo(sc, Type::tcomplex80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9819 }
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 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9822 }
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 int EqualExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9825 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9826 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9827 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9828
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9829
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9830
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9831 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9832
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9833 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	9834 : BinExp(loc, op, sizeof(IdentityExp), e1, e2)
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9838 Expression IdentityExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9839 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9840 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9841 return this;
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 BinExp::semanticp(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9844 type = Type::tboolean;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9845 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9846 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	9847 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9848 // Cast both to complex
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9849 e1 = e1->castTo(sc, Type::tcomplex80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9850 e2 = e2->castTo(sc, Type::tcomplex80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9851 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9852 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9853 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9854
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9855 int IdentityExp::isBit()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9856 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9857 return TRUE;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9858 }
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
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9863 CondExp::CondExp(Loc loc, Expression econd, Expression e1, Expression *e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9864 : BinExp(loc, TOKquestion, sizeof(CondExp), e1, e2)
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 this->econd = econd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9867 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9868
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9869 Expression *CondExp::syntaxCopy()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9870 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9871 return new CondExp(loc, econd->syntaxCopy(), e1->syntaxCopy(), e2->syntaxCopy());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9872 }
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9875 Expression CondExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9876 { Type *t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9877 Type *t2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9878 unsigned cs0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9879 unsigned cs1;
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 #if LOGSEMANTIC
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9882 printf("CondExp::semantic('%s')\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9883 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9884 if (type)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9885 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9886
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9887 econd = econd->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9888 econd = resolveProperties(sc, econd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9889 econd = econd->checkToPointer();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9890 econd = econd->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9891
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9892 #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	9893 * both contribute to the type of the result.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9894 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9895 if (sc->flags & SCOPEstaticif)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9896 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9897 /* 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	9898 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9899 econd = econd->optimize(WANTflags);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9900 if (econd->isBool(TRUE))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9901 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9902 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9903 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9904 return e1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9905 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9906 else if (econd->isBool(FALSE))
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 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9909 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9910 return e2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9911 }
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9914
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9915
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9916 cs0 = sc->callSuper;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9917 e1 = e1->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9918 e1 = resolveProperties(sc, e1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9919 cs1 = sc->callSuper;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9920 sc->callSuper = cs0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9921 e2 = e2->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9922 e2 = resolveProperties(sc, e2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9923 sc->mergeCallSuper(loc, cs1);
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 // If either operand is void, the result is void
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9927 t1 = e1->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9928 t2 = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9929 if (t1->ty == Tvoid \|\| t2->ty == Tvoid)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9930 type = Type::tvoid;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9931 else if (t1 == t2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9932 type = t1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9933 else
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 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9936 switch (e1->type->toBasetype()->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9937 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9938 case Tcomplex32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9939 case Tcomplex64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9940 case Tcomplex80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9941 e2 = e2->castTo(sc, e1->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9942 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9943 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9944 switch (e2->type->toBasetype()->ty)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9945 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9946 case Tcomplex32:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9947 case Tcomplex64:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9948 case Tcomplex80:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9949 e1 = e1->castTo(sc, e2->type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9950 break;
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 if (type->toBasetype()->ty == Tarray)
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 e1 = e1->castTo(sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9955 e2 = e2->castTo(sc, type);
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 #if 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9959 printf("res: %s\n", type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9960 printf("e1 : %s\n", e1->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9961 printf("e2 : %s\n", e2->type->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9962 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9963 return this;
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 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9967 int CondExp::isLvalue()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9968 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9969 return e1->isLvalue() && e2->isLvalue();
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 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9972
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9973 Expression CondExp::toLvalue(Scope sc, Expression *ex)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9974 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9975 PtrExp *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9976
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9977 // convert (econd ? e1 : e2) to *(econd ? &e1 : &e2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9978 e = new PtrExp(loc, this, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9979
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9980 e1 = e1->addressOf(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9981 //e1 = e1->toLvalue(sc, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9982
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9983 e2 = e2->addressOf(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9984 //e2 = e2->toLvalue(sc, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9985
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9986 typeCombine(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9987
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9988 type = e2->type;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9989 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9990 }
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 Expression CondExp::modifiableLvalue(Scope sc, Expression *e)
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 error("conditional expression %s is not a modifiable lvalue", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9995 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9996 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9997
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9998 void CondExp::checkEscape()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	9999 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10000 e1->checkEscape();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10001 e2->checkEscape();
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
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 Expression *CondExp::checkToBoolean()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10006 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10007 e1 = e1->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10008 e2 = e2->checkToBoolean();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10009 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10010 }
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 int CondExp::checkSideEffect(int flag)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10013 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10014 if (flag == 2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10015 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10016 return econd->checkSideEffect(2) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10017 e1->checkSideEffect(2) \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10018 e2->checkSideEffect(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10019 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10020 else
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 econd->checkSideEffect(1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10023 e1->checkSideEffect(flag);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10024 return e2->checkSideEffect(flag);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10025 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10026 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10027
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10028 #if DMDV2
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10029 int CondExp::canThrow()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10030 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10031 return econd->canThrow() \|\| e1->canThrow() \|\| e2->canThrow();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10032 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10033 #endif
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 void CondExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10036 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10037 expToCBuffer(buf, hgs, econd, PREC_oror);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10038 buf->writestring(" ? ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10039 expToCBuffer(buf, hgs, e1, PREC_expr);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10040 buf->writestring(" : ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10041 expToCBuffer(buf, hgs, e2, PREC_cond);
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10044 /************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10045
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10046 #if IN_LLVM
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10047
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10048 // Strictly LDC specific stuff
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10049
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10050 GEPExp::GEPExp(Loc loc, Expression* e, Identifier* id, unsigned idx)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10051 : UnaExp(loc, TOKgep, sizeof(GEPExp), e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10052 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10053 index = idx;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10054 ident = id;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10055 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10056
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10057 void GEPExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10058 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10059 expToCBuffer(buf, hgs, e1, PREC_primary);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10060 buf->writeByte('.');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10061 buf->writestring(ident->toChars());
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10064 Expression* GEPExp::toLvalue(Scope* sc, Expression* e)
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 // 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	10067 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10068 }
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 #endif
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 /****************************************************************/
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 DefaultInitExp::DefaultInitExp(Loc loc, enum TOK subop, int size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10075 : Expression(loc, TOKdefault, size)
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 this->subop = subop;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10078 }
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 void DefaultInitExp::toCBuffer(OutBuffer buf, HdrGenState hgs)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10081 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10082 buf->writestring(Token::toChars(subop));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10083 }
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 /****************************************************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10086
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10087 FileInitExp::FileInitExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10088 : DefaultInitExp(loc, TOKfile, sizeof(FileInitExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10089 {
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10092 Expression FileInitExp::semantic(Scope sc)
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 //printf("FileInitExp::semantic()\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10095 type = Type::tchar->invariantOf()->arrayOf();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10096 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10097 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10098
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10099 Expression FileInitExp::resolve(Loc loc, Scope sc)
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 //printf("FileInitExp::resolve() %s\n", toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10102 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	10103 Expression e = new StringExp(loc, (char )s);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10104 e = e->semantic(sc);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10105 e = e->castTo(sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10106 return e;
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 /****************************************************************/
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 LineInitExp::LineInitExp(Loc loc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10112 : DefaultInitExp(loc, TOKline, sizeof(LineInitExp))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10113 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10114 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10115
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10116 Expression LineInitExp::semantic(Scope sc)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10117 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10118 type = Type::tint32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10119 return this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10120 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10121
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10122 Expression LineInitExp::resolve(Loc loc, Scope sc)
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 Expression *e = new IntegerExp(loc, loc.linnum, Type::tint32);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10125 e = e->castTo(sc, type);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10126 return e;
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
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: 1121 diff changeset	10129

Mercurial > projects > ldc

annotate dmd2/expression.c @ 1461:49e6f9d2d33f