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

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