The Ecere SDK - sdk/blob - compiler/bootstrap/libec/bootstrap/pass16.c

   1 /* Code generated from eC source file: pass16.ec */
   2 #if defined(_WIN32)
   3 #define __runtimePlatform 1
   4 #elif defined(__APPLE__)
   5 #define __runtimePlatform 3
   6 #else
   7 #define __runtimePlatform 2
   8 #endif
   9 #if defined(__GNUC__)
  10 typedef long long int64;
  11 typedef unsigned long long uint64;
  12 #ifndef _WIN32
  13 #define __declspec(x)
  14 #endif
  15 #elif defined(__TINYC__)
  16 #include <stdarg.h>
  17 #define __builtin_va_list va_list
  18 #define __builtin_va_start va_start
  19 #define __builtin_va_end va_end
  20 #ifdef _WIN32
  21 #define strcasecmp stricmp
  22 #define strncasecmp strnicmp
  23 #define __declspec(x) __attribute__((x))
  24 #else
  25 #define __declspec(x)
  26 #endif
  27 typedef long long int64;
  28 typedef unsigned long long uint64;
  29 #else
  30 typedef __int64 int64;
  31 typedef unsigned __int64 uint64;
  32 #endif
  33 #ifdef __BIG_ENDIAN__
  34 #define __ENDIAN_PAD(x) (8 - (x))
  35 #else
  36 #define __ENDIAN_PAD(x) 0
  37 #endif
  38 #include <stdint.h>
  39 #include <sys/types.h>
  40 struct __ecereNameSpace__ecere__com__Instance;
  41
  42 extern void *  __ecereNameSpace__ecere__com__eSystem_New(unsigned int size);
  43
  44 extern void *  __ecereNameSpace__ecere__com__eSystem_New0(unsigned int size);
  45
  46 extern void *  __ecereNameSpace__ecere__com__eSystem_Renew(void *  memory, unsigned int size);
  47
  48 extern void *  __ecereNameSpace__ecere__com__eSystem_Renew0(void *  memory, unsigned int size);
  49
  50 extern void __ecereNameSpace__ecere__com__eSystem_Delete(void *  memory);
  51
  52 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BTNode;
  53
  54 struct __ecereNameSpace__ecere__sys__BTNode;
  55
  56 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BinaryTree;
  57
  58 struct __ecereNameSpace__ecere__sys__BinaryTree
  59 {
  60 struct __ecereNameSpace__ecere__sys__BTNode * root;
  61 int count;
  62 int (*  CompareKey)(struct __ecereNameSpace__ecere__sys__BinaryTree * tree, uintptr_t a, uintptr_t b);
  63 void (*  FreeKey)(void *  key);
  64 } __attribute__ ((gcc_struct));
  65
  66 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__OldList;
  67
  68 struct __ecereNameSpace__ecere__sys__OldList
  69 {
  70 void *  first;
  71 void *  last;
  72 int count;
  73 unsigned int offset;
  74 unsigned int circ;
  75 } __attribute__ ((gcc_struct));
  76
  77 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Method;
  78
  79 struct __ecereNameSpace__ecere__com__Method
  80 {
  81 const char *  name;
  82 struct __ecereNameSpace__ecere__com__Method * parent;
  83 struct __ecereNameSpace__ecere__com__Method * left;
  84 struct __ecereNameSpace__ecere__com__Method * right;
  85 int depth;
  86 int (*  function)();
  87 int vid;
  88 int type;
  89 struct __ecereNameSpace__ecere__com__Class * _class;
  90 void *  symbol;
  91 const char *  dataTypeString;
  92 struct Type * dataType;
  93 int memberAccess;
  94 } __attribute__ ((gcc_struct));
  95
  96 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Property;
  97
  98 struct __ecereNameSpace__ecere__com__Property
  99 {
 100 struct __ecereNameSpace__ecere__com__Property * prev;
 101 struct __ecereNameSpace__ecere__com__Property * next;
 102 const char *  name;
 103 unsigned int isProperty;
 104 int memberAccess;
 105 int id;
 106 struct __ecereNameSpace__ecere__com__Class * _class;
 107 const char *  dataTypeString;
 108 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 109 struct Type * dataType;
 110 void (*  Set)(void * , int);
 111 int (*  Get)(void * );
 112 unsigned int (*  IsSet)(void * );
 113 void *  data;
 114 void *  symbol;
 115 int vid;
 116 unsigned int conversion;
 117 unsigned int watcherOffset;
 118 const char *  category;
 119 unsigned int compiled;
 120 unsigned int selfWatchable;
 121 unsigned int isWatchable;
 122 } __attribute__ ((gcc_struct));
 123
 124 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_CodePosition;
 125
 126 struct CodePosition
 127 {
 128 int line;
 129 int charPos;
 130 int pos;
 131 int included;
 132 } __attribute__ ((gcc_struct));
 133
 134 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Location;
 135
 136 struct Location
 137 {
 138 struct CodePosition start;
 139 struct CodePosition end;
 140 } __attribute__ ((gcc_struct));
 141
 142 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Attrib;
 143
 144 struct Attrib;
 145
 146 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ExtDecl;
 147
 148 struct ExtDecl;
 149
 150 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassDefinition;
 151
 152 struct ClassDefinition
 153 {
 154 struct ClassDefinition * prev;
 155 struct ClassDefinition * next;
 156 struct Location loc;
 157 struct Specifier * _class;
 158 struct __ecereNameSpace__ecere__sys__OldList *  baseSpecs;
 159 struct __ecereNameSpace__ecere__sys__OldList *  definitions;
 160 struct Symbol * symbol;
 161 struct Location blockStart;
 162 struct Location nameLoc;
 163 int endid;
 164 int declMode;
 165 unsigned int deleteWatchable;
 166 } __attribute__ ((gcc_struct));
 167
 168 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Context;
 169
 170 struct Context
 171 {
 172 struct Context * parent;
 173 struct __ecereNameSpace__ecere__sys__BinaryTree types;
 174 struct __ecereNameSpace__ecere__sys__BinaryTree classes;
 175 struct __ecereNameSpace__ecere__sys__BinaryTree symbols;
 176 struct __ecereNameSpace__ecere__sys__BinaryTree structSymbols;
 177 int nextID;
 178 int simpleID;
 179 struct __ecereNameSpace__ecere__sys__BinaryTree templateTypes;
 180 struct ClassDefinition * classDef;
 181 unsigned int templateTypesOnly;
 182 unsigned int hasNameSpace;
 183 } __attribute__ ((gcc_struct));
 184
 185 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Instantiation;
 186
 187 struct Instantiation
 188 {
 189 struct Instantiation * prev;
 190 struct Instantiation * next;
 191 struct Location loc;
 192 struct Specifier * _class;
 193 struct Expression * exp;
 194 struct __ecereNameSpace__ecere__sys__OldList *  members;
 195 struct Symbol * symbol;
 196 unsigned int fullSet;
 197 unsigned int isConstant;
 198 unsigned char *  data;
 199 struct Location nameLoc;
 200 struct Location insideLoc;
 201 unsigned int built;
 202 } __attribute__ ((gcc_struct));
 203
 204 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declaration;
 205
 206 struct Declaration
 207 {
 208 struct Declaration * prev;
 209 struct Declaration * next;
 210 struct Location loc;
 211 int type;
 212 union
 213 {
 214 struct
 215 {
 216 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
 217 struct __ecereNameSpace__ecere__sys__OldList *  declarators;
 218 } __attribute__ ((gcc_struct)) __anon1;
 219 struct Instantiation * inst;
 220 struct
 221 {
 222 struct Identifier * id;
 223 struct Expression * exp;
 224 } __attribute__ ((gcc_struct)) __anon2;
 225 } __attribute__ ((gcc_struct)) __anon1;
 226 struct Specifier * extStorage;
 227 struct Symbol * symbol;
 228 int declMode;
 229 } __attribute__ ((gcc_struct));
 230
 231 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Statement;
 232
 233 struct Statement
 234 {
 235 struct Statement * prev;
 236 struct Statement * next;
 237 struct Location loc;
 238 int type;
 239 union
 240 {
 241 struct __ecereNameSpace__ecere__sys__OldList *  expressions;
 242 struct
 243 {
 244 struct Identifier * id;
 245 struct Statement * stmt;
 246 } __attribute__ ((gcc_struct)) labeled;
 247 struct
 248 {
 249 struct Expression * exp;
 250 struct Statement * stmt;
 251 } __attribute__ ((gcc_struct)) caseStmt;
 252 struct
 253 {
 254 struct __ecereNameSpace__ecere__sys__OldList * declarations;
 255 struct __ecereNameSpace__ecere__sys__OldList * statements;
 256 struct Context * context;
 257 unsigned int isSwitch;
 258 } __attribute__ ((gcc_struct)) compound;
 259 struct
 260 {
 261 struct __ecereNameSpace__ecere__sys__OldList * exp;
 262 struct Statement * stmt;
 263 struct Statement * elseStmt;
 264 } __attribute__ ((gcc_struct)) ifStmt;
 265 struct
 266 {
 267 struct __ecereNameSpace__ecere__sys__OldList * exp;
 268 struct Statement * stmt;
 269 } __attribute__ ((gcc_struct)) switchStmt;
 270 struct
 271 {
 272 struct __ecereNameSpace__ecere__sys__OldList * exp;
 273 struct Statement * stmt;
 274 } __attribute__ ((gcc_struct)) whileStmt;
 275 struct
 276 {
 277 struct __ecereNameSpace__ecere__sys__OldList * exp;
 278 struct Statement * stmt;
 279 } __attribute__ ((gcc_struct)) doWhile;
 280 struct
 281 {
 282 struct Statement * init;
 283 struct Statement * check;
 284 struct __ecereNameSpace__ecere__sys__OldList * increment;
 285 struct Statement * stmt;
 286 } __attribute__ ((gcc_struct)) forStmt;
 287 struct
 288 {
 289 struct Identifier * id;
 290 } __attribute__ ((gcc_struct)) gotoStmt;
 291 struct
 292 {
 293 struct Specifier * spec;
 294 char * statements;
 295 struct __ecereNameSpace__ecere__sys__OldList * inputFields;
 296 struct __ecereNameSpace__ecere__sys__OldList * outputFields;
 297 struct __ecereNameSpace__ecere__sys__OldList * clobberedFields;
 298 } __attribute__ ((gcc_struct)) asmStmt;
 299 struct
 300 {
 301 struct Expression * watcher;
 302 struct Expression * object;
 303 struct __ecereNameSpace__ecere__sys__OldList * watches;
 304 } __attribute__ ((gcc_struct)) _watch;
 305 struct
 306 {
 307 struct Identifier * id;
 308 struct __ecereNameSpace__ecere__sys__OldList * exp;
 309 struct __ecereNameSpace__ecere__sys__OldList * filter;
 310 struct Statement * stmt;
 311 } __attribute__ ((gcc_struct)) forEachStmt;
 312 struct Declaration * decl;
 313 } __attribute__ ((gcc_struct)) __anon1;
 314 } __attribute__ ((gcc_struct));
 315
 316 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TypeName;
 317
 318 struct TypeName;
 319
 320 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Initializer;
 321
 322 struct Initializer
 323 {
 324 struct Initializer * prev;
 325 struct Initializer * next;
 326 struct Location loc;
 327 int type;
 328 union
 329 {
 330 struct Expression * exp;
 331 struct __ecereNameSpace__ecere__sys__OldList *  list;
 332 } __attribute__ ((gcc_struct)) __anon1;
 333 unsigned int isConstant;
 334 struct Identifier * id;
 335 } __attribute__ ((gcc_struct));
 336
 337 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataValue;
 338
 339 struct __ecereNameSpace__ecere__com__DataValue
 340 {
 341 union
 342 {
 343 char c;
 344 unsigned char uc;
 345 short s;
 346 unsigned short us;
 347 int i;
 348 unsigned int ui;
 349 void *  p;
 350 float f;
 351 double d;
 352 long long i64;
 353 uint64 ui64;
 354 } __attribute__ ((gcc_struct)) __anon1;
 355 } __attribute__ ((gcc_struct));
 356
 357 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Expression;
 358
 359 struct Expression
 360 {
 361 struct Expression * prev;
 362 struct Expression * next;
 363 struct Location loc;
 364 int type;
 365 union
 366 {
 367 struct
 368 {
 369 char *  constant;
 370 struct Identifier * identifier;
 371 } __attribute__ ((gcc_struct)) __anon1;
 372 struct Statement * compound;
 373 struct Instantiation * instance;
 374 struct
 375 {
 376 char *  string;
 377 unsigned int intlString;
 378 unsigned int wideString;
 379 } __attribute__ ((gcc_struct)) __anon2;
 380 struct __ecereNameSpace__ecere__sys__OldList *  list;
 381 struct
 382 {
 383 struct __ecereNameSpace__ecere__sys__OldList * specifiers;
 384 struct Declarator * decl;
 385 } __attribute__ ((gcc_struct)) _classExp;
 386 struct
 387 {
 388 struct Identifier * id;
 389 } __attribute__ ((gcc_struct)) classData;
 390 struct
 391 {
 392 struct Expression * exp;
 393 struct __ecereNameSpace__ecere__sys__OldList * arguments;
 394 struct Location argLoc;
 395 } __attribute__ ((gcc_struct)) call;
 396 struct
 397 {
 398 struct Expression * exp;
 399 struct __ecereNameSpace__ecere__sys__OldList * index;
 400 } __attribute__ ((gcc_struct)) index;
 401 struct
 402 {
 403 struct Expression * exp;
 404 struct Identifier * member;
 405 int memberType;
 406 unsigned int thisPtr;
 407 } __attribute__ ((gcc_struct)) member;
 408 struct
 409 {
 410 int op;
 411 struct Expression * exp1;
 412 struct Expression * exp2;
 413 } __attribute__ ((gcc_struct)) op;
 414 struct TypeName * typeName;
 415 struct Specifier * _class;
 416 struct
 417 {
 418 struct TypeName * typeName;
 419 struct Expression * exp;
 420 } __attribute__ ((gcc_struct)) cast;
 421 struct
 422 {
 423 struct Expression * cond;
 424 struct __ecereNameSpace__ecere__sys__OldList * exp;
 425 struct Expression * elseExp;
 426 } __attribute__ ((gcc_struct)) cond;
 427 struct
 428 {
 429 struct TypeName * typeName;
 430 struct Expression * size;
 431 } __attribute__ ((gcc_struct)) _new;
 432 struct
 433 {
 434 struct TypeName * typeName;
 435 struct Expression * size;
 436 struct Expression * exp;
 437 } __attribute__ ((gcc_struct)) _renew;
 438 struct
 439 {
 440 char * table;
 441 struct Identifier * id;
 442 } __attribute__ ((gcc_struct)) db;
 443 struct
 444 {
 445 struct Expression * ds;
 446 struct Expression * name;
 447 } __attribute__ ((gcc_struct)) dbopen;
 448 struct
 449 {
 450 struct TypeName * typeName;
 451 struct Initializer * initializer;
 452 } __attribute__ ((gcc_struct)) initializer;
 453 struct
 454 {
 455 struct Expression * exp;
 456 struct TypeName * typeName;
 457 } __attribute__ ((gcc_struct)) vaArg;
 458 } __attribute__ ((gcc_struct)) __anon1;
 459 unsigned int debugValue;
 460 struct __ecereNameSpace__ecere__com__DataValue val;
 461 uint64 address;
 462 unsigned int hasAddress;
 463 struct Type * expType;
 464 struct Type * destType;
 465 unsigned int usage;
 466 int tempCount;
 467 unsigned int byReference;
 468 unsigned int isConstant;
 469 unsigned int addedThis;
 470 unsigned int needCast;
 471 unsigned int thisPtr;
 472 unsigned int opDestType;
 473 unsigned int needTemplateCast;
 474 } __attribute__ ((gcc_struct));
 475
 476 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateDatatype;
 477
 478 struct TemplateDatatype;
 479
 480 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateArgument;
 481
 482 struct TemplateArgument;
 483
 484 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TemplateParameter;
 485
 486 struct TemplateParameter;
 487
 488 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Specifier;
 489
 490 struct Specifier
 491 {
 492 struct Specifier * prev;
 493 struct Specifier * next;
 494 struct Location loc;
 495 int type;
 496 union
 497 {
 498 int specifier;
 499 struct
 500 {
 501 struct ExtDecl * extDecl;
 502 char *  name;
 503 struct Symbol * symbol;
 504 struct __ecereNameSpace__ecere__sys__OldList *  templateArgs;
 505 } __attribute__ ((gcc_struct)) __anon1;
 506 struct
 507 {
 508 struct Identifier * id;
 509 struct __ecereNameSpace__ecere__sys__OldList *  list;
 510 struct __ecereNameSpace__ecere__sys__OldList *  baseSpecs;
 511 struct __ecereNameSpace__ecere__sys__OldList *  definitions;
 512 unsigned int addNameSpace;
 513 struct Context * ctx;
 514 struct ExtDecl * extDeclStruct;
 515 } __attribute__ ((gcc_struct)) __anon2;
 516 struct Expression * expression;
 517 struct Specifier * _class;
 518 struct TemplateParameter * templateParameter;
 519 } __attribute__ ((gcc_struct)) __anon1;
 520 } __attribute__ ((gcc_struct));
 521
 522 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Identifier;
 523
 524 struct Identifier
 525 {
 526 struct Identifier * prev;
 527 struct Identifier * next;
 528 struct Location loc;
 529 struct Symbol * classSym;
 530 struct Specifier * _class;
 531 char *  string;
 532 struct Identifier * badID;
 533 } __attribute__ ((gcc_struct));
 534
 535 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Pointer;
 536
 537 struct Pointer;
 538
 539 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declarator;
 540
 541 struct Declarator
 542 {
 543 struct Declarator * prev;
 544 struct Declarator * next;
 545 struct Location loc;
 546 int type;
 547 struct Symbol * symbol;
 548 struct Declarator * declarator;
 549 union
 550 {
 551 struct Identifier * identifier;
 552 struct
 553 {
 554 struct Expression * exp;
 555 struct Expression * posExp;
 556 struct Attrib * attrib;
 557 } __attribute__ ((gcc_struct)) structDecl;
 558 struct
 559 {
 560 struct Expression * exp;
 561 struct Specifier * enumClass;
 562 } __attribute__ ((gcc_struct)) array;
 563 struct
 564 {
 565 struct __ecereNameSpace__ecere__sys__OldList * parameters;
 566 } __attribute__ ((gcc_struct)) function;
 567 struct
 568 {
 569 struct Pointer * pointer;
 570 } __attribute__ ((gcc_struct)) pointer;
 571 struct
 572 {
 573 struct ExtDecl * extended;
 574 } __attribute__ ((gcc_struct)) extended;
 575 } __attribute__ ((gcc_struct)) __anon1;
 576 } __attribute__ ((gcc_struct));
 577
 578 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_FunctionDefinition;
 579
 580 struct FunctionDefinition
 581 {
 582 struct FunctionDefinition * prev;
 583 struct FunctionDefinition * next;
 584 struct Location loc;
 585 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
 586 struct Declarator * declarator;
 587 struct __ecereNameSpace__ecere__sys__OldList *  declarations;
 588 struct Statement * body;
 589 struct __ecereNameSpace__ecere__com__Class * _class;
 590 struct __ecereNameSpace__ecere__sys__OldList attached;
 591 int declMode;
 592 struct Type * type;
 593 struct Symbol * propSet;
 594 int tempCount;
 595 unsigned int propertyNoThis;
 596 } __attribute__ ((gcc_struct));
 597
 598 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBTableDef;
 599
 600 struct DBTableDef;
 601
 602 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_External;
 603
 604 struct External
 605 {
 606 struct External * prev;
 607 struct External * next;
 608 struct Location loc;
 609 int type;
 610 struct Symbol * symbol;
 611 union
 612 {
 613 struct FunctionDefinition * function;
 614 struct ClassDefinition * _class;
 615 struct Declaration * declaration;
 616 char *  importString;
 617 struct Identifier * id;
 618 struct DBTableDef * table;
 619 } __attribute__ ((gcc_struct)) __anon1;
 620 int importType;
 621 } __attribute__ ((gcc_struct));
 622
 623 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ModuleImport;
 624
 625 struct ModuleImport
 626 {
 627 struct ModuleImport * prev;
 628 struct ModuleImport * next;
 629 char *  name;
 630 struct __ecereNameSpace__ecere__sys__OldList classes;
 631 struct __ecereNameSpace__ecere__sys__OldList functions;
 632 int importType;
 633 int importAccess;
 634 } __attribute__ ((gcc_struct));
 635
 636 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassImport;
 637
 638 struct ClassImport
 639 {
 640 struct ClassImport * prev;
 641 struct ClassImport * next;
 642 char *  name;
 643 struct __ecereNameSpace__ecere__sys__OldList methods;
 644 struct __ecereNameSpace__ecere__sys__OldList properties;
 645 unsigned int itself;
 646 int isRemote;
 647 } __attribute__ ((gcc_struct));
 648
 649 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Symbol;
 650
 651 struct Symbol
 652 {
 653 char *  string;
 654 struct Symbol * parent;
 655 struct Symbol * left;
 656 struct Symbol * right;
 657 int depth;
 658 struct Type * type;
 659 union
 660 {
 661 struct __ecereNameSpace__ecere__com__Method * method;
 662 struct __ecereNameSpace__ecere__com__Property * _property;
 663 struct __ecereNameSpace__ecere__com__Class * registered;
 664 } __attribute__ ((gcc_struct)) __anon1;
 665 int id;
 666 int idCode;
 667 union
 668 {
 669 struct
 670 {
 671 struct External * pointerExternal;
 672 struct External * structExternal;
 673 } __attribute__ ((gcc_struct)) __anon1;
 674 struct
 675 {
 676 struct External * externalGet;
 677 struct External * externalSet;
 678 struct External * externalPtr;
 679 struct External * externalIsSet;
 680 } __attribute__ ((gcc_struct)) __anon2;
 681 struct
 682 {
 683 struct External * methodExternal;
 684 struct External * methodCodeExternal;
 685 } __attribute__ ((gcc_struct)) __anon3;
 686 } __attribute__ ((gcc_struct)) __anon2;
 687 unsigned int imported;
 688 unsigned int declaredStructSym;
 689 struct __ecereNameSpace__ecere__com__Class * _class;
 690 unsigned int declaredStruct;
 691 unsigned int needConstructor;
 692 unsigned int needDestructor;
 693 char *  constructorName;
 694 char *  structName;
 695 char *  className;
 696 char *  destructorName;
 697 struct ModuleImport * module;
 698 struct ClassImport * _import;
 699 struct Location nameLoc;
 700 unsigned int isParam;
 701 unsigned int isRemote;
 702 unsigned int isStruct;
 703 unsigned int fireWatchersDone;
 704 int declaring;
 705 unsigned int classData;
 706 unsigned int isStatic;
 707 char *  shortName;
 708 struct __ecereNameSpace__ecere__sys__OldList *  templateParams;
 709 struct __ecereNameSpace__ecere__sys__OldList templatedClasses;
 710 struct Context * ctx;
 711 int isIterator;
 712 struct Expression * propCategory;
 713 } __attribute__ ((gcc_struct));
 714
 715 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Type;
 716
 717 struct Type
 718 {
 719 struct Type * prev;
 720 struct Type * next;
 721 int refCount;
 722 union
 723 {
 724 struct Symbol * _class;
 725 struct
 726 {
 727 struct __ecereNameSpace__ecere__sys__OldList members;
 728 char *  enumName;
 729 } __attribute__ ((gcc_struct)) __anon1;
 730 struct
 731 {
 732 struct Type * returnType;
 733 struct __ecereNameSpace__ecere__sys__OldList params;
 734 struct Symbol * thisClass;
 735 unsigned int staticMethod;
 736 struct TemplateParameter * thisClassTemplate;
 737 } __attribute__ ((gcc_struct)) __anon2;
 738 struct
 739 {
 740 struct __ecereNameSpace__ecere__com__Method * method;
 741 struct __ecereNameSpace__ecere__com__Class * methodClass;
 742 struct __ecereNameSpace__ecere__com__Class * usedClass;
 743 } __attribute__ ((gcc_struct)) __anon3;
 744 struct
 745 {
 746 struct Type * arrayType;
 747 int arraySize;
 748 struct Expression * arraySizeExp;
 749 unsigned int freeExp;
 750 struct Symbol * enumClass;
 751 } __attribute__ ((gcc_struct)) __anon4;
 752 struct Type * type;
 753 struct TemplateParameter * templateParameter;
 754 } __attribute__ ((gcc_struct)) __anon1;
 755 int kind;
 756 unsigned int size;
 757 char *  name;
 758 char *  typeName;
 759 int classObjectType;
 760 int alignment;
 761 unsigned int offset;
 762 int bitFieldCount;
 763 int count;
 764 unsigned int isSigned : 1;
 765 unsigned int constant : 1;
 766 unsigned int truth : 1;
 767 unsigned int byReference : 1;
 768 unsigned int extraParam : 1;
 769 unsigned int directClassAccess : 1;
 770 unsigned int computing : 1;
 771 unsigned int keepCast : 1;
 772 unsigned int passAsTemplate : 1;
 773 unsigned int dllExport : 1;
 774 unsigned int attrStdcall : 1;
 775 unsigned int declaredWithStruct : 1;
 776 unsigned int typedByReference : 1;
 777 unsigned int casted : 1;
 778 } __attribute__ ((gcc_struct));
 779
 780 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Class;
 781
 782 struct __ecereNameSpace__ecere__com__Class
 783 {
 784 struct __ecereNameSpace__ecere__com__Class * prev;
 785 struct __ecereNameSpace__ecere__com__Class * next;
 786 const char *  name;
 787 int offset;
 788 int structSize;
 789 void * *  _vTbl;
 790 int vTblSize;
 791 unsigned int (*  Constructor)(void * );
 792 void (*  Destructor)(void * );
 793 int offsetClass;
 794 int sizeClass;
 795 struct __ecereNameSpace__ecere__com__Class * base;
 796 struct __ecereNameSpace__ecere__sys__BinaryTree methods;
 797 struct __ecereNameSpace__ecere__sys__BinaryTree members;
 798 struct __ecereNameSpace__ecere__sys__BinaryTree prop;
 799 struct __ecereNameSpace__ecere__sys__OldList membersAndProperties;
 800 struct __ecereNameSpace__ecere__sys__BinaryTree classProperties;
 801 struct __ecereNameSpace__ecere__sys__OldList derivatives;
 802 int memberID;
 803 int startMemberID;
 804 int type;
 805 struct __ecereNameSpace__ecere__com__Instance * module;
 806 struct __ecereNameSpace__ecere__com__NameSpace *  nameSpace;
 807 const char *  dataTypeString;
 808 struct Type * dataType;
 809 int typeSize;
 810 int defaultAlignment;
 811 void (*  Initialize)();
 812 int memberOffset;
 813 struct __ecereNameSpace__ecere__sys__OldList selfWatchers;
 814 const char *  designerClass;
 815 unsigned int noExpansion;
 816 const char *  defaultProperty;
 817 unsigned int comRedefinition;
 818 int count;
 819 int isRemote;
 820 unsigned int internalDecl;
 821 void *  data;
 822 unsigned int computeSize;
 823 int structAlignment;
 824 int destructionWatchOffset;
 825 unsigned int fixed;
 826 struct __ecereNameSpace__ecere__sys__OldList delayedCPValues;
 827 int inheritanceAccess;
 828 const char *  fullName;
 829 void *  symbol;
 830 struct __ecereNameSpace__ecere__sys__OldList conversions;
 831 struct __ecereNameSpace__ecere__sys__OldList templateParams;
 832 struct __ecereNameSpace__ecere__com__ClassTemplateArgument *  templateArgs;
 833 struct __ecereNameSpace__ecere__com__Class * templateClass;
 834 struct __ecereNameSpace__ecere__sys__OldList templatized;
 835 int numParams;
 836 unsigned int isInstanceClass;
 837 unsigned int byValueSystemClass;
 838 } __attribute__ ((gcc_struct));
 839
 840 extern long long __ecereNameSpace__ecere__com__eClass_GetProperty(struct __ecereNameSpace__ecere__com__Class * _class, const char *  name);
 841
 842 extern void __ecereNameSpace__ecere__com__eClass_SetProperty(struct __ecereNameSpace__ecere__com__Class * _class, const char *  name, long long value);
 843
 844 extern void __ecereNameSpace__ecere__com__eInstance_FireSelfWatchers(struct __ecereNameSpace__ecere__com__Instance * instance, struct __ecereNameSpace__ecere__com__Property * _property);
 845
 846 extern void __ecereNameSpace__ecere__com__eInstance_SetMethod(struct __ecereNameSpace__ecere__com__Instance * instance, const char *  name, void *  function);
 847
 848 extern void __ecereNameSpace__ecere__com__eInstance_IncRef(struct __ecereNameSpace__ecere__com__Instance * instance);
 849
 850 extern void __ecereNameSpace__ecere__com__eInstance_StopWatching(struct __ecereNameSpace__ecere__com__Instance * instance, struct __ecereNameSpace__ecere__com__Property * _property, struct __ecereNameSpace__ecere__com__Instance * object);
 851
 852 extern void __ecereNameSpace__ecere__com__eInstance_Watch(void *  instance, struct __ecereNameSpace__ecere__com__Property * _property, void *  object, void (*  callback)(void * , void * ));
 853
 854 extern void __ecereNameSpace__ecere__com__eInstance_FireWatchers(struct __ecereNameSpace__ecere__com__Instance * instance, struct __ecereNameSpace__ecere__com__Property * _property);
 855
 856 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Instance;
 857
 858 struct __ecereNameSpace__ecere__com__Instance
 859 {
 860 void * *  _vTbl;
 861 struct __ecereNameSpace__ecere__com__Class * _class;
 862 int _refCount;
 863 } __attribute__ ((gcc_struct));
 864
 865 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataMember;
 866
 867 struct __ecereNameSpace__ecere__com__DataMember
 868 {
 869 struct __ecereNameSpace__ecere__com__DataMember * prev;
 870 struct __ecereNameSpace__ecere__com__DataMember * next;
 871 const char *  name;
 872 unsigned int isProperty;
 873 int memberAccess;
 874 int id;
 875 struct __ecereNameSpace__ecere__com__Class * _class;
 876 const char *  dataTypeString;
 877 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 878 struct Type * dataType;
 879 int type;
 880 int offset;
 881 int memberID;
 882 struct __ecereNameSpace__ecere__sys__OldList members;
 883 struct __ecereNameSpace__ecere__sys__BinaryTree membersAlpha;
 884 int memberOffset;
 885 int structAlignment;
 886 } __attribute__ ((gcc_struct));
 887
 888 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__SerialBuffer;
 889
 890 struct __ecereNameSpace__ecere__com__SerialBuffer
 891 {
 892 unsigned char *  _buffer;
 893 unsigned int count;
 894 unsigned int _size;
 895 unsigned int pos;
 896 } __attribute__ ((gcc_struct));
 897
 898 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__ClassTemplateArgument;
 899
 900 struct __ecereNameSpace__ecere__com__ClassTemplateArgument
 901 {
 902 union
 903 {
 904 struct
 905 {
 906 const char *  dataTypeString;
 907 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 908 } __attribute__ ((gcc_struct)) __anon1;
 909 struct __ecereNameSpace__ecere__com__DataValue expression;
 910 struct
 911 {
 912 const char *  memberString;
 913 union
 914 {
 915 struct __ecereNameSpace__ecere__com__DataMember * member;
 916 struct __ecereNameSpace__ecere__com__Property * prop;
 917 struct __ecereNameSpace__ecere__com__Method * method;
 918 } __attribute__ ((gcc_struct)) __anon1;
 919 } __attribute__ ((gcc_struct)) __anon2;
 920 } __attribute__ ((gcc_struct)) __anon1;
 921 } __attribute__ ((gcc_struct));
 922
 923 enum yytokentype
 924 {
 925 IDENTIFIER = 258, CONSTANT = 259, STRING_LITERAL = 260, SIZEOF = 261, PTR_OP = 262, INC_OP = 263, DEC_OP = 264, LEFT_OP = 265, RIGHT_OP = 266, LE_OP = 267, GE_OP = 268, EQ_OP = 269, NE_OP = 270, AND_OP = 271, OR_OP = 272, MUL_ASSIGN = 273, DIV_ASSIGN = 274, MOD_ASSIGN = 275, ADD_ASSIGN = 276, SUB_ASSIGN = 277, LEFT_ASSIGN = 278, RIGHT_ASSIGN = 279, AND_ASSIGN = 280, XOR_ASSIGN = 281, OR_ASSIGN = 282, TYPE_NAME = 283, TYPEDEF = 284, EXTERN = 285, STATIC = 286, AUTO = 287, REGISTER = 288, CHAR = 289, SHORT = 290, INT = 291, UINT = 292, INT64 = 293, LONG = 294, SIGNED = 295, UNSIGNED = 296, FLOAT = 297, DOUBLE = 298, CONST = 299, VOLATILE = 300, VOID = 301, VALIST = 302, STRUCT = 303, UNION = 304, ENUM = 305, ELLIPSIS = 306, CASE = 307, DEFAULT = 308, IF = 309, SWITCH = 310, WHILE = 311, DO = 312, FOR = 313, GOTO = 314, CONTINUE = 315, BREAK = 316, RETURN = 317, IFX = 318, ELSE = 319, CLASS = 320, THISCLASS = 321, CLASS_NAME = 322, PROPERTY = 323, SETPROP = 324, GETPROP = 325, NEWOP = 326, RENEW = 327, DELETE = 328, EXT_DECL = 329, EXT_STORAGE = 330, IMPORT = 331, DEFINE = 332, VIRTUAL = 333, ATTRIB = 334, PUBLIC = 335, PRIVATE = 336, TYPED_OBJECT = 337, ANY_OBJECT = 338, _INCREF = 339, EXTENSION = 340, ASM = 341, TYPEOF = 342, WATCH = 343, STOPWATCHING = 344, FIREWATCHERS = 345, WATCHABLE = 346, CLASS_DESIGNER = 347, CLASS_NO_EXPANSION = 348, CLASS_FIXED = 349, ISPROPSET = 350, CLASS_DEFAULT_PROPERTY = 351, PROPERTY_CATEGORY = 352, CLASS_DATA = 353, CLASS_PROPERTY = 354, SUBCLASS = 355, NAMESPACE = 356, NEW0OP = 357, RENEW0 = 358, VAARG = 359, DBTABLE = 360, DBFIELD = 361, DBINDEX = 362, DATABASE_OPEN = 363, ALIGNOF = 364, ATTRIB_DEP = 365, __ATTRIB = 366, BOOL = 367, _BOOL = 368, _COMPLEX = 369, _IMAGINARY = 370, RESTRICT = 371, THREAD = 372, WIDE_STRING_LITERAL = 373
 926 };
 927
 928 typedef union YYSTYPE
 929 {
 930 int specifierType;
 931 int i;
 932 int declMode;
 933 struct Identifier * id;
 934 struct Expression * exp;
 935 struct Specifier * specifier;
 936 struct __ecereNameSpace__ecere__sys__OldList * list;
 937 struct Enumerator * enumerator;
 938 struct Declarator * declarator;
 939 struct Pointer * pointer;
 940 struct Initializer * initializer;
 941 struct InitDeclarator * initDeclarator;
 942 struct TypeName * typeName;
 943 struct Declaration * declaration;
 944 struct Statement * stmt;
 945 struct FunctionDefinition * function;
 946 struct External * external;
 947 struct Context * context;
 948 struct AsmField * asmField;
 949 struct Attrib * attrib;
 950 struct ExtDecl * extDecl;
 951 struct Attribute * attribute;
 952 struct Instantiation * instance;
 953 struct MembersInit * membersInit;
 954 struct MemberInit * memberInit;
 955 struct ClassFunction * classFunction;
 956 struct ClassDefinition * _class;
 957 struct ClassDef * classDef;
 958 struct PropertyDef * prop;
 959 char * string;
 960 struct Symbol * symbol;
 961 struct PropertyWatch * propertyWatch;
 962 struct TemplateParameter * templateParameter;
 963 struct TemplateArgument * templateArgument;
 964 struct TemplateDatatype * templateDatatype;
 965 struct DBTableEntry * dbtableEntry;
 966 struct DBIndexItem * dbindexItem;
 967 struct DBTableDef * dbtableDef;
 968 } __attribute__ ((gcc_struct)) YYSTYPE;
 969
 970 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Enumerator;
 971
 972 struct Enumerator
 973 {
 974 struct Enumerator * prev;
 975 struct Enumerator * next;
 976 struct Location loc;
 977 struct Identifier * id;
 978 struct Expression * exp;
 979 } __attribute__ ((gcc_struct));
 980
 981 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_InitDeclarator;
 982
 983 struct InitDeclarator
 984 {
 985 struct InitDeclarator * prev;
 986 struct InitDeclarator * next;
 987 struct Location loc;
 988 struct Declarator * declarator;
 989 struct Initializer * initializer;
 990 } __attribute__ ((gcc_struct));
 991
 992 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_AsmField;
 993
 994 struct AsmField
 995 {
 996 struct AsmField * prev;
 997 struct AsmField * next;
 998 struct Location loc;
 999 char *  command;
1000 struct Expression * expression;
1001 struct Identifier * symbolic;
1002 } __attribute__ ((gcc_struct));
1003
1004 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Attribute;
1005
1006 struct Attribute;
1007
1008 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassFunction;
1009
1010 struct ClassFunction
1011 {
1012 struct ClassFunction * prev;
1013 struct ClassFunction * next;
1014 struct Location loc;
1015 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
1016 struct Declarator * declarator;
1017 struct __ecereNameSpace__ecere__sys__OldList *  declarations;
1018 struct Statement * body;
1019 struct __ecereNameSpace__ecere__com__Class * _class;
1020 struct __ecereNameSpace__ecere__sys__OldList attached;
1021 int declMode;
1022 struct Type * type;
1023 struct Symbol * propSet;
1024 unsigned int isVirtual;
1025 unsigned int isConstructor;
1026 unsigned int isDestructor;
1027 unsigned int dontMangle;
1028 int id;
1029 int idCode;
1030 } __attribute__ ((gcc_struct));
1031
1032 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_MembersInit;
1033
1034 struct MembersInit
1035 {
1036 struct MembersInit * prev;
1037 struct MembersInit * next;
1038 struct Location loc;
1039 int type;
1040 union
1041 {
1042 struct __ecereNameSpace__ecere__sys__OldList *  dataMembers;
1043 struct ClassFunction * function;
1044 } __attribute__ ((gcc_struct)) __anon1;
1045 } __attribute__ ((gcc_struct));
1046
1047 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_MemberInit;
1048
1049 struct MemberInit
1050 {
1051 struct MemberInit * prev;
1052 struct MemberInit * next;
1053 struct Location loc;
1054 struct Location realLoc;
1055 struct __ecereNameSpace__ecere__sys__OldList *  identifiers;
1056 struct Initializer * initializer;
1057 unsigned int used;
1058 unsigned int variable;
1059 unsigned int takeOutExp;
1060 } __attribute__ ((gcc_struct));
1061
1062 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_PropertyDef;
1063
1064 struct PropertyDef
1065 {
1066 struct PropertyDef * prev;
1067 struct PropertyDef * next;
1068 struct Location loc;
1069 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
1070 struct Declarator * declarator;
1071 struct Identifier * id;
1072 struct Statement * getStmt;
1073 struct Statement * setStmt;
1074 struct Statement * issetStmt;
1075 struct Symbol * symbol;
1076 struct Expression * category;
1077 struct
1078 {
1079 unsigned int conversion : 1;
1080 unsigned int isWatchable : 1;
1081 unsigned int isDBProp : 1;
1082 } __attribute__ ((gcc_struct)) __anon1;
1083 } __attribute__ ((gcc_struct));
1084
1085 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_PropertyWatch;
1086
1087 struct PropertyWatch
1088 {
1089 struct PropertyWatch * prev;
1090 struct PropertyWatch * next;
1091 struct Location loc;
1092 struct Statement * compound;
1093 struct __ecereNameSpace__ecere__sys__OldList *  properties;
1094 unsigned int deleteWatch;
1095 } __attribute__ ((gcc_struct));
1096
1097 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_ClassDef;
1098
1099 struct ClassDef
1100 {
1101 struct ClassDef * prev;
1102 struct ClassDef * next;
1103 struct Location loc;
1104 int type;
1105 union
1106 {
1107 struct Declaration * decl;
1108 struct ClassFunction * function;
1109 struct __ecereNameSpace__ecere__sys__OldList *  defProperties;
1110 struct PropertyDef * propertyDef;
1111 struct PropertyWatch * propertyWatch;
1112 char *  designer;
1113 struct Identifier * defaultProperty;
1114 struct
1115 {
1116 struct Identifier * id;
1117 struct Initializer * initializer;
1118 } __attribute__ ((gcc_struct)) __anon1;
1119 } __attribute__ ((gcc_struct)) __anon1;
1120 int memberAccess;
1121 void *  object;
1122 } __attribute__ ((gcc_struct));
1123
1124 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBTableEntry;
1125
1126 struct DBTableEntry;
1127
1128 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_DBIndexItem;
1129
1130 struct DBIndexItem;
1131
1132 extern YYSTYPE yylval;
1133
1134 extern struct Location yylloc;
1135
1136 extern struct External * curExternal;
1137
1138 static struct Statement * curCompound;
1139
1140 static struct Statement * createInstancesBody;
1141
1142 static struct Statement * destroyInstancesBody;
1143
1144 extern unsigned int inCompiler;
1145
1146 extern struct Statement * MkCompoundStmt(struct __ecereNameSpace__ecere__sys__OldList * declarations, struct __ecereNameSpace__ecere__sys__OldList * statements);
1147
1148 extern struct __ecereNameSpace__ecere__sys__OldList *  MkList(void);
1149
1150 extern struct Context * globalContext;
1151
1152 extern void ListAdd(struct __ecereNameSpace__ecere__sys__OldList * list, void *  item);
1153
1154 extern struct Specifier * MkSpecifier(int specifier);
1155
1156 extern char *  __ecereNameSpace__ecere__sys__GetLastDirectory(const char *  string, char *  output);
1157
1158 extern const char *  outputFile;
1159
1160 extern unsigned int __ecereNameSpace__ecere__sys__StripExtension(char *  string);
1161
1162 extern void FixModuleName(char *  moduleName);
1163
1164 extern int sprintf(char * , const char * , ...);
1165
1166 extern struct Declarator * MkDeclaratorFunction(struct Declarator * declarator, struct __ecereNameSpace__ecere__sys__OldList * parameters);
1167
1168 extern struct Declarator * MkDeclaratorIdentifier(struct Identifier * id);
1169
1170 extern struct Identifier * MkIdentifier(const char *  string);
1171
1172 extern struct FunctionDefinition * _MkFunction(struct __ecereNameSpace__ecere__sys__OldList * specifiers, struct Declarator * declarator, struct __ecereNameSpace__ecere__sys__OldList * declarationList, unsigned int errorOnOmit);
1173
1174 extern void ProcessFunctionBody(struct FunctionDefinition * func, struct Statement * body);
1175
1176 extern struct __ecereNameSpace__ecere__sys__OldList *  ast;
1177
1178 extern struct External * MkExternalFunction(struct FunctionDefinition * function);
1179
1180 extern void *  __ecereNameSpace__ecere__com__eInstance_New(struct __ecereNameSpace__ecere__com__Class * _class);
1181
1182 static void CreateInstancesBody()
1183 {
1184 if(inCompiler && !createInstancesBody)
1185 {
1186 char registerName[1024], moduleName[274];
1187 struct __ecereNameSpace__ecere__sys__OldList * specifiers;
1188 struct Declarator * declarator;
1189
1190 createInstancesBody = MkCompoundStmt((((void *)0)), MkList());
1191 createInstancesBody->__anon1.compound.context = __extension__ ({
1192 struct Context * __ecereInstance1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Context);
1193
1194 __ecereInstance1->parent = globalContext, __ecereInstance1;
1195 });
1196 specifiers = MkList();
1197 ListAdd(specifiers, MkSpecifier(VOID));
1198 __ecereNameSpace__ecere__sys__GetLastDirectory(outputFile, moduleName);
1199 __ecereNameSpace__ecere__sys__StripExtension(moduleName);
1200 FixModuleName(moduleName);
1201 sprintf(registerName, "__ecereCreateModuleInstances_%s", moduleName);
1202 declarator = MkDeclaratorFunction(MkDeclaratorIdentifier(MkIdentifier(registerName)), (((void *)0)));
1203 {
1204 struct FunctionDefinition * function = _MkFunction(specifiers, declarator, (((void *)0)), 0);
1205
1206 ProcessFunctionBody(function, createInstancesBody);
1207 ListAdd(ast, MkExternalFunction(function));
1208 }
1209 destroyInstancesBody = MkCompoundStmt((((void *)0)), MkList());
1210 destroyInstancesBody->__anon1.compound.context = __extension__ ({
1211 struct Context * __ecereInstance1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Context);
1212
1213 __ecereInstance1->parent = globalContext, __ecereInstance1;
1214 });
1215 specifiers = MkList();
1216 ListAdd(specifiers, MkSpecifier(VOID));
1217 sprintf(registerName, "__ecereDestroyModuleInstances_%s", moduleName);
1218 declarator = MkDeclaratorFunction(MkDeclaratorIdentifier(MkIdentifier(registerName)), (((void *)0)));
1219 {
1220 struct FunctionDefinition * function = _MkFunction(specifiers, declarator, (((void *)0)), 0);
1221
1222 ProcessFunctionBody(function, destroyInstancesBody);
1223 ListAdd(ast, MkExternalFunction(function));
1224 }
1225 }
1226 }
1227
1228 static void ProcessInitializer(struct Initializer * init);
1229
1230 static void ProcessMemberInitData(struct MemberInit * member)
1231 {
1232 if(member->initializer)
1233 ProcessInitializer(member->initializer);
1234 }
1235
1236 static void ProcessFunction(struct FunctionDefinition * function);
1237
1238 static void ProcessInstantiation(struct Instantiation * inst)
1239 {
1240 if(inst->members && (*inst->members).first)
1241 {
1242 struct MembersInit * members;
1243
1244 for(members = (*inst->members).first; members; members = members->next)
1245 {
1246 if(members->type == 0)
1247 {
1248 if(members->__anon1.dataMembers)
1249 {
1250 struct MemberInit * member;
1251
1252 for(member = (*members->__anon1.dataMembers).first; member; member = member->next)
1253 ProcessMemberInitData(member);
1254 }
1255 }
1256 else if(members->type == 1)
1257 {
1258 ProcessFunction((struct FunctionDefinition *)members->__anon1.function);
1259 }
1260 }
1261 }
1262 }
1263
1264 extern struct __ecereNameSpace__ecere__com__Property * __ecereNameSpace__ecere__com__eClass_FindProperty(struct __ecereNameSpace__ecere__com__Class * _class, const char *  name, struct __ecereNameSpace__ecere__com__Instance * module);
1265
1266 extern struct __ecereNameSpace__ecere__com__Instance * privateModule;
1267
1268 extern struct __ecereNameSpace__ecere__com__DataMember * __ecereNameSpace__ecere__com__eClass_FindDataMember(struct __ecereNameSpace__ecere__com__Class * _class, const char *  name, struct __ecereNameSpace__ecere__com__Instance * module, struct __ecereNameSpace__ecere__com__DataMember **  subMemberStack, int *  subMemberStackPos);
1269
1270 extern void *  memcpy(void * , const void * , size_t size);
1271
1272 extern void __ecereNameSpace__ecere__com__eClass_FindNextMember(struct __ecereNameSpace__ecere__com__Class * _class, struct __ecereNameSpace__ecere__com__Class **  curClass, struct __ecereNameSpace__ecere__com__DataMember **  curMember, struct __ecereNameSpace__ecere__com__DataMember **  subMemberStack, int *  subMemberStackPos);
1273
1274 extern struct Expression * CopyExpression(struct Expression * exp);
1275
1276 extern struct Expression * MkExpConstant(const char *  string);
1277
1278 extern struct Expression * MkExpMember(struct Expression * expression, struct Identifier * member);
1279
1280 extern struct Expression * MkExpOp(struct Expression * exp1, int op, struct Expression * exp2);
1281
1282 extern void FreeType(struct Type * type);
1283
1284 extern void ProcessExpressionType(struct Expression * exp);
1285
1286 static void ProcessExpression(struct Expression * exp);
1287
1288 static unsigned int ProcessInstMembers_SimpleMemberEnsure(struct __ecereNameSpace__ecere__com__DataMember * parentMember, struct Instantiation * inst, struct Expression * instExp, struct __ecereNameSpace__ecere__sys__OldList * list, unsigned int zeroOut)
1289 {
1290 struct Symbol * classSym = inst->_class->__anon1.__anon1.symbol;
1291 unsigned int fullSet = 1;
1292 struct __ecereNameSpace__ecere__com__DataMember * dataMember;
1293
1294 for(dataMember = parentMember->members.first; dataMember; dataMember = dataMember->next)
1295 {
1296 if(!dataMember->isProperty)
1297 {
1298 if(!dataMember->name && (dataMember->type == 1 || dataMember->type == 2))
1299 {
1300 if(!ProcessInstMembers_SimpleMemberEnsure(dataMember, inst, instExp, list, zeroOut))
1301 fullSet = 0;
1302 }
1303 else
1304 {
1305 unsigned int memberFilled = 0;
1306
1307 if(inst->members && (*inst->members).first)
1308 {
1309 struct __ecereNameSpace__ecere__com__Class * curClass = (((void *)0));
1310 struct __ecereNameSpace__ecere__com__DataMember * curMember = (((void *)0));
1311 struct __ecereNameSpace__ecere__com__DataMember * subMemberStack[256];
1312 int subMemberStackPos = 0;
1313 struct MembersInit * members;
1314
1315 for(members = (*inst->members).first; members; members = members->next)
1316 {
1317 if(members->type == 0)
1318 {
1319 struct MemberInit * member = (((void *)0));
1320
1321 for(member = (*members->__anon1.dataMembers).first; member; member = member->next)
1322 {
1323 if(member->identifiers)
1324 {
1325 struct Identifier * firstID = (*member->identifiers).first;
1326 struct __ecereNameSpace__ecere__com__DataMember * _subMemberStack[256];
1327 int _subMemberStackPos = 0;
1328 struct __ecereNameSpace__ecere__com__DataMember * thisMember = (struct __ecereNameSpace__ecere__com__DataMember *)__ecereNameSpace__ecere__com__eClass_FindProperty(classSym->__anon1.registered, firstID->string, privateModule);
1329
1330 if(!thisMember)
1331 thisMember = __ecereNameSpace__ecere__com__eClass_FindDataMember(classSym->__anon1.registered, firstID->string, privateModule, _subMemberStack, &_subMemberStackPos);
1332 if(thisMember)
1333 {
1334 if(thisMember && thisMember->memberAccess == 1)
1335 {
1336 curMember = thisMember;
1337 curClass = curMember->_class;
1338 memcpy(subMemberStack, _subMemberStack, sizeof(struct __ecereNameSpace__ecere__com__DataMember *) * _subMemberStackPos);
1339 subMemberStackPos = _subMemberStackPos;
1340 }
1341 if(!firstID->next && thisMember == dataMember)
1342 {
1343 memberFilled = 1;
1344 break;
1345 }
1346 }
1347 }
1348 else
1349 {
1350 __ecereNameSpace__ecere__com__eClass_FindNextMember(classSym->__anon1.registered, &curClass, &curMember, subMemberStack, &subMemberStackPos);
1351 if(curMember == dataMember)
1352 {
1353 memberFilled = 1;
1354 break;
1355 }
1356 }
1357 }
1358 if(memberFilled)
1359 break;
1360 }
1361 if(memberFilled)
1362 break;
1363 }
1364 }
1365 if(!memberFilled)
1366 {
1367 if(zeroOut)
1368 {
1369 struct Expression * instExpCopy = CopyExpression(instExp);
1370 struct Expression * memberExp;
1371 struct Expression * setExp;
1372 struct Expression * value = MkExpConstant("0");
1373
1374 memberExp = MkExpMember(instExpCopy, MkIdentifier(dataMember->name));
1375 memberExp->__anon1.member.memberType = 3;
1376 value->usage = (value->usage & ~0x1) | (((unsigned int)(1)) << 0);
1377 setExp = MkExpOp(memberExp, '=', value);
1378 value->loc = inst->loc;
1379 setExp->loc = inst->loc;
1380 FreeType(instExpCopy->expType);
1381 instExpCopy->expType = instExp->expType;
1382 if(instExp->expType)
1383 instExp->expType->refCount++;
1384 ProcessExpressionType(setExp);
1385 ProcessExpression(setExp);
1386 ListAdd(list, setExp);
1387 }
1388 fullSet = 0;
1389 }
1390 }
1391 }
1392 }
1393 return fullSet;
1394 }
1395
1396 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__BitMember;
1397
1398 struct __ecereNameSpace__ecere__com__BitMember
1399 {
1400 struct __ecereNameSpace__ecere__com__BitMember * prev;
1401 struct __ecereNameSpace__ecere__com__BitMember * next;
1402 const char *  name;
1403 unsigned int isProperty;
1404 int memberAccess;
1405 int id;
1406 struct __ecereNameSpace__ecere__com__Class * _class;
1407 const char *  dataTypeString;
1408 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
1409 struct Type * dataType;
1410 int type;
1411 int size;
1412 int pos;
1413 uint64 mask;
1414 } __attribute__ ((gcc_struct));
1415
1416 extern struct Declarator * SpecDeclFromString(const char *  string, struct __ecereNameSpace__ecere__sys__OldList *  specs, struct Declarator * baseDecl);
1417
1418 extern struct Expression * MkExpBrackets(struct __ecereNameSpace__ecere__sys__OldList * expressions);
1419
1420 extern struct __ecereNameSpace__ecere__sys__OldList *  MkListOne(void *  item);
1421
1422 extern struct Expression * MkExpCast(struct TypeName * typeName, struct Expression * expression);
1423
1424 extern struct TypeName * MkTypeName(struct __ecereNameSpace__ecere__sys__OldList * qualifiers, struct Declarator * declarator);
1425
1426 extern void FreeInitializer(struct Initializer * initializer);
1427
1428 extern void DeclareProperty(struct __ecereNameSpace__ecere__com__Property * prop, char *  setName, char *  getName);
1429
1430 extern struct Expression * MkExpCall(struct Expression * expression, struct __ecereNameSpace__ecere__sys__OldList * arguments);
1431
1432 extern struct Expression * MkExpIdentifier(struct Identifier * id);
1433
1434 extern struct Type * MkClassType(const char *  name);
1435
1436 extern struct TypeName * QMkClass(const char *  spec, struct Declarator * decl);
1437
1438 extern struct __ecereNameSpace__ecere__com__Method * __ecereNameSpace__ecere__com__eClass_FindMethod(struct __ecereNameSpace__ecere__com__Class * _class, const char *  name, struct __ecereNameSpace__ecere__com__Instance * module);
1439
1440 extern void FreeExpression(struct Expression * exp);
1441
1442 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Clear(struct __ecereNameSpace__ecere__sys__OldList * this);
1443
1444 static unsigned int ProcessInstMembers(struct Instantiation * inst, struct Expression * instExp, struct __ecereNameSpace__ecere__sys__OldList * list, unsigned int zeroOut)
1445 {
1446 struct MembersInit * members;
1447 struct Symbol * classSym = inst->_class->__anon1.__anon1.symbol;
1448 unsigned int fullSet = 1, convert = 0;
1449
1450 if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 2)
1451 {
1452 struct Expression * exp = (((void *)0));
1453
1454 if(inst->members && (*inst->members).first)
1455 {
1456 struct __ecereNameSpace__ecere__com__Class * _class = (((void *)0));
1457
1458 while(_class != classSym->__anon1.registered)
1459 {
1460 struct __ecereNameSpace__ecere__com__BitMember * bitMember = (((void *)0));
1461 struct __ecereNameSpace__ecere__com__Class * lastClass = _class;
1462
1463 for(_class = classSym->__anon1.registered; _class->base != lastClass && _class->base->type != 1000; _class = _class->base)
1464 ;
1465 for(bitMember = _class->membersAndProperties.first; bitMember; bitMember = bitMember->next)
1466 {
1467 struct __ecereNameSpace__ecere__com__BitMember * curMember = (((void *)0));
1468 struct __ecereNameSpace__ecere__com__Class * curClass = (((void *)0));
1469 struct __ecereNameSpace__ecere__com__DataMember * subMemberStack[256];
1470 int subMemberStackPos = 0;
1471 struct MemberInit * member = (((void *)0));
1472 unsigned int found = 0;
1473
1474 for(members = (*inst->members).first; members; members = members->next)
1475 {
1476 if(members->type == 0)
1477 {
1478 for(member = (*members->__anon1.dataMembers).first; member; member = member->next)
1479 {
1480 if(member->identifiers)
1481 {
1482 struct Identifier * firstID = (*member->identifiers).first;
1483 struct __ecereNameSpace__ecere__com__DataMember * _subMemberStack[256];
1484 int _subMemberStackPos = 0;
1485 struct __ecereNameSpace__ecere__com__BitMember * thisMember = (struct __ecereNameSpace__ecere__com__BitMember *)__ecereNameSpace__ecere__com__eClass_FindDataMember(_class, firstID->string, privateModule, _subMemberStack, &_subMemberStackPos);
1486
1487 if(!thisMember)
1488 {
1489 thisMember = (struct __ecereNameSpace__ecere__com__BitMember *)__ecereNameSpace__ecere__com__eClass_FindProperty(_class, firstID->string, privateModule);
1490 }
1491 if(thisMember && thisMember->memberAccess == 1)
1492 {
1493 curMember = thisMember;
1494 curClass = curMember->_class;
1495 memcpy(subMemberStack, _subMemberStack, sizeof(struct __ecereNameSpace__ecere__com__DataMember *) * _subMemberStackPos);
1496 subMemberStackPos = _subMemberStackPos;
1497 }
1498 if(thisMember == bitMember)
1499 {
1500 found = 1;
1501 break;
1502 }
1503 }
1504 else
1505 {
1506 __ecereNameSpace__ecere__com__eClass_FindNextMember(classSym->__anon1.registered, &curClass, (struct __ecereNameSpace__ecere__com__DataMember **)&curMember, subMemberStack, &subMemberStackPos);
1507 if(curMember == bitMember)
1508 {
1509 found = 1;
1510 break;
1511 }
1512 }
1513 }
1514 }
1515 if(found)
1516 break;
1517 }
1518 if(member)
1519 {
1520 if(!bitMember->isProperty)
1521 {
1522 struct Expression * part = (((void *)0));
1523 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1524 struct Declarator * decl;
1525
1526 decl = SpecDeclFromString(_class->dataTypeString, specs, (((void *)0)));
1527 ProcessInitializer(member->initializer);
1528 if(member->initializer && member->initializer->type == 0)
1529 {
1530 if(bitMember->pos)
1531 {
1532 char pos[10];
1533
1534 sprintf(pos, "%d", bitMember->pos);
1535 part = MkExpBrackets(MkListOne(MkExpOp(MkExpBrackets(MkListOne(MkExpCast(MkTypeName(specs, decl), MkExpBrackets(MkListOne(member->initializer->__anon1.exp))))), LEFT_OP, MkExpConstant(pos))));
1536 }
1537 else
1538 part = MkExpBrackets(MkListOne(MkExpCast(MkTypeName(specs, decl), MkExpBrackets(MkListOne(member->initializer->__anon1.exp)))));
1539 member->initializer->__anon1.exp = (((void *)0));
1540 FreeInitializer(member->initializer);
1541 member->initializer = (((void *)0));
1542 }
1543 if(exp)
1544 exp = MkExpOp(exp, '|', part);
1545 else
1546 exp = part;
1547 }
1548 else
1549 {
1550 char setName[1024], getName[1024];
1551
1552 DeclareProperty((struct __ecereNameSpace__ecere__com__Property *)bitMember, setName, getName);
1553 if(member->initializer && member->initializer->type == 0)
1554 {
1555 exp = MkExpCall(MkExpIdentifier(MkIdentifier(setName)), MkListOne(member->initializer->__anon1.exp));
1556 member->initializer->__anon1.exp = (((void *)0));
1557 FreeInitializer(member->initializer);
1558 member->initializer = (((void *)0));
1559 }
1560 }
1561 }
1562 }
1563 }
1564 }
1565 if(exp)
1566 exp = MkExpBrackets(MkListOne(exp));
1567 else
1568 exp = MkExpConstant("0");
1569 exp->expType = MkClassType(classSym->string);
1570 ProcessExpression(exp);
1571 ListAdd(list, exp);
1572 }
1573 else if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 3)
1574 {
1575 struct __ecereNameSpace__ecere__com__Class * _class = classSym->__anon1.registered;
1576 struct Expression * exp = (((void *)0));
1577
1578 if(inst->members && (*inst->members).first)
1579 {
1580 struct MemberInit * member = (((void *)0));
1581 struct __ecereNameSpace__ecere__com__Property * prop = (((void *)0));
1582 unsigned int found = 0;
1583
1584 for(members = (*inst->members).first; members; members = members->next)
1585 {
1586 if(members->type == 0)
1587 {
1588 for(member = (*members->__anon1.dataMembers).first; member; member = member->next)
1589 {
1590 if(member->identifiers)
1591 {
1592 struct Identifier * firstID = (*member->identifiers).first;
1593
1594 prop = __ecereNameSpace__ecere__com__eClass_FindProperty(_class, firstID->string, privateModule);
1595 if(prop)
1596 {
1597 found = 1;
1598 break;
1599 }
1600 prop = (((void *)0));
1601 }
1602 else
1603 {
1604 found = 1;
1605 break;
1606 }
1607 }
1608 }
1609 if(found)
1610 break;
1611 }
1612 if(member)
1613 {
1614 if(prop)
1615 {
1616 char setName[1024], getName[1024];
1617
1618 DeclareProperty(prop, setName, getName);
1619 if(member->initializer && member->initializer->type == 0)
1620 {
1621 exp = MkExpCall(MkExpIdentifier(MkIdentifier(setName)), MkListOne(member->initializer->__anon1.exp));
1622 member->initializer->__anon1.exp = (((void *)0));
1623 FreeInitializer(member->initializer);
1624 member->initializer = (((void *)0));
1625 }
1626 }
1627 else
1628 {
1629 ProcessInitializer(member->initializer);
1630 if(member->initializer && member->initializer->type == 0)
1631 {
1632 exp = MkExpCast(QMkClass(_class->fullName, (((void *)0))), MkExpBrackets(MkListOne(member->initializer->__anon1.exp)));
1633 member->initializer->__anon1.exp = (((void *)0));
1634 FreeInitializer(member->initializer);
1635 member->initializer = (((void *)0));
1636 }
1637 }
1638 }
1639 }
1640 if(exp)
1641 exp = MkExpBrackets(MkListOne(exp));
1642 else
1643 exp = MkExpConstant("0");
1644 ProcessExpression(exp);
1645 ListAdd(list, exp);
1646 }
1647 else if(classSym && classSym->__anon1.registered)
1648 {
1649 if(classSym->__anon1.registered->type == 1)
1650 {
1651 struct __ecereNameSpace__ecere__com__Class * _class = (((void *)0));
1652
1653 while(_class != classSym->__anon1.registered)
1654 {
1655 struct __ecereNameSpace__ecere__com__DataMember * dataMember;
1656 struct __ecereNameSpace__ecere__com__Class * lastClass = _class;
1657
1658 for(_class = classSym->__anon1.registered; _class->base != lastClass && _class->base->type != 1000; _class = _class->base)
1659 ;
1660 if(_class->structSize != _class->memberOffset)
1661 fullSet = 0;
1662 for(dataMember = _class->membersAndProperties.first; dataMember; dataMember = dataMember->next)
1663 {
1664 if(!dataMember->isProperty)
1665 {
1666 if(!dataMember->name && (dataMember->type == 1 || dataMember->type == 2))
1667 {
1668 if(!ProcessInstMembers_SimpleMemberEnsure(dataMember, inst, instExp, list, zeroOut))
1669 fullSet = 0;
1670 }
1671 else
1672 {
1673 unsigned int memberFilled = 0;
1674
1675 if(inst->members && (*inst->members).first)
1676 {
1677 struct __ecereNameSpace__ecere__com__Class * curClass = (((void *)0));
1678 struct __ecereNameSpace__ecere__com__DataMember * curMember = (((void *)0));
1679 struct __ecereNameSpace__ecere__com__DataMember * subMemberStack[256];
1680 int subMemberStackPos = 0;
1681
1682 for(members = (*inst->members).first; members; members = members->next)
1683 {
1684 if(members->type == 0 && members->__anon1.dataMembers)
1685 {
1686 struct MemberInit * member = (((void *)0));
1687
1688 for(member = (*members->__anon1.dataMembers).first; member; member = member->next)
1689 {
1690 if(member->identifiers)
1691 {
1692 struct __ecereNameSpace__ecere__com__DataMember * _subMemberStack[256];
1693 int _subMemberStackPos = 0;
1694 struct Identifier * firstID = (*member->identifiers).first;
1695 struct __ecereNameSpace__ecere__com__DataMember * thisMember = (struct __ecereNameSpace__ecere__com__DataMember *)__ecereNameSpace__ecere__com__eClass_FindProperty(classSym->__anon1.registered, firstID->string, privateModule);
1696
1697 if(!thisMember)
1698 thisMember = __ecereNameSpace__ecere__com__eClass_FindDataMember(classSym->__anon1.registered, firstID->string, privateModule, _subMemberStack, &_subMemberStackPos);
1699 if(thisMember)
1700 {
1701 if(thisMember->memberAccess == 1)
1702 {
1703 curMember = thisMember;
1704 curClass = curMember->_class;
1705 memcpy(subMemberStack, _subMemberStack, sizeof(struct __ecereNameSpace__ecere__com__DataMember *) * _subMemberStackPos);
1706 subMemberStackPos = _subMemberStackPos;
1707 }
1708 if(!firstID->next && curMember == dataMember)
1709 {
1710 memberFilled = 1;
1711 break;
1712 }
1713 }
1714 }
1715 else
1716 {
1717 __ecereNameSpace__ecere__com__eClass_FindNextMember(classSym->__anon1.registered, &curClass, &curMember, subMemberStack, &subMemberStackPos);
1718 if(curMember == dataMember)
1719 {
1720 memberFilled = 1;
1721 break;
1722 }
1723 }
1724 }
1725 if(memberFilled)
1726 break;
1727 }
1728 if(memberFilled)
1729 break;
1730 }
1731 }
1732 if(!memberFilled)
1733 {
1734 if(zeroOut)
1735 {
1736 struct Expression * instExpCopy = CopyExpression(instExp);
1737 struct Expression * memberExp;
1738 struct Expression * setExp;
1739 struct Expression * value = MkExpConstant("0");
1740
1741 memberExp = MkExpMember(instExpCopy, MkIdentifier(dataMember->name));
1742 memberExp->__anon1.member.memberType = 3;
1743 value->usage = (value->usage & ~0x1) | (((unsigned int)(1)) << 0);
1744 setExp = MkExpOp(memberExp, '=', value);
1745 value->loc = inst->loc;
1746 setExp->loc = inst->loc;
1747 FreeType(instExpCopy->expType);
1748 instExpCopy->expType = instExp->expType;
1749 if(instExp->expType)
1750 instExp->expType->refCount++;
1751 ProcessExpressionType(setExp);
1752 ProcessExpression(setExp);
1753 ListAdd(list, setExp);
1754 }
1755 fullSet = 0;
1756 }
1757 }
1758 }
1759 }
1760 }
1761 }
1762 if(inst->members && (*inst->members).first)
1763 {
1764 struct __ecereNameSpace__ecere__com__Class * curClass = (((void *)0));
1765 struct __ecereNameSpace__ecere__com__DataMember * curMember = (((void *)0));
1766 struct __ecereNameSpace__ecere__com__DataMember * subMemberStack[256];
1767 int subMemberStackPos = 0;
1768
1769 for(members = (*inst->members).first; members; members = members->next)
1770 {
1771 if(members->type == 0 && members->__anon1.dataMembers)
1772 {
1773 struct MemberInit * member = (((void *)0));
1774 struct __ecereNameSpace__ecere__com__Method * method = (((void *)0));
1775
1776 for(member = (*members->__anon1.dataMembers).first; member; member = member->next)
1777 {
1778 struct Identifier * ident = (((void *)0));
1779 struct __ecereNameSpace__ecere__com__DataMember * thisMember = (((void *)0));
1780
1781 if(member->identifiers)
1782 {
1783 struct __ecereNameSpace__ecere__com__DataMember * _subMemberStack[256];
1784 int _subMemberStackPos = 0;
1785 struct Identifier * firstID = (*member->identifiers).first;
1786
1787 thisMember = (struct __ecereNameSpace__ecere__com__DataMember *)__ecereNameSpace__ecere__com__eClass_FindProperty(classSym->__anon1.registered, firstID->string, privateModule);
1788 if(!thisMember)
1789 thisMember = __ecereNameSpace__ecere__com__eClass_FindDataMember(classSym->__anon1.registered, firstID->string, privateModule, _subMemberStack, &_subMemberStackPos);
1790 ident = firstID;
1791 if(thisMember)
1792 {
1793 if(thisMember->memberAccess == 1)
1794 {
1795 curMember = thisMember;
1796 curClass = curMember->_class;
1797 memcpy(subMemberStack, _subMemberStack, sizeof(struct __ecereNameSpace__ecere__com__DataMember *) * _subMemberStackPos);
1798 subMemberStackPos = _subMemberStackPos;
1799 }
1800 }
1801 else if(classSym->__anon1.registered->type != 1)
1802 {
1803 method = __ecereNameSpace__ecere__com__eClass_FindMethod(classSym->__anon1.registered, ident->string, privateModule);
1804 if(!method || method->type != 1)
1805 method = (((void *)0));
1806 }
1807 }
1808 else
1809 {
1810 __ecereNameSpace__ecere__com__eClass_FindNextMember(classSym->__anon1.registered, &curClass, &curMember, subMemberStack, &subMemberStackPos);
1811 thisMember = curMember;
1812 }
1813 if(instExp && (thisMember || method))
1814 {
1815 struct Expression * instExpCopy = CopyExpression(instExp);
1816 struct Expression * setExp = (((void *)0));
1817
1818 instExpCopy->tempCount = instExp->tempCount;
1819 if(!ident)
1820 ident = MkIdentifier(thisMember->name);
1821 if(ident)
1822 {
1823 struct Expression * memberExp;
1824 unsigned int freeMemberExp = 0;
1825
1826 if(thisMember && thisMember->isProperty && ((struct __ecereNameSpace__ecere__com__Property *)thisMember)->conversion)
1827 convert = 1;
1828 if(member->identifiers && (*member->identifiers).count > 1)
1829 {
1830 struct Identifier * id = (*member->identifiers).first;
1831
1832 memberExp = MkExpMember(instExpCopy, id);
1833 for(id = id->next; id; id = id->next)
1834 memberExp = MkExpMember(memberExp, id);
1835 }
1836 else
1837 memberExp = MkExpMember(instExpCopy, ident);
1838 if(member->initializer && member->initializer->type == 0 && member->initializer->__anon1.exp)
1839 {
1840 member->initializer->__anon1.exp->usage = (member->initializer->__anon1.exp->usage & ~0x1) | (((unsigned int)(1)) << 0);
1841 setExp = MkExpOp(memberExp, '=', member->initializer->__anon1.exp);
1842 member->initializer->__anon1.exp = (((void *)0));
1843 FreeInitializer(member->initializer);
1844 member->initializer = (((void *)0));
1845 }
1846 else
1847 {
1848 freeMemberExp = 1;
1849 }
1850 memberExp->loc = inst->loc;
1851 if(member->identifiers)
1852 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Clear((&*member->identifiers));
1853 if(setExp)
1854 setExp->loc = inst->loc;
1855 FreeType(instExpCopy->expType);
1856 instExpCopy->expType = instExp->expType;
1857 if(instExp->expType)
1858 instExp->expType->refCount++;
1859 if(setExp)
1860 {
1861 ProcessExpressionType(setExp);
1862 ProcessExpression(setExp);
1863 ListAdd(list, setExp);
1864 }
1865 if(freeMemberExp)
1866 FreeExpression(memberExp);
1867 }
1868 }
1869 }
1870 }
1871 }
1872 }
1873 }
1874 return fullSet || convert;
1875 }
1876
1877 extern struct ModuleImport * mainModule;
1878
1879 extern char *  __ecereNameSpace__ecere__sys__CopyString(const char *  string);
1880
1881 extern struct Specifier * MkStructOrUnion(int type, struct Identifier * id, struct __ecereNameSpace__ecere__sys__OldList * definitions);
1882
1883 extern struct Declarator * MkDeclaratorPointer(struct Pointer * pointer, struct Declarator * declarator);
1884
1885 extern struct Pointer * MkPointer(struct __ecereNameSpace__ecere__sys__OldList * qualifiers, struct Pointer * pointer);
1886
1887 extern struct InitDeclarator * MkInitDeclarator(struct Declarator * declarator, struct Initializer * initializer);
1888
1889 extern struct Declaration * MkDeclaration(struct __ecereNameSpace__ecere__sys__OldList * specifiers, struct __ecereNameSpace__ecere__sys__OldList * initDeclarators);
1890
1891 extern struct External * MkExternalDeclaration(struct Declaration * declaration);
1892
1893 extern void DeclareStruct(const char *  name, unsigned int skipNoHead);
1894
1895 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(struct __ecereNameSpace__ecere__sys__OldList * this, void *  item);
1896
1897 unsigned int __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert(struct __ecereNameSpace__ecere__sys__OldList * this, void *  prevItem, void *  item);
1898
1899 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Move(struct __ecereNameSpace__ecere__sys__OldList * this, void *  item, void *  prevItem);
1900
1901 void DeclareClass(struct Symbol * classSym, const char * className)
1902 {
1903 if(classSym && classSym->id == (((int)0x7fffffff)))
1904 {
1905 struct Declaration * decl;
1906 struct __ecereNameSpace__ecere__sys__OldList * specifiers, * declarators;
1907 struct Declarator * d;
1908
1909 if(!classSym->_import)
1910 {
1911 if(!classSym->module)
1912 classSym->module = mainModule;
1913 if(!classSym->module)
1914 return ;
1915 classSym->_import = __extension__ ({
1916 struct ClassImport * __ecereInstance1 = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_ClassImport);
1917
1918 __ecereInstance1->isRemote = classSym->__anon1.registered ? classSym->__anon1.registered->isRemote : 0, __ecereInstance1->name = __ecereNameSpace__ecere__sys__CopyString(classSym->string), __ecereInstance1;
1919 });
1920 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&classSym->module->classes, classSym->_import);
1921 }
1922 classSym->_import->itself = 1;
1923 specifiers = MkList();
1924 declarators = MkList();
1925 ListAdd(specifiers, MkSpecifier(EXTERN));
1926 ListAdd(specifiers, MkStructOrUnion(3, MkIdentifier("__ecereNameSpace__ecere__com__Class"), (((void *)0))));
1927 d = MkDeclaratorPointer(MkPointer((((void *)0)), (((void *)0))), MkDeclaratorIdentifier(MkIdentifier(className)));
1928 ListAdd(declarators, MkInitDeclarator(d, (((void *)0))));
1929 decl = MkDeclaration(specifiers, declarators);
1930 if(curExternal)
1931 {
1932 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*ast), curExternal->prev, (classSym->__anon2.__anon1.pointerExternal = MkExternalDeclaration(decl)));
1933 classSym->id = curExternal->symbol ? curExternal->symbol->idCode : 0;
1934 classSym->idCode = classSym->id;
1935 }
1936 }
1937 else if(classSym && curExternal && curExternal->symbol->idCode < classSym->id)
1938 {
1939 if(classSym->__anon2.__anon1.structExternal)
1940 DeclareStruct(classSym->string, classSym->__anon1.registered && classSym->__anon1.registered->type == 5);
1941 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Move((&*ast), classSym->__anon2.__anon1.pointerExternal, curExternal->prev);
1942 if(classSym->__anon2.__anon1.structExternal)
1943 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Move((&*ast), classSym->__anon2.__anon1.structExternal, classSym->__anon2.__anon1.pointerExternal);
1944 classSym->id = curExternal->symbol->idCode;
1945 classSym->idCode = classSym->id;
1946 }
1947 }
1948
1949 void ProcessExpressionInstPass(struct Expression * exp)
1950 {
1951 ProcessExpression(exp);
1952 }
1953
1954 extern struct Context * curContext;
1955
1956 static unsigned int ProcessBracketInst(struct Instantiation * inst, struct __ecereNameSpace__ecere__sys__OldList * list);
1957
1958 extern struct Specifier * MkSpecifierName(const char *  name);
1959
1960 extern struct Initializer * MkInitializerList(struct __ecereNameSpace__ecere__sys__OldList * list);
1961
1962 extern struct Declaration * MkDeclarationInst(struct Instantiation * inst);
1963
1964 extern struct Instantiation * MkInstantiation(struct Specifier * _class, struct Expression * exp, struct __ecereNameSpace__ecere__sys__OldList * members);
1965
1966 extern struct Specifier * CopySpecifier(struct Specifier * spec);
1967
1968 extern struct Expression * QMkExpId(const char *  id);
1969
1970 static void ProcessDeclaration(struct Declaration * decl);
1971
1972 extern char *  strcpy(char * , const char * );
1973
1974 extern struct Symbol * FindClass(const char *  name);
1975
1976 extern void FullClassNameCat(char *  output, const char *  className, unsigned int includeTemplateParams);
1977
1978 static struct Declaration * curDecl;
1979
1980 static int declTempCount;
1981
1982 extern struct Context * PushContext(void);
1983
1984 extern struct Declaration * QMkDeclaration(const char *  name, struct InitDeclarator * initDecl);
1985
1986 extern struct Initializer * MkInitializerAssignment(struct Expression * exp);
1987
1988 extern struct Statement * MkExpressionStmt(struct __ecereNameSpace__ecere__sys__OldList * expressions);
1989
1990 extern void PopContext(struct Context * ctx);
1991
1992 extern void FreeInstance(struct Instantiation * inst);
1993
1994 extern void CopyTypeInto(struct Type * type, struct Type * src);
1995
1996 extern struct Type * ProcessTypeString(const char *  string, unsigned int staticMethod);
1997
1998 extern void ProcessMethodType(struct __ecereNameSpace__ecere__com__Method * method);
1999
2000 static void ProcessStatement(struct Statement * stmt);
2001
2002 extern void CheckTemplateTypes(struct Expression * exp);
2003
2004 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove(struct __ecereNameSpace__ecere__sys__OldList * this, void *  item);
2005
2006 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Free(struct __ecereNameSpace__ecere__sys__OldList * this, void (*  freeFn)(void * ));
2007
2008 static void ProcessExpression(struct Expression * exp)
2009 {
2010 switch(exp->type)
2011 {
2012 case 0:
2013 break;
2014 case 1:
2015 {
2016 struct Instantiation * inst = exp->__anon1.instance;
2017
2018 if(inCompiler && inst->_class)
2019 {
2020 char className[1024];
2021 struct Symbol * classSym = inst->_class->__anon1.__anon1.symbol;
2022 struct Expression * instExp;
2023
2024 if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 2)
2025 {
2026 if(inst->exp)
2027 {
2028 struct __ecereNameSpace__ecere__sys__OldList list =
2029 {
2030 0
2031 };
2032
2033 ProcessInstMembers(inst, (((void *)0)), &list, 0);
2034 ProcessExpression(inst->exp);
2035 exp->type = 4;
2036 exp->__anon1.op.op = '=';
2037 exp->__anon1.op.exp1 = inst->exp;
2038 exp->__anon1.op.exp2 = list.first;
2039 inst->exp = (((void *)0));
2040 }
2041 else
2042 {
2043 struct Type * expType = exp->expType;
2044 struct Expression * prev = exp->prev, * next = exp->next;
2045 struct __ecereNameSpace__ecere__sys__OldList list =
2046 {
2047 0, 0, 0, 0, 0
2048 };
2049
2050 ProcessInstMembers(inst, (((void *)0)), &list, 0);
2051 FreeType(exp->destType);
2052 *exp = *(struct Expression *)list.first;
2053 {
2054 struct Expression * firstExp = list.first;
2055
2056 ((firstExp ? (__ecereClass_Expression->Destructor ? __ecereClass_Expression->Destructor((void *)firstExp) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(firstExp)) : 0), firstExp = 0);
2057 }
2058 FreeType(exp->destType);
2059 exp->destType = expType;
2060 exp->prev = prev;
2061 exp->next = next;
2062 }
2063 }
2064 else if(classSym && classSym->__anon1.registered && (classSym->__anon1.registered->type == 3 || classSym->__anon1.registered->type == 4))
2065 {
2066 if(inst->exp)
2067 {
2068 struct __ecereNameSpace__ecere__sys__OldList list =
2069 {
2070 0
2071 };
2072 struct Expression * e;
2073
2074 ProcessInstMembers(inst, (((void *)0)), &list, 0);
2075 ProcessExpression(inst->exp);
2076 exp->type = 4;
2077 exp->__anon1.op.op = '=';
2078 exp->__anon1.op.exp1 = inst->exp;
2079 exp->__anon1.op.exp2 = list.first;
2080 inst->exp = (((void *)0));
2081 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove(&list, list.first);
2082 while((e = list.first))
2083 {
2084 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove(&list, e);
2085 FreeExpression(e);
2086 }
2087 }
2088 else
2089 {
2090 struct Expression * prev = exp->prev, * next = exp->next;
2091 struct Type * expType = exp->expType;
2092 struct __ecereNameSpace__ecere__sys__OldList list =
2093 {
2094 0
2095 };
2096
2097 ProcessInstMembers(inst, (((void *)0)), &list, 0);
2098 if(list.first)
2099 {
2100 struct Expression * e = list.first;
2101
2102 FreeType(exp->destType);
2103 *exp = *e;
2104 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove(&list, e);
2105 ((e ? (__ecereClass_Expression->Destructor ? __ecereClass_Expression->Destructor((void *)e) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(e)) : 0), e = 0);
2106 exp->expType = expType;
2107 exp->prev = prev;
2108 exp->next = next;
2109 while((e = list.first))
2110 {
2111 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove(&list, e);
2112 FreeExpression(e);
2113 }
2114 }
2115 else
2116 {
2117 exp->type = 2;
2118 exp->__anon1.__anon1.constant = __ecereNameSpace__ecere__sys__CopyString("0");
2119 }
2120 }
2121 }
2122 else if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 1)
2123 {
2124 if(inst->exp)
2125 {
2126 exp->type = 5;
2127 exp->__anon1.list = MkList();
2128 ProcessInstMembers(inst, inst->exp, exp->__anon1.list, 0);
2129 ProcessExpression(inst->exp);
2130 if(!(*exp->__anon1.list).count)
2131 {
2132 exp->type = 16;
2133 (__ecereNameSpace__ecere__com__eSystem_Delete(exp->__anon1.list), exp->__anon1.list = 0);
2134 }
2135 }
2136 else
2137 {
2138 struct Declaration * decl;
2139 struct Declaration * dummyDecl;
2140
2141 {
2142 dummyDecl = MkDeclaration((((void *)0)), (((void *)0)));
2143 if(!curCompound->__anon1.compound.declarations)
2144 curCompound->__anon1.compound.declarations = MkList();
2145 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*curCompound->__anon1.compound.declarations), (((void *)0)), dummyDecl);
2146 sprintf(className, "__simpleStruct%d", curContext->simpleID++);
2147 {
2148 struct __ecereNameSpace__ecere__sys__OldList * list = MkList();
2149
2150 if(inst->isConstant && ProcessBracketInst(inst, list))
2151 {
2152 decl = MkDeclaration(MkList(), MkList());
2153 ListAdd(decl->__anon1.__anon1.specifiers, MkSpecifierName(inst->_class->__anon1.__anon1.name));
2154 ListAdd(decl->__anon1.__anon1.declarators, MkInitDeclarator(MkDeclaratorIdentifier(MkIdentifier(className)), MkInitializerList(list)));
2155 exp->type = 0;
2156 exp->__anon1.__anon1.identifier = MkIdentifier(className);
2157 }
2158 else
2159 {
2160 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Free((&*list), (((void *)0)));
2161 (__ecereNameSpace__ecere__com__eSystem_Delete(list), list = 0);
2162 decl = MkDeclarationInst(MkInstantiation(CopySpecifier(inst->_class), MkExpIdentifier(MkIdentifier(className)), (((void *)0))));
2163 exp->type = 5;
2164 exp->__anon1.list = MkList();
2165 instExp = QMkExpId(className);
2166 instExp->loc = exp->loc;
2167 instExp->expType = MkClassType(inst->_class->__anon1.__anon1.name);
2168 decl->__anon1.inst->fullSet = ProcessInstMembers(inst, instExp, exp->__anon1.list, 0);
2169 ListAdd(exp->__anon1.list, instExp);
2170 }
2171 }
2172 FreeType(exp->expType);
2173 exp->expType = MkClassType(inst->_class->__anon1.__anon1.name);
2174 {
2175 void * prev = dummyDecl->prev, * next = dummyDecl->next;
2176
2177 *dummyDecl = *decl;
2178 dummyDecl->prev = prev;
2179 dummyDecl->next = next;
2180 ((decl ? (__ecereClass_Declaration->Destructor ? __ecereClass_Declaration->Destructor((void *)decl) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(decl)) : 0), decl = 0);
2181 decl = dummyDecl;
2182 }
2183 ProcessDeclaration(decl);
2184 }
2185 }
2186 }
2187 else
2188 {
2189 struct Expression * newCall;
2190
2191 if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 5 && (classSym->__anon1.registered->templateClass ? classSym->__anon1.registered->templateClass->fixed : classSym->__anon1.registered->fixed))
2192 {
2193 char size[256];
2194
2195 sprintf(size, "%d", classSym->__anon1.registered->templateClass ? classSym->__anon1.registered->templateClass->structSize : classSym->__anon1.registered->structSize);
2196 newCall = MkExpCall(QMkExpId("ecere::com::eSystem_New0"), MkListOne(MkExpConstant(size)));
2197 newCall->byReference = 1;
2198 }
2199 else
2200 {
2201 strcpy(className, "__ecereClass_");
2202 if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 5 && classSym->__anon1.registered->templateClass)
2203 {
2204 classSym = FindClass(classSym->__anon1.registered->templateClass->fullName);
2205 FullClassNameCat(className, classSym->string, 1);
2206 }
2207 else
2208 FullClassNameCat(className, inst->_class->__anon1.__anon1.name, 1);
2209 DeclareClass(classSym, className);
2210 newCall = MkExpCall(QMkExpId("ecere::com::eInstance_New"), MkListOne(QMkExpId(className)));
2211 newCall->usage = exp->usage;
2212 ProcessExpressionType(newCall);
2213 newCall->expType->passAsTemplate = exp->expType->passAsTemplate;
2214 newCall->byReference = 1;
2215 }
2216 if(inst->exp)
2217 {
2218 if(inst->members && (*inst->members).first)
2219 {
2220 exp->type = 5;
2221 exp->__anon1.list = MkList();
2222 if(!inst->built)
2223 {
2224 ListAdd(exp->__anon1.list, MkExpOp(inst->exp, '=', newCall));
2225 }
2226 else
2227 FreeExpression(newCall);
2228 ProcessInstMembers(inst, inst->exp, exp->__anon1.list, 0);
2229 if(inst->built)
2230 FreeExpression(inst->exp);
2231 }
2232 else
2233 {
2234 exp->type = 4;
2235 exp->__anon1.op.op = '=';
2236 exp->__anon1.op.exp1 = inst->exp;
2237 exp->__anon1.op.exp2 = newCall;
2238 ProcessExpression(inst->exp);
2239 }
2240 inst->exp = (((void *)0));
2241 }
2242 else
2243 {
2244 if(inst->members && (*inst->members).first)
2245 {
2246 int __simpleStruct0;
2247 char ecereTemp[100];
2248 struct MembersInit * members;
2249 int tempCount = exp->tempCount;
2250 struct __ecereNameSpace__ecere__sys__OldList * expList;
2251
2252 for(members = (*inst->members).first; members; members = members->next)
2253 {
2254 if(members->type == 0 && members->__anon1.dataMembers)
2255 {
2256 struct MemberInit * member;
2257
2258 for(member = (*members->__anon1.dataMembers).first; member; member = member->next)
2259 {
2260 if(member->initializer && member->initializer->type == 0)
2261 {
2262 int __simpleStruct0;
2263
2264 ProcessMemberInitData(member);
2265 tempCount = (__simpleStruct0 = member->initializer->__anon1.exp->tempCount, (tempCount > __simpleStruct0) ? tempCount : __simpleStruct0);
2266 }
2267 }
2268 }
2269 }
2270 if(curDecl)
2271 tempCount = ((tempCount > declTempCount) ? tempCount : declTempCount);
2272 tempCount++;
2273 curExternal->__anon1.function->tempCount = (__simpleStruct0 = curExternal->__anon1.function->tempCount, (__simpleStruct0 > tempCount) ? __simpleStruct0 : tempCount);
2274 sprintf(ecereTemp, "__ecereInstance%d", tempCount);
2275 exp->type = 23;
2276 exp->__anon1.compound = MkCompoundStmt((((void *)0)), (((void *)0)));
2277 exp->__anon1.compound->__anon1.compound.context = PushContext();
2278 exp->__anon1.compound->__anon1.compound.context->simpleID = exp->__anon1.compound->__anon1.compound.context->parent->simpleID;
2279 exp->__anon1.compound->__anon1.compound.declarations = MkListOne(QMkDeclaration(inst->_class->__anon1.__anon1.name, MkInitDeclarator(MkDeclaratorIdentifier(MkIdentifier(ecereTemp)), MkInitializerAssignment(newCall))));
2280 exp->__anon1.compound->__anon1.compound.statements = MkListOne(MkExpressionStmt((expList = MkList())));
2281 instExp = QMkExpId(ecereTemp);
2282 instExp->tempCount = tempCount;
2283 instExp->expType = MkClassType(inst->_class->__anon1.__anon1.name);
2284 instExp->byReference = 1;
2285 ProcessInstMembers(inst, instExp, expList, 0);
2286 FreeExpression(instExp);
2287 if(exp->usage)
2288 {
2289 struct Expression * tmpExp = QMkExpId(ecereTemp);
2290
2291 tmpExp->byReference = 1;
2292 ListAdd(expList, tmpExp);
2293 }
2294 exp->tempCount = tempCount;
2295 if(curDecl)
2296 declTempCount = ((declTempCount > tempCount) ? declTempCount : tempCount);
2297 PopContext(exp->__anon1.compound->__anon1.compound.context);
2298 }
2299 else
2300 {
2301 struct Expression * prev = exp->prev, * next = exp->next;
2302
2303 FreeType(newCall->destType);
2304 FreeType(newCall->expType);
2305 newCall->destType = exp->destType;
2306 newCall->expType = exp->expType;
2307 *exp = *newCall;
2308 exp->prev = prev;
2309 exp->next = next;
2310 ((newCall ? (__ecereClass_Expression->Destructor ? __ecereClass_Expression->Destructor((void *)newCall) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(newCall)) : 0), newCall = 0);
2311 }
2312 }
2313 }
2314 if(exp->type != 1)
2315 FreeInstance(inst);
2316 }
2317 else
2318 ProcessInstantiation(inst);
2319 break;
2320 }
2321 case 2:
2322 break;
2323 case 3:
2324 break;
2325 case 13:
2326 case 26:
2327 ProcessExpression(exp->__anon1._new.size);
2328 break;
2329 case 14:
2330 case 27:
2331 ProcessExpression(exp->__anon1._renew.size);
2332 ProcessExpression(exp->__anon1._renew.exp);
2333 break;
2334 case 4:
2335 {
2336 switch(exp->__anon1.op.op)
2337 {
2338 case '=':
2339 if(exp->__anon1.op.exp2)
2340 exp->__anon1.op.exp2->usage = (exp->__anon1.op.exp2->usage & ~0x1) | (((unsigned int)(1)) << 0);
2341 if(exp->__anon1.op.exp1)
2342 exp->__anon1.op.exp1->usage = (exp->__anon1.op.exp1->usage & ~0x2) | (((unsigned int)(1)) << 1);
2343 break;
2344 case MUL_ASSIGN:
2345 case DIV_ASSIGN:
2346 case MOD_ASSIGN:
2347 case ADD_ASSIGN:
2348 case SUB_ASSIGN:
2349 case LEFT_ASSIGN:
2350 case RIGHT_ASSIGN:
2351 case AND_ASSIGN:
2352 case XOR_ASSIGN:
2353 case OR_ASSIGN:
2354 if(exp->__anon1.op.exp2)
2355 exp->__anon1.op.exp2->usage = (exp->__anon1.op.exp2->usage & ~0x1) | (((unsigned int)(1)) << 0);
2356 if(exp->__anon1.op.exp1)
2357 exp->__anon1.op.exp1->usage = (exp->__anon1.op.exp1->usage & ~0x2) | (((unsigned int)(1)) << 1);
2358 break;
2359 case INC_OP:
2360 case DEC_OP:
2361 if(exp->__anon1.op.exp1)
2362 exp->__anon1.op.exp1->usage = (exp->__anon1.op.exp1->usage & ~0x2) | (((unsigned int)(1)) << 1);
2363 case '&':
2364 if(exp->__anon1.op.exp1 && exp->__anon1.op.exp2)
2365 {
2366 exp->__anon1.op.exp1->usage = (exp->__anon1.op.exp1->usage & ~0x1) | (((unsigned int)(1)) << 0);
2367 exp->__anon1.op.exp2->usage = (exp->__anon1.op.exp2->usage & ~0x1) | (((unsigned int)(1)) << 0);
2368 }
2369 break;
2370 case '*':
2371 case '+':
2372 case '-':
2373 if(exp->__anon1.op.exp1)
2374 {
2375 exp->__anon1.op.exp1->usage = (exp->__anon1.op.exp1->usage & ~0x1) | (((unsigned int)(1)) << 0);
2376 }
2377 case '~':
2378 case '!':
2379 if(exp->__anon1.op.exp2)
2380 exp->__anon1.op.exp2->usage = (exp->__anon1.op.exp2->usage & ~0x1) | (((unsigned int)(1)) << 0);
2381 break;
2382 case '/':
2383 case '%':
2384 case LEFT_OP:
2385 case RIGHT_OP:
2386 case '<':
2387 case '>':
2388 case LE_OP:
2389 case GE_OP:
2390 case EQ_OP:
2391 case NE_OP:
2392 case '|':
2393 case '^':
2394 case AND_OP:
2395 case OR_OP:
2396 if(exp->__anon1.op.exp1)
2397 exp->__anon1.op.exp1->usage = (exp->__anon1.op.exp1->usage & ~0x1) | (((unsigned int)(1)) << 0);
2398 if(exp->__anon1.op.exp2)
2399 exp->__anon1.op.exp2->usage = (exp->__anon1.op.exp2->usage & ~0x1) | (((unsigned int)(1)) << 0);
2400 break;
2401 }
2402 if(exp->__anon1.op.exp1)
2403 {
2404 if(exp->__anon1.op.exp1 && exp->__anon1.op.exp2 && exp->__anon1.op.exp1->destType && exp->__anon1.op.exp1->destType->passAsTemplate && exp->__anon1.op.exp1->expType && !exp->__anon1.op.exp1->expType->passAsTemplate && !((unsigned int)((exp->__anon1.op.exp1->usage & 0x2) >> 1)))
2405 {
2406 struct Type * type = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Type);
2407
2408 CopyTypeInto(type, exp->__anon1.op.exp1->destType);
2409 type->passAsTemplate = 0;
2410 FreeType(exp->__anon1.op.exp1->destType);
2411 exp->__anon1.op.exp1->destType = type;
2412 }
2413 ProcessExpression(exp->__anon1.op.exp1);
2414 }
2415 if(exp->__anon1.op.exp2)
2416 {
2417 if(exp->__anon1.op.exp1 && exp->__anon1.op.exp2 && exp->__anon1.op.exp2->destType && exp->__anon1.op.exp2->destType->passAsTemplate && exp->__anon1.op.exp2->expType && !exp->__anon1.op.exp2->expType->passAsTemplate && !((unsigned int)((exp->__anon1.op.exp1->usage & 0x2) >> 1)))
2418 {
2419 struct Type * type = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Type);
2420
2421 CopyTypeInto(type, exp->__anon1.op.exp2->destType);
2422 type->passAsTemplate = 0;
2423 FreeType(exp->__anon1.op.exp2->destType);
2424 exp->__anon1.op.exp2->destType = type;
2425 }
2426 if(exp->__anon1.op.exp1)
2427 exp->__anon1.op.exp2->tempCount = exp->__anon1.op.exp1->tempCount;
2428 ProcessExpression(exp->__anon1.op.exp2);
2429 }
2430 break;
2431 }
2432 case 32:
2433 case 5:
2434 {
2435 struct Expression * e;
2436
2437 for(e = (*exp->__anon1.list).first; e; e = e->next)
2438 {
2439 int __simpleStruct2, __simpleStruct3;
2440 int __simpleStruct0, __simpleStruct1;
2441
2442 e->tempCount = (__simpleStruct0 = e->tempCount, __simpleStruct1 = exp->tempCount, (__simpleStruct0 > __simpleStruct1) ? __simpleStruct0 : __simpleStruct1);
2443 if(!e->next)
2444 {
2445 e->usage |= (exp->usage & ((((unsigned int)(1)) | (((unsigned int)(1)) << 2))));
2446 }
2447 ProcessExpression(e);
2448 exp->tempCount = (__simpleStruct2 = exp->tempCount, __simpleStruct3 = e->tempCount, (__simpleStruct2 > __simpleStruct3) ? __simpleStruct2 : __simpleStruct3);
2449 }
2450 break;
2451 }
2452 case 6:
2453 {
2454 struct Expression * e;
2455
2456 exp->__anon1.index.exp->usage = (exp->__anon1.index.exp->usage & ~0x1) | (((unsigned int)(1)) << 0);
2457 ProcessExpression(exp->__anon1.index.exp);
2458 for(e = (*exp->__anon1.index.index).first; e; e = e->next)
2459 {
2460 if(!e->next)
2461 e->usage = (e->usage & ~0x1) | (((unsigned int)(1)) << 0);
2462 ProcessExpression(e);
2463 }
2464 exp->tempCount = exp->__anon1.index.exp->tempCount;
2465 break;
2466 }
2467 case 7:
2468 {
2469 struct Expression * e;
2470
2471 ProcessExpression(exp->__anon1.call.exp);
2472 if(exp->__anon1.call.arguments)
2473 {
2474 for(e = (*exp->__anon1.call.arguments).first; e; e = e->next)
2475 {
2476 e->usage = (e->usage & ~0x1) | (((unsigned int)(1)) << 0);
2477 e->usage = (e->usage & ~0x4) | (((unsigned int)(1)) << 2);
2478 ProcessExpression(e);
2479 }
2480 }
2481 break;
2482 }
2483 case 8:
2484 {
2485 exp->__anon1.member.exp->usage = (exp->__anon1.member.exp->usage & ~0x1) | (((unsigned int)(1)) << 0);
2486 ProcessExpression(exp->__anon1.member.exp);
2487 if(!exp->__anon1.member.memberType)
2488 {
2489 struct Type * type = exp->__anon1.member.exp->expType;
2490
2491 if((type && type->kind == 8 && exp->__anon1.member.member))
2492 {
2493 struct __ecereNameSpace__ecere__com__Class * _class = (exp->__anon1.member.member->_class && exp->__anon1.member.member->classSym) ? exp->__anon1.member.member->classSym->__anon1.registered : (type->__anon1._class ? type->__anon1._class->__anon1.registered : (((void *)0)));
2494 struct __ecereNameSpace__ecere__com__Property * prop = (((void *)0));
2495 struct __ecereNameSpace__ecere__com__Method * method = (((void *)0));
2496 struct __ecereNameSpace__ecere__com__DataMember * member = (((void *)0));
2497 struct __ecereNameSpace__ecere__com__Property * revConvert = (((void *)0));
2498
2499 if(exp->__anon1.member.thisPtr)
2500 {
2501 member = __ecereNameSpace__ecere__com__eClass_FindDataMember(_class, exp->__anon1.member.member->string, privateModule, (((void *)0)), (((void *)0)));
2502 if(!member)
2503 prop = __ecereNameSpace__ecere__com__eClass_FindProperty(_class, exp->__anon1.member.member->string, privateModule);
2504 }
2505 else
2506 {
2507 prop = __ecereNameSpace__ecere__com__eClass_FindProperty(_class, exp->__anon1.member.member->string, (((void *)0)));
2508 if(!prop)
2509 member = __ecereNameSpace__ecere__com__eClass_FindDataMember(_class, exp->__anon1.member.member->string, (((void *)0)), (((void *)0)), (((void *)0)));
2510 if(!prop && !member)
2511 {
2512 method = __ecereNameSpace__ecere__com__eClass_FindMethod(_class, exp->__anon1.member.member->string, (((void *)0)));
2513 if(!method)
2514 {
2515 prop = __ecereNameSpace__ecere__com__eClass_FindProperty(_class, exp->__anon1.member.member->string, privateModule);
2516 if(!prop)
2517 member = __ecereNameSpace__ecere__com__eClass_FindDataMember(_class, exp->__anon1.member.member->string, privateModule, (((void *)0)), (((void *)0)));
2518 }
2519 }
2520 }
2521 if(!prop && !member && !method)
2522 method = __ecereNameSpace__ecere__com__eClass_FindMethod(_class, exp->__anon1.member.member->string, privateModule);
2523 if(!prop && !member && !method)
2524 {
2525 struct Symbol * classSym = FindClass(exp->__anon1.member.member->string);
2526
2527 if(classSym)
2528 {
2529 struct __ecereNameSpace__ecere__com__Class * convertClass = classSym->__anon1.registered;
2530
2531 if(convertClass)
2532 revConvert = __ecereNameSpace__ecere__com__eClass_FindProperty(convertClass, _class->fullName, privateModule);
2533 }
2534 }
2535 if(prop)
2536 {
2537 exp->__anon1.member.memberType = 1;
2538 if(!prop->dataType)
2539 prop->dataType = ProcessTypeString(prop->dataTypeString, 0);
2540 FreeType(exp->expType);
2541 exp->expType = prop->dataType;
2542 if(prop->dataType)
2543 prop->dataType->refCount++;
2544 }
2545 else if(method)
2546 {
2547 exp->__anon1.member.memberType = 2;
2548 if(!method->dataType)
2549 ProcessMethodType(method);
2550 FreeType(exp->expType);
2551 exp->expType = method->dataType;
2552 if(method->dataType)
2553 method->dataType->refCount++;
2554 }
2555 else if(member)
2556 {
2557 exp->__anon1.member.memberType = 3;
2558 DeclareStruct(_class->fullName, 0);
2559 if(!member->dataType)
2560 member->dataType = ProcessTypeString(member->dataTypeString, 0);
2561 FreeType(exp->expType);
2562 exp->expType = member->dataType;
2563 if(member->dataType)
2564 member->dataType->refCount++;
2565 }
2566 else if(revConvert)
2567 {
2568 exp->__anon1.member.memberType = 4;
2569 FreeType(exp->expType);
2570 exp->expType = MkClassType(revConvert->_class->fullName);
2571 }
2572 }
2573 }
2574 break;
2575 }
2576 case 10:
2577 break;
2578 case 11:
2579 {
2580 exp->__anon1.cast.exp->usage |= exp->usage;
2581 ProcessExpression(exp->__anon1.cast.exp);
2582 break;
2583 }
2584 case 12:
2585 {
2586 struct Expression * e;
2587
2588 if(((unsigned int)((exp->usage & 0x1) >> 0)))
2589 exp->__anon1.cond.cond->usage = (exp->__anon1.cond.cond->usage & ~0x1) | (((unsigned int)(1)) << 0);
2590 ProcessExpression(exp->__anon1.cond.cond);
2591 for(e = (*exp->__anon1.cond.exp).first; e; e = e->next)
2592 {
2593 if(!e->next && ((unsigned int)((exp->usage & 0x1) >> 0)))
2594 e->usage = (e->usage & ~0x1) | (((unsigned int)(1)) << 0);
2595 ProcessExpression(e);
2596 }
2597 if(exp->__anon1.cond.elseExp)
2598 {
2599 if(((unsigned int)((exp->usage & 0x1) >> 0)))
2600 exp->__anon1.cond.elseExp->usage = (exp->__anon1.cond.elseExp->usage & ~0x1) | (((unsigned int)(1)) << 0);
2601 ProcessExpression(exp->__anon1.cond.elseExp);
2602 }
2603 break;
2604 }
2605 case 23:
2606 {
2607 if(exp->__anon1.compound->__anon1.compound.statements && ((struct Statement *)(*exp->__anon1.compound->__anon1.compound.statements).last)->type == 3 && ((struct Statement *)(*exp->__anon1.compound->__anon1.compound.statements).last)->__anon1.expressions && (*((struct Statement *)(*exp->__anon1.compound->__anon1.compound.statements).last)->__anon1.expressions).last)
2608 {
2609 ((struct Expression *)(*((struct Statement *)(*exp->__anon1.compound->__anon1.compound.statements).last)->__anon1.expressions).last)->usage = exp->usage;
2610 }
2611 ProcessStatement(exp->__anon1.compound);
2612 break;
2613 }
2614 case 34:
2615 {
2616 ProcessExpression(exp->__anon1.vaArg.exp);
2617 break;
2618 }
2619 case 33:
2620 {
2621 ProcessInitializer(exp->__anon1.initializer.initializer);
2622 break;
2623 }
2624 }
2625 CheckTemplateTypes(exp);
2626 }
2627
2628 static void ProcessInitializer(struct Initializer * init)
2629 {
2630 switch(init->type)
2631 {
2632 case 0:
2633 init->__anon1.exp->usage = (init->__anon1.exp->usage & ~0x1) | (((unsigned int)(1)) << 0);
2634 ProcessExpression(init->__anon1.exp);
2635 break;
2636 case 1:
2637 {
2638 struct Initializer * i;
2639
2640 for(i = (*init->__anon1.list).first; i; i = i->next)
2641 ProcessInitializer(i);
2642 break;
2643 }
2644 }
2645 }
2646
2647 static void ProcessSpecifier(struct Specifier * spec)
2648 {
2649 switch(spec->type)
2650 {
2651 case 0:
2652 break;
2653 case 1:
2654 {
2655 break;
2656 }
2657 case 2:
2658 {
2659 struct Enumerator * e;
2660
2661 if(spec->__anon1.__anon2.list)
2662 {
2663 for(e = (*spec->__anon1.__anon2.list).first; e; e = e->next)
2664 {
2665 if(e->exp)
2666 ProcessExpression(e->exp);
2667 }
2668 }
2669 break;
2670 }
2671 case 3:
2672 case 4:
2673 {
2674 if(spec->__anon1.__anon2.definitions)
2675 {
2676 struct ClassDef * def;
2677
2678 for(def = (*spec->__anon1.__anon2.definitions).first; def; def = def->next)
2679 {
2680 if(def->type == 2 && def->__anon1.decl && def->__anon1.decl->type == 0)
2681 ProcessDeclaration(def->__anon1.decl);
2682 }
2683 }
2684 break;
2685 }
2686 }
2687 }
2688
2689 extern void FreeList(struct __ecereNameSpace__ecere__sys__OldList * list, void (*  FreeFunction)(void * ));
2690
2691 extern struct Specifier * _MkSpecifierName(const char *  name, struct Symbol * symbol, struct __ecereNameSpace__ecere__sys__OldList * templateArgs);
2692
2693 extern struct Identifier * CopyIdentifier(struct Identifier * id);
2694
2695 extern struct MemberInit * MkMemberInit(struct __ecereNameSpace__ecere__sys__OldList * ids, struct Initializer * initializer);
2696
2697 extern int strcmp(const char * , const char * );
2698
2699 extern struct Expression * MkExpInstance(struct Instantiation * inst);
2700
2701 extern struct MembersInit * MkMembersInitList(struct __ecereNameSpace__ecere__sys__OldList * dataMembers);
2702
2703 static unsigned int ProcessBracketInst_DataMember(struct __ecereNameSpace__ecere__com__DataMember * parentMember, struct Instantiation * inst, struct __ecereNameSpace__ecere__sys__OldList * list, struct __ecereNameSpace__ecere__com__DataMember * namedParentMember, unsigned int parentMemberSet)
2704 {
2705 struct Symbol * classSym = inst->_class->__anon1.__anon1.symbol;
2706 struct __ecereNameSpace__ecere__com__DataMember * dataMember = (((void *)0));
2707 unsigned int someMemberSet = 0;
2708 int anonID = 1;
2709
2710 for(dataMember = parentMember->members.first; dataMember; dataMember = dataMember->next)
2711 {
2712 struct MembersInit * members;
2713 struct MemberInit * member = (((void *)0));
2714
2715 if(!dataMember->name && (dataMember->type == 1 || dataMember->type == 2))
2716 {
2717 struct __ecereNameSpace__ecere__sys__OldList * subList = MkList();
2718
2719 if(!ProcessBracketInst_DataMember(dataMember, inst, subList ? subList : list, dataMember->name ? dataMember : namedParentMember, someMemberSet || parentMemberSet || dataMember->prev))
2720 {
2721 if(subList)
2722 FreeList(subList, (void *)(FreeInitializer));
2723 return 0;
2724 }
2725 if(subList && (*subList).count)
2726 {
2727 struct Initializer * init = MkInitializerList(subList);
2728 char id[100];
2729
2730 sprintf(id, "__anon%d", anonID);
2731 init->id = MkIdentifier(id);
2732 ListAdd(list, init);
2733 someMemberSet = 1;
2734 }
2735 else
2736 {
2737 if(list->count)
2738 someMemberSet = 1;
2739 (__ecereNameSpace__ecere__com__eSystem_Delete(subList), subList = 0);
2740 }
2741 anonID++;
2742 }
2743 else
2744 {
2745 struct __ecereNameSpace__ecere__com__Class * curClass = (((void *)0));
2746 struct __ecereNameSpace__ecere__com__DataMember * curMember = (((void *)0));
2747 struct __ecereNameSpace__ecere__com__DataMember * subMemberStack[256];
2748 int subMemberStackPos = 0;
2749 unsigned int found = 0;
2750
2751 if(inst->members && (*inst->members).first)
2752 {
2753 for(members = (*inst->members).first; members; members = members->next)
2754 {
2755 if(members->type == 0)
2756 {
2757 for(member = (*members->__anon1.dataMembers).first; member; member = member->next)
2758 {
2759 if(member->identifiers)
2760 {
2761 struct Identifier * firstID = (*member->identifiers).first;
2762 struct __ecereNameSpace__ecere__com__DataMember * _subMemberStack[256];
2763 int _subMemberStackPos = 0;
2764 struct __ecereNameSpace__ecere__com__DataMember * thisMember;
2765
2766 thisMember = firstID ? (struct __ecereNameSpace__ecere__com__DataMember *)__ecereNameSpace__ecere__com__eClass_FindProperty(classSym->__anon1.registered, firstID->string, privateModule) : (((void *)0));
2767 if(!thisMember && firstID)
2768 thisMember = __ecereNameSpace__ecere__com__eClass_FindDataMember(classSym->__anon1.registered, firstID->string, privateModule, _subMemberStack, &_subMemberStackPos);
2769 if(thisMember && thisMember->memberAccess == 1)
2770 {
2771 curMember = thisMember;
2772 curClass = curMember->_class;
2773 memcpy(subMemberStack, _subMemberStack, sizeof(struct __ecereNameSpace__ecere__com__DataMember *) * _subMemberStackPos);
2774 subMemberStackPos = _subMemberStackPos;
2775 }
2776 if(dataMember == thisMember)
2777 {
2778 if((*member->identifiers).count > 1 && member->initializer && member->initializer->type == 0)
2779 {
2780 struct __ecereNameSpace__ecere__sys__OldList * partList = MkList();
2781 struct Symbol * symbol;
2782 struct Specifier * spec;
2783 struct MembersInit * nextMembers;
2784 struct MemberInit * next = member->next;
2785
2786 if(!dataMember->dataType)
2787 dataMember->dataType = ProcessTypeString(dataMember->dataTypeString, 0);
2788 symbol = (dataMember->dataType && dataMember->dataType->kind == 8) ? dataMember->dataType->__anon1._class : (((void *)0));
2789 spec = _MkSpecifierName(dataMember->dataTypeString, symbol, (((void *)0)));
2790 {
2791 struct __ecereNameSpace__ecere__sys__OldList * identifiers = MkList();
2792 struct Identifier * id;
2793
2794 for(id = ((struct Identifier *)(*member->identifiers).first)->next; id; id = id->next)
2795 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*identifiers), CopyIdentifier(id));
2796 ListAdd(partList, MkMemberInit(identifiers, MkInitializerAssignment(member->initializer->__anon1.exp)));
2797 }
2798 for(nextMembers = members; nextMembers; nextMembers = nextMembers->next)
2799 {
2800 if(!nextMembers->__anon1.dataMembers)
2801 continue;
2802 if(members != nextMembers)
2803 next = (*nextMembers->__anon1.dataMembers).first;
2804 if(nextMembers->type == 0)
2805 {
2806 struct MemberInit * nextMember;
2807
2808 for(nextMember = next; nextMember; nextMember = next, next = nextMember ? nextMember->next : (((void *)0)))
2809 {
2810 struct Identifier * nextID = (*nextMember->identifiers).first;
2811
2812 if(nextMember->identifiers && (*nextMember->identifiers).count > 1 && !strcmp(firstID->string, nextID->string))
2813 {
2814 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*nextMembers->__anon1.dataMembers), nextMember);
2815 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*nextMember->identifiers), nextID);
2816 ListAdd(partList, nextMember);
2817 }
2818 }
2819 }
2820 }
2821 member->initializer->__anon1.exp = MkExpInstance(MkInstantiation(spec, (((void *)0)), MkListOne(MkMembersInitList(partList))));
2822 }
2823 found = 1;
2824 break;
2825 }
2826 }
2827 else
2828 {
2829 __ecereNameSpace__ecere__com__eClass_FindNextMember(classSym->__anon1.registered, &curClass, &curMember, subMemberStack, &subMemberStackPos);
2830 if(curMember == dataMember)
2831 {
2832 found = 1;
2833 break;
2834 }
2835 }
2836 }
2837 }
2838 if(found)
2839 break;
2840 }
2841 }
2842 if(member && member->initializer && member->initializer->type == 0)
2843 {
2844 struct Initializer * init = (init = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Initializer), init->loc = yylloc, init);
2845
2846 if(namedParentMember->type == 1 && dataMember->name)
2847 init->id = MkIdentifier(dataMember->name);
2848 if(member->initializer->__anon1.exp->type == 1 && member->initializer->__anon1.exp->expType && member->initializer->__anon1.exp->expType->__anon1._class->__anon1.registered->type == 1)
2849 {
2850 struct __ecereNameSpace__ecere__sys__OldList * subList = MkList();
2851
2852 ProcessBracketInst(member->initializer->__anon1.exp->__anon1.instance, subList);
2853 FreeExpression(member->initializer->__anon1.exp);
2854 if((*subList).count)
2855 {
2856 init->type = 1;
2857 init->__anon1.list = subList;
2858 }
2859 else
2860 {
2861 FreeInitializer(init);
2862 init = (((void *)0));
2863 }
2864 }
2865 else
2866 {
2867 member->initializer->__anon1.exp->usage = (member->initializer->__anon1.exp->usage & ~0x1) | (((unsigned int)(1)) << 0);
2868 ProcessExpression(member->initializer->__anon1.exp);
2869 init->type = 0;
2870 init->__anon1.exp = member->initializer->__anon1.exp;
2871 }
2872 if(init)
2873 ListAdd(list, init);
2874 member->initializer->__anon1.exp = (((void *)0));
2875 FreeInitializer(member->initializer);
2876 member->initializer = (((void *)0));
2877 someMemberSet = 1;
2878 }
2879 else if(member && member->initializer && member->initializer->type == 1)
2880 {
2881 if(namedParentMember->type == 1 && dataMember->name)
2882 member->initializer->id = MkIdentifier(dataMember->name);
2883 ListAdd(list, member->initializer);
2884 member->initializer = (((void *)0));
2885 someMemberSet = 1;
2886 }
2887 else if(dataMember && dataMember->dataTypeString && parentMember->type != 1 && namedParentMember->type != 1)
2888 {
2889 struct Symbol * classSym;
2890 struct Initializer * init = (init = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Initializer), init->loc = yylloc, init);
2891
2892 if(namedParentMember->type == 1 && dataMember->name)
2893 init->id = MkIdentifier(dataMember->name);
2894 if(!dataMember->dataType)
2895 dataMember->dataType = ProcessTypeString(dataMember->dataTypeString, 0);
2896 classSym = (dataMember->dataType && dataMember->dataType->kind == 8) ? dataMember->dataType->__anon1._class : (((void *)0));
2897 if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 1)
2898 {
2899 struct __ecereNameSpace__ecere__sys__OldList * subList = MkList();
2900 struct Specifier * spec = _MkSpecifierName(dataMember->dataTypeString, classSym, (((void *)0)));
2901 struct Instantiation * inst = MkInstantiation(spec, (((void *)0)), (((void *)0)));
2902
2903 ProcessBracketInst(inst, subList);
2904 FreeInstance(inst);
2905 if((*subList).count)
2906 {
2907 init->type = 1;
2908 init->__anon1.list = subList;
2909 }
2910 else
2911 {
2912 FreeInitializer(init);
2913 init = (((void *)0));
2914 }
2915 }
2916 else
2917 {
2918 init->type = 0;
2919 init->__anon1.exp = MkExpConstant("0");
2920 }
2921 someMemberSet = 1;
2922 if(init)
2923 ListAdd(list, init);
2924 }
2925 }
2926 }
2927 if(!someMemberSet && !parentMemberSet)
2928 {
2929 struct Symbol * classSym;
2930 struct Initializer * init = (init = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Initializer), init->loc = yylloc, init);
2931
2932 dataMember = parentMember->members.first;
2933 if(namedParentMember->type == 1 && dataMember->name)
2934 init->id = MkIdentifier(dataMember->name);
2935 if(!dataMember->dataType && dataMember->dataTypeString)
2936 dataMember->dataType = ProcessTypeString(dataMember->dataTypeString, 0);
2937 classSym = (dataMember->dataType && dataMember->dataType->kind == 8) ? dataMember->dataType->__anon1._class : (((void *)0));
2938 if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 1)
2939 {
2940 struct __ecereNameSpace__ecere__sys__OldList * subList = MkList();
2941 struct Specifier * spec = _MkSpecifierName(dataMember->dataTypeString, classSym, (((void *)0)));
2942 struct Instantiation * inst = MkInstantiation(spec, (((void *)0)), (((void *)0)));
2943
2944 ProcessBracketInst(inst, subList);
2945 FreeInstance(inst);
2946 init->type = 1;
2947 init->__anon1.list = subList;
2948 }
2949 else if(dataMember->dataType && dataMember->dataType->kind == 12)
2950 {
2951 struct Type * t = dataMember->dataType->__anon1.type;
2952 struct Initializer * i = MkInitializerAssignment(MkExpConstant("0"));
2953
2954 while(t && t->kind == 12)
2955 {
2956 i = MkInitializerList(MkListOne(i));
2957 t = t->__anon1.type;
2958 }
2959 init->type = 1;
2960 init->__anon1.list = MkListOne(i);
2961 }
2962 else
2963 {
2964 init->type = 0;
2965 init->__anon1.exp = MkExpConstant("0");
2966 }
2967 ListAdd(list, init);
2968 }
2969 return 1;
2970 }
2971
2972 extern void Compiler_Error(const char *  format, ...);
2973
2974 extern const char *  __ecereNameSpace__ecere__GetTranslatedString(const char * name, const char *  string, const char *  stringAndContext);
2975
2976 static unsigned int ProcessBracketInst(struct Instantiation * inst, struct __ecereNameSpace__ecere__sys__OldList * list)
2977 {
2978 static int recursionCount = 0;
2979 struct Symbol * classSym = inst->_class->__anon1.__anon1.symbol;
2980 struct __ecereNameSpace__ecere__com__Class * _class = (((void *)0));
2981 int anonID = 1;
2982
2983 if(recursionCount > 500)
2984 return 0;
2985 recursionCount++;
2986 while(_class != classSym->__anon1.registered)
2987 {
2988 struct __ecereNameSpace__ecere__com__DataMember * dataMember;
2989 struct __ecereNameSpace__ecere__com__Class * lastClass = _class;
2990
2991 for(_class = classSym->__anon1.registered; _class->base != lastClass && _class->base->type != 1000; _class = _class->base)
2992 ;
2993 for(dataMember = _class->membersAndProperties.first; dataMember; dataMember = dataMember->next)
2994 {
2995 if(!dataMember->isProperty && !dataMember->name && (dataMember->type == 1 || dataMember->type == 2))
2996 {
2997 struct __ecereNameSpace__ecere__sys__OldList * subList = MkList();
2998
2999 if(!ProcessBracketInst_DataMember(dataMember, inst, subList ? subList : list, dataMember, 0))
3000 {
3001 if(subList)
3002 FreeList(subList, (void *)(FreeInitializer));
3003 recursionCount--;
3004 return 0;
3005 }
3006 if(dataMember->type == 2 || (subList && (*subList).count))
3007 {
3008 struct Initializer * init = MkInitializerList(subList);
3009 char id[100];
3010
3011 sprintf(id, "__anon%d", anonID);
3012 init->id = MkIdentifier(id);
3013 ListAdd(list, init);
3014 }
3015 else
3016 (__ecereNameSpace__ecere__com__eSystem_Delete(subList), subList = 0);
3017 anonID++;
3018 }
3019 else
3020 {
3021 struct MembersInit * members;
3022 struct MemberInit * member = (((void *)0));
3023 unsigned int found = 0;
3024
3025 if(inst->members && (*inst->members).first)
3026 {
3027 struct __ecereNameSpace__ecere__com__DataMember * curMember = (((void *)0));
3028 struct __ecereNameSpace__ecere__com__Class * curClass = (((void *)0));
3029 struct __ecereNameSpace__ecere__com__DataMember * subMemberStack[256];
3030 int subMemberStackPos = 0;
3031
3032 for(members = (*inst->members).first; members; members = members->next)
3033 {
3034 if(members->type == 0)
3035 {
3036 for(member = (*members->__anon1.dataMembers).first; member; member = member->next)
3037 {
3038 struct Identifier * firstID = member->identifiers ? (*member->identifiers).first : (((void *)0));
3039
3040 if(firstID)
3041 {
3042 struct __ecereNameSpace__ecere__com__DataMember * _subMemberStack[256];
3043 int _subMemberStackPos = 0;
3044 struct __ecereNameSpace__ecere__com__DataMember * thisMember = (struct __ecereNameSpace__ecere__com__DataMember *)__ecereNameSpace__ecere__com__eClass_FindProperty(classSym->__anon1.registered, firstID->string, privateModule);
3045
3046 if(!thisMember)
3047 thisMember = __ecereNameSpace__ecere__com__eClass_FindDataMember(classSym->__anon1.registered, firstID->string, privateModule, _subMemberStack, &_subMemberStackPos);
3048 if(thisMember)
3049 {
3050 curMember = thisMember;
3051 curClass = curMember->_class;
3052 memcpy(subMemberStack, _subMemberStack, sizeof(struct __ecereNameSpace__ecere__com__DataMember *) * _subMemberStackPos);
3053 subMemberStackPos = _subMemberStackPos;
3054 }
3055 if(curMember == dataMember)
3056 {
3057 if(dataMember->isProperty)
3058 {
3059 if(!((struct __ecereNameSpace__ecere__com__Property *)dataMember)->Set)
3060 {
3061 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString("ec", "No set defined for property %s\n", (((void *)0))), dataMember->name);
3062 continue;
3063 }
3064 recursionCount--;
3065 return 0;
3066 }
3067 if((*member->identifiers).count > 1 && member->initializer && member->initializer->type == 0)
3068 {
3069 struct __ecereNameSpace__ecere__sys__OldList * partList = MkList();
3070 struct Specifier * spec;
3071 struct MembersInit * nextMembers;
3072 struct MemberInit * next = member->next;
3073 struct Symbol * symbol;
3074
3075 if(!dataMember->dataType)
3076 dataMember->dataType = ProcessTypeString(dataMember->dataTypeString, 0);
3077 symbol = (dataMember->dataType && dataMember->dataType->kind == 8) ? dataMember->dataType->__anon1._class : (((void *)0));
3078 spec = _MkSpecifierName(dataMember->dataTypeString, symbol, (((void *)0)));
3079 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*member->identifiers), firstID);
3080 ListAdd(partList, MkMemberInit(member->identifiers, MkInitializerAssignment(member->initializer->__anon1.exp)));
3081 for(nextMembers = members; nextMembers; nextMembers = nextMembers->next)
3082 {
3083 if(!nextMembers->__anon1.dataMembers)
3084 continue;
3085 if(members != nextMembers)
3086 next = (*nextMembers->__anon1.dataMembers).first;
3087 if(nextMembers->type == 0)
3088 {
3089 struct MemberInit * nextMember;
3090
3091 for(nextMember = next; nextMember; nextMember = next, next = nextMember ? nextMember->next : (((void *)0)))
3092 {
3093 struct Identifier * nextID = (*nextMember->identifiers).first;
3094
3095 if(nextMember->identifiers && (*nextMember->identifiers).count > 1 && !strcmp(firstID->string, nextID->string))
3096 {
3097 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*nextMembers->__anon1.dataMembers), nextMember);
3098 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*nextMember->identifiers), nextID);
3099 ListAdd(partList, nextMember);
3100 }
3101 }
3102 }
3103 }
3104 member->initializer->__anon1.exp = MkExpInstance(MkInstantiation(spec, (((void *)0)), MkListOne(MkMembersInitList(partList))));
3105 member->identifiers = (((void *)0));
3106 }
3107 found = 1;
3108 break;
3109 }
3110 }
3111 else
3112 {
3113 __ecereNameSpace__ecere__com__eClass_FindNextMember(classSym->__anon1.registered, &curClass, &curMember, subMemberStack, &subMemberStackPos);
3114 if(curMember == dataMember)
3115 {
3116 if(dataMember->isProperty)
3117 {
3118 if(!((struct __ecereNameSpace__ecere__com__Property *)dataMember)->Set)
3119 {
3120 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString("ec", "No set defined for property %s\n", (((void *)0))), dataMember->name);
3121 continue;
3122 }
3123 recursionCount--;
3124 return 0;
3125 }
3126 found = 1;
3127 break;
3128 }
3129 }
3130 }
3131 }
3132 if(found)
3133 break;
3134 }
3135 }
3136 if(dataMember->isProperty)
3137 continue;
3138 if(member && member->initializer && member->initializer->type == 0)
3139 {
3140 if(member->initializer->__anon1.exp->type == 1 && member->initializer->__anon1.exp->expType && member->initializer->__anon1.exp->expType->__anon1._class && member->initializer->__anon1.exp->expType->__anon1._class->__anon1.registered && member->initializer->__anon1.exp->expType->__anon1._class->__anon1.registered->type == 1)
3141 {
3142 struct __ecereNameSpace__ecere__sys__OldList * subList = MkList();
3143
3144 ProcessBracketInst(member->initializer->__anon1.exp->__anon1.instance, subList);
3145 FreeExpression(member->initializer->__anon1.exp);
3146 member->initializer->__anon1.exp = (((void *)0));
3147 ListAdd(list, MkInitializerList(subList));
3148 }
3149 else
3150 {
3151 member->initializer->__anon1.exp->usage = (member->initializer->__anon1.exp->usage & ~0x1) | (((unsigned int)(1)) << 0);
3152 ProcessExpression(member->initializer->__anon1.exp);
3153 ListAdd(list, MkInitializerAssignment(CopyExpression(member->initializer->__anon1.exp)));
3154 }
3155 member->takeOutExp = 1;
3156 }
3157 else if(member && member->initializer && member->initializer->type == 1)
3158 {
3159 ListAdd(list, member->initializer);
3160 member->initializer = (((void *)0));
3161 }
3162 else if(dataMember && dataMember->dataTypeString)
3163 {
3164 struct Symbol * classSym;
3165
3166 if(!dataMember->dataType)
3167 dataMember->dataType = ProcessTypeString(dataMember->dataTypeString, 0);
3168 classSym = (dataMember->dataType && dataMember->dataType->kind == 8) ? dataMember->dataType->__anon1._class : (((void *)0));
3169 if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 1)
3170 {
3171 struct __ecereNameSpace__ecere__sys__OldList * subList = MkList();
3172 struct Specifier * spec = _MkSpecifierName(dataMember->dataTypeString, classSym, (((void *)0)));
3173 struct Instantiation * inst = MkInstantiation(spec, (((void *)0)), (((void *)0)));
3174
3175 ProcessBracketInst(inst, subList);
3176 FreeInstance(inst);
3177 ListAdd(list, MkInitializerList(subList));
3178 }
3179 else if(dataMember->dataType->kind == 12)
3180 ListAdd(list, MkInitializerList(MkListOne(MkInitializerAssignment(MkExpConstant("0")))));
3181 else
3182 ListAdd(list, MkInitializerAssignment(MkExpConstant("0")));
3183 }
3184 }
3185 }
3186 }
3187 if(inst->members && (*inst->members).first)
3188 {
3189 struct MembersInit * members;
3190 struct MemberInit * member = (((void *)0));
3191
3192 for(members = (*inst->members).first; members; members = members->next)
3193 {
3194 if(members->type == 0)
3195 {
3196 for(member = (*members->__anon1.dataMembers).first; member; member = member->next)
3197 {
3198 if(member->takeOutExp)
3199 {
3200 FreeInitializer(member->initializer);
3201 member->initializer = (((void *)0));
3202 }
3203 }
3204 }
3205 }
3206 }
3207 recursionCount--;
3208 return 1;
3209 }
3210
3211 extern void ListAddFront(struct __ecereNameSpace__ecere__sys__OldList * list, void *  item);
3212
3213 static void ProcessDeclaration(struct Declaration * decl)
3214 {
3215 yylloc = decl->loc;
3216 switch(decl->type)
3217 {
3218 case 1:
3219 {
3220 if(!curDecl)
3221 {
3222 curDecl = decl;
3223 declTempCount = 0;
3224 }
3225 if(decl->__anon1.__anon1.specifiers)
3226 {
3227 struct Specifier * s;
3228
3229 for(s = (*decl->__anon1.__anon1.specifiers).first; s; s = s->next)
3230 {
3231 ProcessSpecifier(s);
3232 }
3233 }
3234 if(decl->__anon1.__anon1.declarators)
3235 {
3236 struct InitDeclarator * d;
3237
3238 for(d = (*decl->__anon1.__anon1.declarators).first; d; d = d->next)
3239 {
3240 if(d->initializer)
3241 ProcessInitializer(d->initializer);
3242 }
3243 }
3244 if(curDecl == decl)
3245 {
3246 curDecl = (((void *)0));
3247 declTempCount = 0;
3248 }
3249 break;
3250 }
3251 case 2:
3252 {
3253 struct Instantiation * inst = decl->__anon1.inst;
3254
3255 if(inCompiler)
3256 {
3257 struct Symbol * classSym = inst->_class->__anon1.__anon1.symbol;
3258
3259 if(!curCompound)
3260 {
3261 struct Statement * stmt;
3262
3263 if(!inst->isConstant || (classSym && classSym->__anon1.registered && (classSym->__anon1.registered->type == 0 || classSym->__anon1.registered->type == 5)))
3264 {
3265 decl->type = 1;
3266 decl->__anon1.__anon1.specifiers = MkListOne(MkSpecifierName(inst->_class->__anon1.__anon1.name));
3267 if(decl->declMode == 3)
3268 {
3269 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*decl->__anon1.__anon1.specifiers), (((void *)0)), MkSpecifier(STATIC));
3270 }
3271 decl->__anon1.__anon1.declarators = MkListOne(MkInitDeclarator(MkDeclaratorIdentifier(MkIdentifier(inst->exp->__anon1.__anon1.identifier->string)), (((void *)0))));
3272 ProcessDeclaration(decl);
3273 CreateInstancesBody();
3274 {
3275 struct Expression * exp = MkExpInstance(inst);
3276
3277 stmt = MkExpressionStmt(MkListOne(exp));
3278 ListAdd(createInstancesBody->__anon1.compound.statements, stmt);
3279 ProcessExpressionType(exp);
3280 }
3281 if(classSym && classSym->__anon1.registered && (classSym->__anon1.registered->type == 0))
3282 {
3283 ListAdd(createInstancesBody->__anon1.compound.statements, MkExpressionStmt(MkListOne(MkExpCall(MkExpIdentifier(MkIdentifier("ecere::com::eInstance_IncRef")), MkListOne(CopyExpression(inst->exp))))));
3284 {
3285 struct Expression * exp = MkExpOp((((void *)0)), DELETE, CopyExpression(inst->exp));
3286
3287 ListAddFront(destroyInstancesBody->__anon1.compound.statements, MkExpressionStmt(MkListOne(exp)));
3288 ProcessExpressionType(exp);
3289 }
3290 }
3291 else if(classSym && classSym->__anon1.registered && (classSym->__anon1.registered->type == 5))
3292 {
3293 struct Expression * exp = MkExpOp((((void *)0)), DELETE, CopyExpression(inst->exp));
3294
3295 ListAddFront(destroyInstancesBody->__anon1.compound.statements, MkExpressionStmt(MkListOne(exp)));
3296 ProcessExpressionType(exp);
3297 }
3298 break;
3299 }
3300 else
3301 {
3302 CreateInstancesBody();
3303 }
3304 }
3305 {
3306 char className[1024];
3307
3308 className[0] = (char)0;
3309 decl->type = 1;
3310 decl->__anon1.__anon1.specifiers = MkList();
3311 decl->__anon1.__anon1.declarators = MkList();
3312 if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 2)
3313 {
3314 struct __ecereNameSpace__ecere__sys__OldList list =
3315 {
3316 0
3317 };
3318
3319 ProcessInstMembers(inst, inst->exp, &list, 0);
3320 ProcessExpression(inst->exp);
3321 ListAdd(decl->__anon1.__anon1.specifiers, MkSpecifierName(inst->_class->__anon1.__anon1.name));
3322 ListAdd(decl->__anon1.__anon1.declarators, MkInitDeclarator(MkDeclaratorIdentifier(inst->exp->__anon1.__anon1.identifier), MkInitializerAssignment(list.first)));
3323 inst->exp->__anon1.__anon1.identifier = (((void *)0));
3324 }
3325 else if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 3)
3326 {
3327 struct __ecereNameSpace__ecere__sys__OldList list =
3328 {
3329 0
3330 };
3331
3332 ProcessInstMembers(inst, inst->exp, &list, 0);
3333 ProcessExpression(inst->exp);
3334 ListAdd(decl->__anon1.__anon1.specifiers, MkSpecifierName(inst->_class->__anon1.__anon1.name));
3335 ListAdd(decl->__anon1.__anon1.declarators, MkInitDeclarator(MkDeclaratorIdentifier(inst->exp->__anon1.__anon1.identifier), MkInitializerAssignment(list.first)));
3336 inst->exp->__anon1.__anon1.identifier = (((void *)0));
3337 }
3338 else if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 1)
3339 {
3340 struct Expression * exp;
3341
3342 DeclareStruct(inst->_class->__anon1.__anon1.name, 0);
3343 ProcessExpression(inst->exp);
3344 {
3345 if(inst->fullSet)
3346 {
3347 ListAdd(decl->__anon1.__anon1.specifiers, MkSpecifierName(inst->_class->__anon1.__anon1.name));
3348 ListAdd(decl->__anon1.__anon1.declarators, MkInitDeclarator(MkDeclaratorIdentifier(inst->exp->__anon1.__anon1.identifier), (((void *)0))));
3349 inst->exp->__anon1.__anon1.identifier = (((void *)0));
3350 }
3351 else
3352 {
3353 struct __ecereNameSpace__ecere__sys__OldList * list = MkList();
3354
3355 if(ProcessBracketInst(inst, list))
3356 {
3357 ListAdd(decl->__anon1.__anon1.specifiers, MkSpecifierName(inst->_class->__anon1.__anon1.name));
3358 ListAdd(decl->__anon1.__anon1.declarators, MkInitDeclarator(MkDeclaratorIdentifier(inst->exp->__anon1.__anon1.identifier), MkInitializerList(list)));
3359 inst->exp->__anon1.__anon1.identifier = (((void *)0));
3360 }
3361 else
3362 {
3363 FreeList(list, (void *)(FreeInitializer));
3364 exp = MkExpBrackets(MkList());
3365 ProcessInstMembers(inst, inst->exp, exp->__anon1.list, 1);
3366 ListAdd(exp->__anon1.list, CopyExpression(inst->exp));
3367 ListAdd(decl->__anon1.__anon1.specifiers, MkSpecifierName(inst->_class->__anon1.__anon1.name));
3368 ListAdd(decl->__anon1.__anon1.declarators, MkInitDeclarator(MkDeclaratorIdentifier(inst->exp->__anon1.__anon1.identifier), MkInitializerAssignment(exp)));
3369 inst->exp->__anon1.__anon1.identifier = (((void *)0));
3370 }
3371 }
3372 }
3373 }
3374 else
3375 {
3376 struct Expression * newCall;
3377
3378 strcpy(className, "__ecereClass_");
3379 if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 5 && classSym->__anon1.registered->templateClass)
3380 {
3381 classSym = FindClass(classSym->__anon1.registered->templateClass->fullName);
3382 FullClassNameCat(className, classSym->string, 1);
3383 }
3384 else
3385 FullClassNameCat(className, inst->_class->__anon1.__anon1.name, 1);
3386 if(classSym)
3387 DeclareClass(classSym, className);
3388 if(classSym && classSym->__anon1.registered && classSym->__anon1.registered->type == 5 && (classSym->__anon1.registered->templateClass ? classSym->__anon1.registered->templateClass->fixed : classSym->__anon1.registered->fixed))
3389 {
3390 char size[256];
3391
3392 sprintf(size, "%d", classSym->__anon1.registered->templateClass ? classSym->__anon1.registered->templateClass->structSize : classSym->__anon1.registered->structSize);
3393 newCall = MkExpCall(QMkExpId("ecere::com::eSystem_New0"), MkListOne(MkExpConstant(size)));
3394 }
3395 else
3396 {
3397 newCall = MkExpCall(QMkExpId("ecere::com::eInstance_New"), MkListOne(QMkExpId(className)));
3398 ProcessExpressionType(newCall);
3399 newCall->byReference = 1;
3400 }
3401 if(inst->exp)
3402 {
3403 struct Expression * exp, * newExp;
3404 struct Identifier * id = CopyIdentifier(inst->exp->__anon1.__anon1.identifier);
3405
3406 if(inst->members && (*inst->members).first)
3407 {
3408 newExp = MkExpOp(CopyExpression(inst->exp), '=', newCall);
3409 exp = MkExpBrackets(MkList());
3410 ListAdd(exp->__anon1.list, newExp);
3411 ProcessInstMembers(inst, inst->exp, exp->__anon1.list, 0);
3412 ListAdd(exp->__anon1.list, inst->exp);
3413 ProcessExpression(inst->exp);
3414 inst->exp = (((void *)0));
3415 }
3416 else
3417 exp = newCall;
3418 ListAdd(decl->__anon1.__anon1.specifiers, MkSpecifierName(inst->_class->__anon1.__anon1.name));
3419 ListAdd(decl->__anon1.__anon1.declarators, MkInitDeclarator(MkDeclaratorIdentifier(id), MkInitializerAssignment(exp)));
3420 }
3421 else
3422 FreeExpression(newCall);
3423 }
3424 }
3425 FreeInstance(inst);
3426 }
3427 else
3428 ProcessInstantiation(inst);
3429 break;
3430 }
3431 case 0:
3432 {
3433 if(decl->__anon1.__anon1.specifiers)
3434 {
3435 struct Specifier * spec;
3436
3437 for(spec = (*decl->__anon1.__anon1.specifiers).first; spec; spec = spec->next)
3438 ProcessSpecifier(spec);
3439 }
3440 break;
3441 }
3442 }
3443 }
3444
3445 static void ProcessStatement(struct Statement * stmt)
3446 {
3447 yylloc = stmt->loc;
3448 switch(stmt->type)
3449 {
3450 case 0:
3451 if(stmt->__anon1.labeled.stmt)
3452 ProcessStatement(stmt->__anon1.labeled.stmt);
3453 break;
3454 case 1:
3455 if(stmt->__anon1.caseStmt.exp)
3456 ProcessExpression(stmt->__anon1.caseStmt.exp);
3457 if(stmt->__anon1.caseStmt.stmt)
3458 ProcessStatement(stmt->__anon1.caseStmt.stmt);
3459 break;
3460 case 2:
3461 {
3462 if(stmt->__anon1.compound.context)
3463 {
3464 struct Declaration * decl;
3465 struct Statement * s;
3466 struct Statement * prevCompound = curCompound;
3467 struct Context * prevContext = curContext;
3468
3469 if(!stmt->__anon1.compound.isSwitch)
3470 {
3471 curCompound = stmt;
3472 curContext = stmt->__anon1.compound.context;
3473 }
3474 if(stmt->__anon1.compound.declarations)
3475 {
3476 for(decl = (*stmt->__anon1.compound.declarations).first; decl; decl = decl->next)
3477 ProcessDeclaration(decl);
3478 }
3479 if(stmt->__anon1.compound.statements)
3480 {
3481 for(s = (*stmt->__anon1.compound.statements).first; s; s = s->next)
3482 {
3483 ProcessStatement(s);
3484 }
3485 }
3486 curCompound = prevCompound;
3487 curContext = prevContext;
3488 }
3489 break;
3490 }
3491 case 3:
3492 {
3493 struct Expression * exp;
3494
3495 if(stmt->__anon1.expressions)
3496 {
3497 for(exp = (*stmt->__anon1.expressions).first; exp; exp = exp->next)
3498 {
3499 ProcessExpression(exp);
3500 }
3501 }
3502 break;
3503 }
3504 case 4:
3505 {
3506 struct Expression * exp;
3507
3508 ((struct Expression *)(*stmt->__anon1.ifStmt.exp).last)->usage = (((struct Expression *)(*stmt->__anon1.ifStmt.exp).last)->usage & ~0x1) | (((unsigned int)(1)) << 0);
3509 for(exp = (*stmt->__anon1.ifStmt.exp).first; exp; exp = exp->next)
3510 {
3511 ProcessExpression(exp);
3512 }
3513 if(stmt->__anon1.ifStmt.stmt)
3514 ProcessStatement(stmt->__anon1.ifStmt.stmt);
3515 if(stmt->__anon1.ifStmt.elseStmt)
3516 ProcessStatement(stmt->__anon1.ifStmt.elseStmt);
3517 break;
3518 }
3519 case 5:
3520 {
3521 struct Expression * exp;
3522
3523 ((struct Expression *)(*stmt->__anon1.switchStmt.exp).last)->usage = (((struct Expression *)(*stmt->__anon1.switchStmt.exp).last)->usage & ~0x1) | (((unsigned int)(1)) << 0);
3524 for(exp = (*stmt->__anon1.switchStmt.exp).first; exp; exp = exp->next)
3525 ProcessExpression(exp);
3526 ProcessStatement(stmt->__anon1.switchStmt.stmt);
3527 break;
3528 }
3529 case 6:
3530 {
3531 if(stmt->__anon1.whileStmt.exp)
3532 {
3533 struct Expression * exp;
3534
3535 ((struct Expression *)(*stmt->__anon1.whileStmt.exp).last)->usage = (((struct Expression *)(*stmt->__anon1.whileStmt.exp).last)->usage & ~0x1) | (((unsigned int)(1)) << 0);
3536 for(exp = (*stmt->__anon1.whileStmt.exp).first; exp; exp = exp->next)
3537 {
3538 ProcessExpression(exp);
3539 }
3540 }
3541 if(stmt->__anon1.whileStmt.stmt)
3542 ProcessStatement(stmt->__anon1.whileStmt.stmt);
3543 break;
3544 }
3545 case 7:
3546 {
3547 if(stmt->__anon1.doWhile.exp)
3548 {
3549 struct Expression * exp;
3550
3551 ((struct Expression *)(*stmt->__anon1.doWhile.exp).last)->usage = (((struct Expression *)(*stmt->__anon1.doWhile.exp).last)->usage & ~0x1) | (((unsigned int)(1)) << 0);
3552 for(exp = (*stmt->__anon1.doWhile.exp).first; exp; exp = exp->next)
3553 {
3554 ProcessExpression(exp);
3555 }
3556 }
3557 if(stmt->__anon1.doWhile.stmt)
3558 ProcessStatement(stmt->__anon1.doWhile.stmt);
3559 break;
3560 }
3561 case 8:
3562 {
3563 struct Expression * exp;
3564
3565 if(stmt->__anon1.forStmt.init)
3566 ProcessStatement(stmt->__anon1.forStmt.init);
3567 if(stmt->__anon1.forStmt.check && stmt->__anon1.forStmt.check->__anon1.expressions)
3568 {
3569 ((struct Expression *)(*stmt->__anon1.forStmt.check->__anon1.expressions).last)->usage = (((struct Expression *)(*stmt->__anon1.forStmt.check->__anon1.expressions).last)->usage & ~0x1) | (((unsigned int)(1)) << 0);
3570 }
3571 if(stmt->__anon1.forStmt.check)
3572 ProcessStatement(stmt->__anon1.forStmt.check);
3573 if(stmt->__anon1.forStmt.increment)
3574 {
3575 for(exp = (*stmt->__anon1.forStmt.increment).first; exp; exp = exp->next)
3576 ProcessExpression(exp);
3577 }
3578 if(stmt->__anon1.forStmt.stmt)
3579 ProcessStatement(stmt->__anon1.forStmt.stmt);
3580 break;
3581 }
3582 case 9:
3583 break;
3584 case 10:
3585 break;
3586 case 11:
3587 break;
3588 case 12:
3589 {
3590 struct Expression * exp;
3591
3592 if(stmt->__anon1.expressions && (*stmt->__anon1.expressions).last)
3593 {
3594 ((struct Expression *)(*stmt->__anon1.expressions).last)->usage = (((struct Expression *)(*stmt->__anon1.expressions).last)->usage & ~0x1) | (((unsigned int)(1)) << 0);
3595 for(exp = (*stmt->__anon1.expressions).first; exp; exp = exp->next)
3596 {
3597 ProcessExpression(exp);
3598 }
3599 }
3600 break;
3601 }
3602 case 14:
3603 {
3604 ProcessDeclaration(stmt->__anon1.decl);
3605 break;
3606 }
3607 case 13:
3608 {
3609 struct AsmField * field;
3610
3611 if(stmt->__anon1.asmStmt.inputFields)
3612 {
3613 for(field = (*stmt->__anon1.asmStmt.inputFields).first; field; field = field->next)
3614 if(field->expression)
3615 ProcessExpression(field->expression);
3616 }
3617 if(stmt->__anon1.asmStmt.outputFields)
3618 {
3619 for(field = (*stmt->__anon1.asmStmt.outputFields).first; field; field = field->next)
3620 if(field->expression)
3621 ProcessExpression(field->expression);
3622 }
3623 if(stmt->__anon1.asmStmt.clobberedFields)
3624 {
3625 for(field = (*stmt->__anon1.asmStmt.clobberedFields).first; field; field = field->next)
3626 if(field->expression)
3627 ProcessExpression(field->expression);
3628 }
3629 break;
3630 }
3631 }
3632 }
3633
3634 static void ProcessFunction(struct FunctionDefinition * function)
3635 {
3636 if(function->body)
3637 {
3638 yylloc = function->loc;
3639 ProcessStatement(function->body);
3640 }
3641 }
3642
3643 extern struct Type * MkClassTypeSymbol(struct Symbol * symbol);
3644
3645 extern void FreeSymbol(struct Symbol * symbol);
3646
3647 unsigned int __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Add(struct __ecereNameSpace__ecere__sys__BinaryTree * this, struct __ecereNameSpace__ecere__sys__BTNode * node);
3648
3649 void __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(struct __ecereNameSpace__ecere__sys__BinaryTree * this, struct __ecereNameSpace__ecere__sys__BTNode * node);
3650
3651 void ProcessInstantiations()
3652 {
3653 struct External * external;
3654
3655 for(external = (*ast).first; external; external = external->next)
3656 {
3657 curExternal = external;
3658 if(external->type == 1)
3659 {
3660 if(external->__anon1.declaration)
3661 ProcessDeclaration(external->__anon1.declaration);
3662 }
3663 else if(external->type == 0)
3664 {
3665 ProcessFunction(external->__anon1.function);
3666 }
3667 else if(external->type == 2)
3668 {
3669 struct ClassDefinition * _class = external->__anon1._class;
3670
3671 if(_class->definitions)
3672 {
3673 struct ClassDef * def;
3674
3675 for(def = (*_class->definitions).first; def; def = def->next)
3676 {
3677 if(def->type == 0)
3678 {
3679 curExternal = def->__anon1.function->declarator ? def->__anon1.function->declarator->symbol->__anon2.__anon1.pointerExternal : external;
3680 ProcessFunction((struct FunctionDefinition *)def->__anon1.function);
3681 }
3682 else if(def->type == 2 && def->__anon1.decl->type == 2)
3683 {
3684 ProcessInstantiation(def->__anon1.decl->__anon1.inst);
3685 }
3686 else if(def->type == 1 && def->__anon1.defProperties)
3687 {
3688 struct MemberInit * defProperty;
3689 struct Symbol * thisSymbol = (thisSymbol = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Symbol), thisSymbol->string = __ecereNameSpace__ecere__sys__CopyString("this"), thisSymbol->type = MkClassTypeSymbol(_class->symbol), thisSymbol);
3690
3691 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Add(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3692 for(defProperty = (*def->__anon1.defProperties).first; defProperty; defProperty = defProperty->next)
3693 {
3694 ProcessMemberInitData(defProperty);
3695 }
3696 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3697 FreeSymbol(thisSymbol);
3698 }
3699 else if(def->type == 3 && def->__anon1.propertyDef)
3700 {
3701 struct PropertyDef * prop = def->__anon1.propertyDef;
3702 struct Symbol * thisSymbol = (thisSymbol = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Symbol), thisSymbol->string = __ecereNameSpace__ecere__sys__CopyString("this"), thisSymbol->type = MkClassTypeSymbol(_class->symbol), thisSymbol);
3703
3704 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Add(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3705 if(prop->setStmt)
3706 {
3707 curExternal = prop->symbol ? prop->symbol->__anon2.__anon2.externalSet : (((void *)0));
3708 ProcessStatement(prop->setStmt);
3709 }
3710 if(prop->getStmt)
3711 {
3712 curExternal = prop->symbol ? prop->symbol->__anon2.__anon2.externalGet : (((void *)0));
3713 ProcessStatement(prop->getStmt);
3714 }
3715 if(prop->issetStmt)
3716 {
3717 curExternal = prop->symbol ? prop->symbol->__anon2.__anon2.externalIsSet : (((void *)0));
3718 ProcessStatement(prop->issetStmt);
3719 }
3720 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3721 FreeSymbol(thisSymbol);
3722 }
3723 else if(def->type == 4 && def->__anon1.propertyWatch)
3724 {
3725 struct PropertyWatch * propertyWatch = def->__anon1.propertyWatch;
3726 struct Symbol * thisSymbol = (thisSymbol = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Symbol), thisSymbol->string = __ecereNameSpace__ecere__sys__CopyString("this"), thisSymbol->type = MkClassTypeSymbol(_class->symbol), thisSymbol);
3727
3728 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Add(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3729 if(propertyWatch->compound)
3730 {
3731 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Add(&propertyWatch->compound->__anon1.compound.context->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3732 curExternal = (((void *)0));
3733 ProcessStatement(propertyWatch->compound);
3734 }
3735 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3736 FreeSymbol(thisSymbol);
3737 }
3738 }
3739 }
3740 }
3741 }
3742 }
3743
3744 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__GlobalFunction;
3745
3746 struct __ecereNameSpace__ecere__com__GlobalFunction;
3747
3748 extern struct __ecereNameSpace__ecere__com__GlobalFunction * __ecereNameSpace__ecere__com__eSystem_RegisterFunction(const char *  name, const char *  type, void *  func, struct __ecereNameSpace__ecere__com__Instance * module, int declMode);
3749
3750 void __ecereRegisterModule_pass16(struct __ecereNameSpace__ecere__com__Instance * module)
3751 {
3752 struct __ecereNameSpace__ecere__com__Class __attribute__((unused)) * class;
3753
3754 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("DeclareClass", "void DeclareClass(Symbol classSym, const char * className)", DeclareClass, module, 1);
3755 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ProcessExpressionInstPass", "void ProcessExpressionInstPass(Expression exp)", ProcessExpressionInstPass, module, 2);
3756 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ProcessInstantiations", "void ProcessInstantiations(void)", ProcessInstantiations, module, 1);
3757 }
3758
3759 void __ecereUnregisterModule_pass16(struct __ecereNameSpace__ecere__com__Instance * module)
3760 {
3761
3762 }
3763