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 static void ProcessInitializer(struct Initializer * init);
1434
1435 unsigned int __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert(struct __ecereNameSpace__ecere__sys__OldList * this, void *  prevItem, void *  item);
1436
1437 unsigned int __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Add(struct __ecereNameSpace__ecere__sys__BinaryTree * this, struct __ecereNameSpace__ecere__sys__BTNode * node);
1438
1439 void __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(struct __ecereNameSpace__ecere__sys__BinaryTree * this, struct __ecereNameSpace__ecere__sys__BTNode * node);
1440
1441 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_int;
1442
1443 static void ProcessExpression(struct Expression * exp)
1444 {
1445 struct Location oldyylloc = yylloc;
1446
1447 yylloc = exp->loc;
1448 switch(exp->type)
1449 {
1450 case 0:
1451 {
1452 if(exp->expType && exp->expType->kind == 16)
1453 {
1454 struct __ecereNameSpace__ecere__com__Class * _class = exp->expType->methodClass;
1455 struct __ecereNameSpace__ecere__com__Method * method = exp->expType->method;
1456
1457 if(method->type == 1)
1458 {
1459 char name[1024];
1460 struct TypeName * typeName;
1461 struct Declarator * decl;
1462 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1463
1464 strcpy(name, "__ecereVMethodID_");
1465 FullClassNameCat(name, method->_class->fullName, 0x0);
1466 strcat(name, "_");
1467 strcat(name, method->name);
1468 DeclareMethod(method, name);
1469 decl = SpecDeclFromString(method->dataTypeString, specs, MkDeclaratorBrackets(MkDeclaratorPointer(MkPointer((((void *)0)), (((void *)0))), (((void *)0)))));
1470 if(!method->dataType->staticMethod)
1471 {
1472 struct Declarator * funcDecl = GetFuncDecl(decl);
1473
1474 if(!funcDecl->function.parameters)
1475 funcDecl->function.parameters = MkList();
1476 {
1477 struct TypeName * firstParam = ((struct TypeName *)(*funcDecl->function.parameters).first);
1478 struct Specifier * firstSpec = firstParam ? (*firstParam->qualifiers).first : (((void *)0));
1479
1480 if(firstParam && firstSpec->type == 0 && firstSpec->specifier == VOID && !firstParam->declarator)
1481 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*funcDecl->function.parameters), (*funcDecl->function.parameters).first);
1482 }
1483 __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))));
1484 }
1485 typeName = MkTypeName(specs, decl);
1486 if(_class)
1487 {
1488 char className[1024];
1489
1490 strcpy(className, "__ecereClass_");
1491 FullClassNameCat(className, _class->fullName, 0x1);
1492 MangleClassName(className);
1493 if(!_class->symbol)
1494 _class->symbol = FindClass(_class->fullName);
1495 DeclareClass(_class->symbol, className);
1496 exp->type = 5;
1497 exp->list = MkListOne(MkExpCast(typeName, MkExpIndex(MkExpPointer(MkExpIdentifier(MkIdentifier(className)), MkIdentifier("_vTbl")), MkListOne(MkExpIdentifier(MkIdentifier(name))))));
1498 }
1499 }
1500 else
1501 {
1502 char name[1024];
1503
1504 strcpy(name, "__ecereMethod_");
1505 FullClassNameCat(name, method->_class->fullName, 0x0);
1506 strcat(name, "_");
1507 strcat(name, method->name);
1508 (__ecereNameSpace__ecere__com__eSystem_Delete(exp->identifier->string), exp->identifier->string = 0);
1509 exp->identifier->_class = (((void *)0));
1510 exp->identifier->string = __ecereNameSpace__ecere__sys__CopyString(name);
1511 DeclareMethod(method, name);
1512 }
1513 }
1514 break;
1515 }
1516 case 2:
1517 break;
1518 case 3:
1519 break;
1520 case 13:
1521 case 28:
1522 case 14:
1523 case 29:
1524 {
1525 struct __ecereNameSpace__ecere__sys__OldList * args = MkList();
1526
1527 if(exp->type == 14 || exp->type == 29)
1528 ListAdd(args, exp->_renew.exp);
1529 ListAdd(args, MkExpOp(MkExpTypeSize(exp->_new.typeName), '*', MkExpBrackets(MkListOne(exp->_new.size))));
1530 switch(exp->type)
1531 {
1532 case 13:
1533 exp->call.exp = QMkExpId("ecere::com::eSystem_New");
1534 break;
1535 case 28:
1536 exp->call.exp = QMkExpId("ecere::com::eSystem_New0");
1537 break;
1538 case 14:
1539 exp->call.exp = QMkExpId("ecere::com::eSystem_Renew");
1540 break;
1541 case 29:
1542 exp->call.exp = QMkExpId("ecere::com::eSystem_Renew0");
1543 break;
1544 }
1545 exp->call.arguments = args;
1546 exp->type = 7;
1547 ProcessExpression(exp);
1548 break;
1549 }
1550 case 4:
1551 {
1552 struct Expression * exp1 = exp->op.exp1;
1553 struct Expression * exp2 = exp->op.exp2;
1554
1555 switch(exp->op.op)
1556 {
1557 case '=':
1558 if(exp->op.exp2)
1559 exp->op.exp2->usage = (exp->op.exp2->usage & ~0x1) | (((unsigned int)0x1) << 0);
1560 break;
1561 case MUL_ASSIGN:
1562 case DIV_ASSIGN:
1563 case MOD_ASSIGN:
1564 case ADD_ASSIGN:
1565 case SUB_ASSIGN:
1566 case LEFT_ASSIGN:
1567 case RIGHT_ASSIGN:
1568 case AND_ASSIGN:
1569 case XOR_ASSIGN:
1570 case OR_ASSIGN:
1571 exp->op.exp2->usage = (exp->op.exp2->usage & ~0x1) | (((unsigned int)0x1) << 0);
1572 break;
1573 case INC_OP:
1574 case DEC_OP:
1575 case '&':
1576 if(exp->op.exp1 && exp->op.exp2)
1577 {
1578 exp->op.exp1->usage = (exp->op.exp1->usage & ~0x1) | (((unsigned int)0x1) << 0);
1579 exp->op.exp2->usage = (exp->op.exp2->usage & ~0x1) | (((unsigned int)0x1) << 0);
1580 }
1581 else if(exp->op.exp2)
1582 {
1583 exp->op.exp2->usage = (exp->op.exp2->usage & ~0x40) | (((unsigned int)0x1) << 6);
1584 }
1585 break;
1586 case '*':
1587 case '+':
1588 case '-':
1589 if(exp->op.exp1)
1590 {
1591 exp->op.exp1->usage = (exp->op.exp1->usage & ~0x1) | (((unsigned int)0x1) << 0);
1592 }
1593 case '~':
1594 case '!':
1595 if(exp->op.exp2)
1596 exp->op.exp2->usage = (exp->op.exp2->usage & ~0x1) | (((unsigned int)0x1) << 0);
1597 break;
1598 case '/':
1599 case '%':
1600 case LEFT_OP:
1601 case RIGHT_OP:
1602 case '<':
1603 case '>':
1604 case LE_OP:
1605 case GE_OP:
1606 case EQ_OP:
1607 case NE_OP:
1608 case '|':
1609 case '^':
1610 case AND_OP:
1611 case OR_OP:
1612 if(exp->op.exp1)
1613 exp->op.exp1->usage = (exp->op.exp1->usage & ~0x1) | (((unsigned int)0x1) << 0);
1614 if(exp->op.exp2)
1615 exp->op.exp2->usage = (exp->op.exp2->usage & ~0x1) | (((unsigned int)0x1) << 0);
1616 break;
1617 }
1618 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)
1619 {
1620 struct Expression * memberExp;
1621 struct Expression * parentExp = (((void *)0));
1622
1623 if(exp->op.exp1 && exp->op.exp1->type == 8)
1624 {
1625 struct Expression * testExp, * topExp = (((void *)0));
1626 struct Expression * lastExp = exp->op.exp1, * parentExp = (((void *)0));
1627 struct __ecereNameSpace__ecere__com__Property * lastProperty = (((void *)0));
1628 struct __ecereNameSpace__ecere__com__Class * propertyClass;
1629 char setName[1024], getName[1024];
1630
1631 testExp = exp->op.exp1->member.exp;
1632 while(0x1)
1633 {
1634 while(testExp)
1635 {
1636 if(testExp->type == 11)
1637 testExp = testExp->cast.exp;
1638 else if(testExp->type == 5 || testExp->type == 34)
1639 testExp = (*testExp->list).last;
1640 else if(testExp->type == 8)
1641 break;
1642 else
1643 testExp = (((void *)0));
1644 }
1645 if(!testExp)
1646 break;
1647 if(testExp->member.memberType == 1 || testExp->member.memberType == 4)
1648 {
1649 struct Type * type = testExp->member.exp->expType;
1650
1651 if(type)
1652 {
1653 if(type->kind == 8)
1654 {
1655 struct __ecereNameSpace__ecere__com__Class * _class = testExp->member.member->classSym ? testExp->member.member->classSym->registered : type->_class->registered;
1656 struct __ecereNameSpace__ecere__com__Class * convertTo = (((void *)0));
1657
1658 if(testExp->member.memberType == 4)
1659 {
1660 convertTo = _class;
1661 _class = FindClass(testExp->member.member->string)->registered;
1662 lastProperty = __ecereNameSpace__ecere__com__eClass_FindProperty(_class, convertTo->fullName, privateModule);
1663 }
1664 else
1665 {
1666 lastProperty = __ecereNameSpace__ecere__com__eClass_FindProperty(_class, testExp->member.member->string, privateModule);
1667 }
1668 if(lastProperty && lastProperty->Get && lastProperty->Set)
1669 {
1670 DeclareProperty(lastProperty, setName, getName);
1671 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);
1672 if(propertyClass && propertyClass->type == 1)
1673 {
1674 topExp = testExp;
1675 parentExp = lastExp;
1676 }
1677 else if(propertyClass && propertyClass->type == 2)
1678 {
1679 topExp = testExp;
1680 parentExp = lastExp;
1681 }
1682 }
1683 }
1684 }
1685 }
1686 lastExp = testExp;
1687 testExp = testExp->member.exp;
1688 }
1689 if(topExp)
1690 {
1691 if(propertyClass->type == 1)
1692 {
1693 struct Expression * copy;
1694 struct Expression * value;
1695 char className[1024];
1696 struct Expression * tempExp;
1697
1698 sprintf(className, "__simpleStruct%d", curContext->simpleID);
1699 tempExp = QMkExpId(className);
1700 tempExp->expType = MkClassType(propertyClass->fullName);
1701 parentExp->member.exp = tempExp;
1702 value = MkExpBrackets(MkList());
1703 copy = CopyExpression(topExp);
1704 copy->usage = (copy->usage & ~0x1) | (((unsigned int)0x1) << 0);
1705 copy->usage = (copy->usage & ~0x20) | (((unsigned int)0x1) << 5);
1706 ListAdd(value->list, copy);
1707 ListAdd(value->list, MkExpOp(exp->op.exp1, exp->op.op, exp->op.exp2));
1708 ListAdd(value->list, CopyExpression(tempExp));
1709 value->expType = tempExp->expType;
1710 tempExp->expType->refCount++;
1711 exp->op.exp1 = topExp;
1712 exp->op.exp2 = value;
1713 exp->op.op = '=';
1714 exp1 = exp->op.exp1;
1715 exp2 = exp->op.exp2;
1716 }
1717 else if(propertyClass->type == 2)
1718 {
1719 struct Expression * copy;
1720 struct Expression * value;
1721 char className[1024];
1722 struct Expression * tempExp;
1723
1724 sprintf(className, "__simpleStruct%d", curContext->simpleID);
1725 tempExp = QMkExpId(className);
1726 tempExp->expType = MkClassType(propertyClass->fullName);
1727 parentExp->member.exp = tempExp;
1728 value = MkExpBrackets(MkList());
1729 copy = CopyExpression(topExp);
1730 copy->usage = (copy->usage & ~0x1) | (((unsigned int)0x1) << 0);
1731 copy->usage = (copy->usage & ~0x20) | (((unsigned int)0x1) << 5);
1732 ListAdd(value->list, copy);
1733 ListAdd(value->list, MkExpOp(exp->op.exp1, exp->op.op, exp->op.exp2));
1734 ListAdd(value->list, CopyExpression(tempExp));
1735 value->expType = tempExp->expType;
1736 value->expType->refCount++;
1737 exp->op.exp1 = topExp;
1738 exp->op.exp2 = value;
1739 exp->op.op = '=';
1740 exp1 = exp->op.exp1;
1741 exp2 = exp->op.exp2;
1742 }
1743 }
1744 }
1745 memberExp = exp->op.exp1;
1746 while(memberExp && ((memberExp->type == 5 && (*memberExp->list).count == 1) || memberExp->type == 34 || memberExp->type == 25))
1747 {
1748 parentExp = memberExp;
1749 if(memberExp->type == 25)
1750 memberExp = (*((struct Statement *)(*memberExp->compound->compound.statements).last)->expressions).last;
1751 else
1752 memberExp = (*memberExp->list).last;
1753 }
1754 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))
1755 {
1756 ProcessExpression(memberExp);
1757 while(memberExp && ((memberExp->type == 5 && (*memberExp->list).count == 1) || memberExp->type == 34 || memberExp->type == 25))
1758 {
1759 parentExp = memberExp;
1760 if(memberExp->type == 25)
1761 memberExp = (*((struct Statement *)(*memberExp->compound->compound.statements).last)->expressions).last;
1762 else
1763 memberExp = (*memberExp->list).last;
1764 }
1765 if(memberExp && memberExp->type == 25)
1766 {
1767 parentExp = memberExp;
1768 if(memberExp->type == 25)
1769 {
1770 struct Statement * stmt = memberExp->compound->compound.statements ? (*memberExp->compound->compound.statements).last : (((void *)0));
1771
1772 if(stmt && stmt->type != 3)
1773 stmt = (((void *)0));
1774 memberExp = (stmt && stmt->expressions) ? (*stmt->expressions).last : (((void *)0));
1775 if(memberExp)
1776 {
1777 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*stmt->expressions), memberExp);
1778 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*stmt->expressions), MkExpOp(memberExp, exp->op.op, exp->op.exp2));
1779 exp->type = 5;
1780 exp->list = MkListOne(parentExp);
1781 ProcessExpression(exp);
1782 break;
1783 }
1784 }
1785 else
1786 memberExp = (*memberExp->list).last;
1787 }
1788 }
1789 if(memberExp && memberExp->type != 8)
1790 memberExp = (((void *)0));
1791 if(memberExp && memberExp->type == 8)
1792 {
1793 struct Type * type = memberExp->member.exp->expType;
1794
1795 if(type)
1796 {
1797 if(type->kind == 8 || type->kind == 19)
1798 {
1799 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)));
1800
1801 if(memberExp == exp1)
1802 exp1 = (((void *)0));
1803 else
1804 {
1805 if(parentExp->type == 25)
1806 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*((struct Statement *)(*parentExp->compound->compound.statements).last)->expressions), memberExp);
1807 else
1808 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*parentExp->list), memberExp);
1809 }
1810 if(_class && _class->type == 2 && memberExp->member.memberType == 3)
1811 {
1812 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)));
1813 char mask[32], shift[10];
1814 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
1815 struct Declarator * decl = SpecDeclFromString(_class->dataTypeString, specs, (((void *)0)));
1816 struct TypeName * type = MkTypeName(specs, decl);
1817
1818 if(bitMember->mask > (0xffffffff))
1819 sprintf(mask, ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? "0x%I64XLL" : "0x%llXLL"), bitMember->mask);
1820 else
1821 sprintf(mask, ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? "0x%I64X" : "0x%llX"), bitMember->mask);
1822 sprintf(shift, "%d", bitMember->pos);
1823 exp->op.exp1 = memberExp->member.exp;
1824 if(exp->op.op == XOR_ASSIGN)
1825 {
1826 exp->op.exp2 = MkExpOp(MkExpBrackets(MkListOne(MkExpCast(type, exp->op.exp2))), LEFT_OP, MkExpConstant(shift));
1827 }
1828 else
1829 {
1830 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)))));
1831 }
1832 memberExp->member.exp = (((void *)0));
1833 FreeExpression(memberExp);
1834 ProcessExpression(exp);
1835 return ;
1836 }
1837 else if(_class && _class->type == 3 && memberExp->member.memberType == 3)
1838 {
1839 }
1840 else if(memberExp->member.memberType != 3)
1841 {
1842 struct __ecereNameSpace__ecere__com__Property * prop;
1843 struct __ecereNameSpace__ecere__com__Class * convertTo = (((void *)0));
1844 struct __ecereNameSpace__ecere__com__ClassProperty * classProperty = (((void *)0));
1845
1846 if(memberExp->member.memberType == 4)
1847 {
1848 convertTo = _class;
1849 _class = FindClass(memberExp->member.member->string)->registered;
1850 prop = __ecereNameSpace__ecere__com__eClass_FindProperty(_class, convertTo->fullName, privateModule);
1851 }
1852 else
1853 prop = __ecereNameSpace__ecere__com__eClass_FindProperty(_class, memberExp->member.member->string, privateModule);
1854 if(memberExp->member.memberType == 5)
1855 classProperty = __ecereNameSpace__ecere__com__eClass_FindClassProperty(_class, memberExp->member.member->string);
1856 exp->tempCount = memberExp->member.exp->tempCount;
1857 if(classProperty)
1858 {
1859 if(classProperty->Set)
1860 {
1861 struct Identifier * id = memberExp->member.member;
1862 struct Expression * classExp = memberExp->member.exp;
1863 struct Expression * value = exp->op.exp2;
1864
1865 memberExp->member.exp = (((void *)0));
1866 memberExp->member.member = (((void *)0));
1867 exp->op.exp2 = (((void *)0));
1868 FreeExpContents(memberExp);
1869 exp->type = 7;
1870 exp->call.exp = MkExpIdentifier(MkIdentifier("ecere::com::eClass_SetProperty"));
1871 exp->call.arguments = MkList();
1872 ListAdd(exp->call.arguments, classExp);
1873 ListAdd(exp->call.arguments, MkExpString(QMkString(id->string)));
1874 ListAdd(exp->call.arguments, MkExpCast(MkTypeName(MkListOne(MkSpecifier(INT)), (((void *)0))), value));
1875 FreeIdentifier(id);
1876 ProcessExpression(exp);
1877 return ;
1878 }
1879 }
1880 else if(prop)
1881 {
1882 if((!convertTo && prop->Set) || (convertTo && prop->Get))
1883 {
1884 struct Expression * value = exp->op.exp2;
1885 char setName[1024], getName[1024];
1886 char * setToUse = convertTo ? getName : setName;
1887 char * getToUse = convertTo ? setName : getName;
1888 unsigned int needAddress = 0x0;
1889 int operator = exp->op.op;
1890
1891 switch(operator)
1892 {
1893 case MUL_ASSIGN:
1894 operator = '*';
1895 break;
1896 case DIV_ASSIGN:
1897 operator = '/';
1898 break;
1899 case MOD_ASSIGN:
1900 operator = '%';
1901 break;
1902 case SUB_ASSIGN:
1903 operator = '-';
1904 break;
1905 case ADD_ASSIGN:
1906 operator = '+';
1907 break;
1908 case LEFT_ASSIGN:
1909 operator = LEFT_OP;
1910 break;
1911 case RIGHT_ASSIGN:
1912 operator = RIGHT_OP;
1913 break;
1914 case AND_ASSIGN:
1915 operator = '&';
1916 break;
1917 case OR_ASSIGN:
1918 operator = '|';
1919 break;
1920 case XOR_ASSIGN:
1921 operator = '^';
1922 break;
1923 }
1924 if(operator != '=')
1925 {
1926 if(operator == INC_OP)
1927 value = MkExpOp(CopyExpression(memberExp), '+', MkExpConstant("1"));
1928 else if(operator == DEC_OP)
1929 value = MkExpOp(CopyExpression(memberExp), '-', MkExpConstant("1"));
1930 else
1931 {
1932 value = MkExpOp(CopyExpression(memberExp), operator, value);
1933 exp2 = (((void *)0));
1934 }
1935 value->expType = memberExp->expType;
1936 memberExp->expType->refCount++;
1937 value->usage = (value->usage & ~0x4) | (((unsigned int)0x1) << 2);
1938 }
1939 else if(value)
1940 {
1941 exp2 = (((void *)0));
1942 }
1943 if(value)
1944 value->usage = (value->usage & ~0x4) | (((unsigned int)0x1) << 2);
1945 DeclareProperty(prop, setName, getName);
1946 if(memberExp->member.exp)
1947 ProcessExpression(memberExp->member.exp);
1948 if(((unsigned int)((exp->usage & 0x1) >> 0)) && ((!convertTo && prop->Get) || (convertTo && prop->Set)))
1949 {
1950 int __simpleStruct0, __simpleStruct1;
1951 struct __ecereNameSpace__ecere__sys__OldList * list = MkList();
1952 struct __ecereNameSpace__ecere__sys__OldList * args;
1953 char ecereTemp[100];
1954 struct Context * context = PushContext();
1955
1956 exp->tempCount++;
1957 curExternal->function->tempCount = (__simpleStruct0 = curExternal->function->tempCount, __simpleStruct1 = exp->tempCount, (__simpleStruct0 > __simpleStruct1) ? __simpleStruct0 : __simpleStruct1);
1958 sprintf(ecereTemp, "__ecTemp%d", exp->tempCount);
1959 curContext = context;
1960 exp->type = 25;
1961 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);
1962 args = MkList();
1963 if(convertTo)
1964 {
1965 ListAdd(args, value);
1966 ListAdd(args, QMkExpId(ecereTemp));
1967 ListAdd(list, MkExpressionStmt(MkListOne(MkExpCall(QMkExpId(getName), args))));
1968 }
1969 else
1970 {
1971 ListAdd(args, QMkExpId(ecereTemp));
1972 ListAdd(args, value);
1973 ListAdd(list, MkExpressionStmt(MkListOne(MkExpCall(QMkExpId(setName), args))));
1974 }
1975 args = MkList();
1976 if(convertTo)
1977 ListAdd(args, QMkExpId(ecereTemp));
1978 else
1979 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*args), (((void *)0)), QMkExpId(ecereTemp));
1980 ListAdd(list, MkExpressionStmt(MkListOne(MkExpCall(QMkExpId(getToUse), args))));
1981 exp->compound->compound.context = context;
1982 PopContext(context);
1983 curContext = context->parent;
1984 }
1985 else
1986 {
1987 struct Expression * newExp = exp;
1988
1989 if(parentExp && parentExp->type == 25)
1990 {
1991 newExp = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Expression);
1992 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*((struct Statement *)(*parentExp->compound->compound.statements).last)->expressions), newExp);
1993 FreeType(exp->expType);
1994 FreeType(exp->destType);
1995 *exp = *parentExp;
1996 parentExp->type = 16;
1997 parentExp->expType = (((void *)0));
1998 parentExp->destType = (((void *)0));
1999 }
2000 newExp->type = 7;
2001 newExp->call.exp = QMkExpId(setToUse);
2002 newExp->call.arguments = MkList();
2003 if(convertTo)
2004 {
2005 ListAdd(newExp->call.arguments, value);
2006 ListAdd(newExp->call.arguments, FixReference(memberExp->member.exp, 0x1));
2007 }
2008 else
2009 {
2010 ListAdd(newExp->call.arguments, FixReference(memberExp->member.exp, 0x1));
2011 ListAdd(newExp->call.arguments, value);
2012 }
2013 needAddress = 0x1;
2014 }
2015 memberExp->member.exp = (((void *)0));
2016 if(value)
2017 {
2018 value->tempCount = exp->tempCount;
2019 ProcessExpression(value);
2020 if(needAddress)
2021 FixReference(value, 0x1);
2022 }
2023 FreeExpression(memberExp);
2024 }
2025 else
2026 {
2027 struct __ecereNameSpace__ecere__com__DataMember * member = __ecereNameSpace__ecere__com__eClass_FindDataMember(_class, memberExp->member.member->string, privateModule, (((void *)0)), (((void *)0)));
2028
2029 if(member)
2030 {
2031 memberExp->member.memberType = 3;
2032 }
2033 else
2034 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "no set defined for property %s of class %s\n", (((void *)0))), prop->name, prop->_class->fullName);
2035 }
2036 }
2037 else
2038 {
2039 struct __ecereNameSpace__ecere__com__Method * method = __ecereNameSpace__ecere__com__eClass_FindMethod(_class, memberExp->member.member->string, privateModule);
2040
2041 if(method && method->type == 1 && type->kind != 19)
2042 {
2043 struct Expression * value = exp->op.exp2;
2044
2045 value->tempCount = exp->tempCount;
2046 ProcessExpression(value);
2047 if(memberExp->member.exp)
2048 ProcessExpression(memberExp->member.exp);
2049 if(((unsigned int)((exp->usage & 0x1) >> 0)))
2050 {
2051 struct __ecereNameSpace__ecere__sys__OldList * list = MkList();
2052 struct __ecereNameSpace__ecere__sys__OldList * args;
2053
2054 args = MkList();
2055 ListAdd(args, memberExp->member.exp);
2056 {
2057 char * string = QMkString(memberExp->member.member->string);
2058
2059 ListAdd(args, MkExpString(string));
2060 (__ecereNameSpace__ecere__com__eSystem_Delete(string), string = 0);
2061 }
2062 ListAdd(args, value);
2063 ListAdd(list, MkExpCall(QMkExpId("ecere::com::eInstance_SetMethod"), args));
2064 ListAdd(list, CopyExpression(value));
2065 exp->type = 5;
2066 exp->list = list;
2067 }
2068 else
2069 {
2070 exp->type = 7;
2071 exp->call.exp = QMkExpId("ecere::com::eInstance_SetMethod");
2072 exp->call.arguments = MkList();
2073 ListAdd(exp->call.arguments, memberExp->member.exp);
2074 {
2075 char * string = QMkString(memberExp->member.member->string);
2076
2077 ListAdd(exp->call.arguments, MkExpString(string));
2078 (__ecereNameSpace__ecere__com__eSystem_Delete(string), string = 0);
2079 }
2080 ListAdd(exp->call.arguments, value);
2081 }
2082 memberExp->member.exp = (((void *)0));
2083 exp2 = (((void *)0));
2084 FreeExpression(memberExp);
2085 }
2086 }
2087 }
2088 else if(memberExp->member.memberType == 3)
2089 {
2090 if(FixMember(memberExp->member.exp))
2091 {
2092 ProcessExpression(memberExp);
2093 memberExp->type = 9;
2094 }
2095 }
2096 }
2097 }
2098 }
2099 }
2100 else if(exp->op.op == _INCREF)
2101 {
2102 struct Expression * object = exp->op.exp2;
2103
2104 exp->op.exp2 = (((void *)0));
2105 FreeExpContents(exp);
2106 exp->expType = (((void *)0));
2107 exp->destType = (((void *)0));
2108 exp->op.op = INC_OP;
2109 exp->op.exp1 = MkExpPointer(object, MkIdentifier("_refCount"));
2110 }
2111 else if(exp->op.op == DELETE)
2112 {
2113 struct Expression * object = exp->op.exp2;
2114 struct __ecereNameSpace__ecere__sys__OldList * args = MkList();
2115
2116 exp->type = 5;
2117 exp->list = MkList();
2118 object->usage = (object->usage & ~0x80) | (((unsigned int)0x1) << 7);
2119 ProcessExpression(object);
2120 ListAdd(args, object);
2121 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"))))
2122 {
2123 struct Expression * decRefExp = MkExpCall(QMkExpId("ecere::com::eInstance_DecRef"), args);
2124
2125 ProcessExpressionType(decRefExp);
2126 ListAdd(exp->list, decRefExp);
2127 }
2128 else if(exp->expType && exp->expType->kind == 8 && exp->expType->_class && exp->expType->_class->registered && exp->expType->_class->registered->type == 5)
2129 {
2130 struct __ecereNameSpace__ecere__sys__OldList * list = MkList();
2131 struct __ecereNameSpace__ecere__com__Class * _class;
2132
2133 for(_class = exp->expType->_class->registered; _class && _class->type == 5; _class = _class->base)
2134 {
2135 char className[1024];
2136
2137 if(_class->templateClass)
2138 _class = _class->templateClass;
2139 strcpy(className, "__ecereClass_");
2140 FullClassNameCat(className, _class->fullName, 0x0);
2141 MangleClassName(className);
2142 if(!_class->symbol)
2143 _class->symbol = FindClass(_class->fullName);
2144 DeclareClass(_class->symbol, className);
2145 ListAdd(list, MkExpCondition(MkExpPointer(QMkExpId(className), MkIdentifier("Destructor")), MkListOne(MkExpCall(MkExpPointer(QMkExpId(className), MkIdentifier("Destructor")), CopyList(args, CopyExpression))), MkExpConstant("0")));
2146 }
2147 ListAdd(list, MkExpCall(QMkExpId("ecere::com::eSystem_Delete"), args));
2148 ListAdd(exp->list, MkExpBrackets(MkListOne(MkExpCondition(CopyExpression(object), MkListOne(MkExpBrackets(list)), MkExpConstant("0")))));
2149 }
2150 else if(exp->expType && exp->expType->kind == 20)
2151 {
2152 struct Expression * argExp = GetTemplateArgExp(exp->expType->templateParameter, thisClass, 0x0);
2153
2154 if(argExp)
2155 {
2156 struct Expression * classExp = MkExpMember(argExp, MkIdentifier("dataTypeClass"));
2157 struct TypeName * typeName;
2158 struct __ecereNameSpace__ecere__sys__OldList * qualifiers = MkList();
2159 struct Declarator * declarator = SpecDeclFromString("void (*)(void * _class, void * data)", qualifiers, (((void *)0)));
2160
2161 typeName = MkTypeName(qualifiers, declarator);
2162 ProcessExpressionType(classExp);
2163 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*args), (((void *)0)), CopyExpression(classExp));
2164 DeclareMethod(__ecereNameSpace__ecere__com__eClass_FindMethod(__ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "class"), "OnFree", privateModule), "__ecereVMethodID_class_OnFree");
2165 ListAdd(exp->list, MkExpCall(MkExpBrackets(MkListOne(MkExpCast(typeName, MkExpIndex(MkExpPointer(classExp, MkIdentifier("_vTbl")), MkListOne(MkExpIdentifier(MkIdentifier("__ecereVMethodID_class_OnFree"))))))), args));
2166 }
2167 }
2168 else
2169 ListAdd(exp->list, MkExpCall(QMkExpId("ecere::com::eSystem_Delete"), args));
2170 ListAdd(exp->list, MkExpOp(CopyExpression(object), '=', MkExpConstant("0")));
2171 exp2 = (((void *)0));
2172 ProcessExpression(exp);
2173 }
2174 if(exp->type == 4)
2175 {
2176 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)))
2177 {
2178 struct Expression * argExp = GetTemplateArgExp(exp->op.exp1->expType->templateParameter, thisClass, 0x0);
2179
2180 if(argExp)
2181 {
2182 struct Expression * classExp = MkExpMember(argExp, MkIdentifier("dataTypeClass"));
2183 struct __ecereNameSpace__ecere__sys__OldList * args = MkList();
2184 struct Expression * derefExp = exp->op.exp1;
2185 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")));
2186
2187 if(exp->op.exp1->type == 6)
2188 {
2189 struct Expression * indexExp = derefExp->index.exp;
2190 struct __ecereNameSpace__ecere__sys__OldList * indexExpIndex = derefExp->index.index;
2191
2192 derefExp->index.index = (((void *)0));
2193 derefExp->index.exp = (((void *)0));
2194 FreeExpression(derefExp);
2195 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)))))));
2196 }
2197 else
2198 {
2199 struct Expression * indexExp = derefExp->op.exp2;
2200
2201 derefExp->op.exp2 = (((void *)0));
2202 FreeExpression(derefExp);
2203 derefExp = indexExp;
2204 }
2205 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*args), derefExp);
2206 ProcessExpressionType((*args).last);
2207 ProcessExpression((*args).last);
2208 __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)))));
2209 thisClass = curExternal->function ? curExternal->function->_class : (((void *)0));
2210 {
2211 struct Symbol * thisSymbol = (thisSymbol = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Symbol), thisSymbol->string = __ecereNameSpace__ecere__sys__CopyString("this"), thisSymbol->type = MkClassType(thisClass->fullName), thisSymbol);
2212
2213 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Add(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
2214 ProcessExpressionType((*args).last);
2215 ProcessExpression((*args).last);
2216 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*args), sizeExp);
2217 ProcessExpressionType((*args).last);
2218 ProcessExpression((*args).last);
2219 exp->list = MkListOne(MkExpCall(MkExpIdentifier(MkIdentifier("memcpy")), args));
2220 exp->type = 5;
2221 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
2222 FreeSymbol(thisSymbol);
2223 }
2224 thisClass = (((void *)0));
2225 return ;
2226 }
2227 }
2228 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)
2229 {
2230 struct Expression * argExp = GetTemplateArgExp(exp->op.exp2->expType->type->templateParameter, thisClass, 0x0);
2231
2232 if(argExp)
2233 {
2234 struct Expression * classExp = MkExpMember(argExp, MkIdentifier("dataTypeClass"));
2235 struct Expression * sizeExp = MkExpMember(CopyExpression(classExp), MkIdentifier("typeSize"));
2236
2237 exp->type = 5;
2238 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)))))))))))))))))))));
2239 thisClass = curExternal->function ? curExternal->function->_class : (((void *)0));
2240 {
2241 struct Symbol * thisSymbol = (thisSymbol = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Symbol), thisSymbol->string = __ecereNameSpace__ecere__sys__CopyString("this"), thisSymbol->type = MkClassType(thisClass->fullName), thisSymbol);
2242
2243 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Add(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
2244 ProcessExpressionType((*exp->list).first);
2245 ProcessExpression((*exp->list).first);
2246 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
2247 FreeSymbol(thisSymbol);
2248 }
2249 thisClass = (((void *)0));
2250 return ;
2251 }
2252 }
2253 else
2254 {
2255 if(exp->op.exp1)
2256 {
2257 if(exp->op.exp2)
2258 exp->op.exp1->tempCount = exp->op.exp2->tempCount;
2259 ProcessExpression(exp->op.exp1);
2260 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))
2261 FixReference(exp->op.exp1, 0x0);
2262 }
2263 if(exp->op.exp2)
2264 {
2265 if(exp->op.exp1)
2266 exp->op.exp2->tempCount = exp->op.exp1->tempCount;
2267 ProcessExpression(exp->op.exp2);
2268 if(exp->op.exp1 || (exp->op.op != '*' && exp->op.op != '&'))
2269 {
2270 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))
2271 {
2272 FixReference(exp->op.exp2, exp->op.exp1 ? exp->op.exp1->byReference : 0x0);
2273 }
2274 }
2275 }
2276 }
2277 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)
2278 {
2279 struct Expression * next = exp->next, * prev = exp->prev;
2280 struct Expression * derefExp = exp->op.exp2;
2281 struct Expression * refExp = exp->op.exp2->op.exp2;
2282 struct Type * expType = exp->expType, * destType = exp->destType;
2283
2284 derefExp->op.exp2 = (((void *)0));
2285 FreeExpression(derefExp);
2286 FreeType(exp->expType);
2287 FreeType(exp->destType);
2288 *exp = *refExp;
2289 exp->prev = prev;
2290 exp->next = next;
2291 ((refExp ? (__ecereClass_Expression->Destructor ? __ecereClass_Expression->Destructor(refExp) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(refExp)) : 0), refExp = 0);
2292 }
2293 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)
2294 {
2295 struct Expression * exp2 = exp->op.exp2;
2296 struct Expression * argExp = GetTemplateArgExp(exp2->expType->templateParameter, thisClass, 0x0);
2297
2298 if(argExp)
2299 {
2300 struct Expression * classExp = MkExpMember(argExp, MkIdentifier("dataTypeClass"));
2301 struct Expression * e;
2302
2303 exp->type = 5;
2304 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"))))))));
2305 thisClass = curExternal->function ? curExternal->function->_class : (((void *)0));
2306 {
2307 ProcessExpressionType(e);
2308 ProcessExpression(e);
2309 }
2310 thisClass = (((void *)0));
2311 }
2312 }
2313 }
2314 else
2315 {
2316 if(exp1)
2317 FreeExpression(exp1);
2318 if(exp2)
2319 FreeExpression(exp2);
2320 }
2321 break;
2322 }
2323 case 5:
2324 case 34:
2325 {
2326 if(exp->list)
2327 {
2328 struct Expression * e;
2329
2330 for(e = (*exp->list).first; e; e = e->next)
2331 {
2332 if(!e->next)
2333 {
2334 e->usage |= (exp->usage & (((unsigned int)(0x1)) | (((unsigned int)(0x1)) << 2) | (((unsigned int)(0x1)) << 4)));
2335 }
2336 e->tempCount = exp->tempCount;
2337 ProcessExpression(e);
2338 if(!e->next)
2339 exp->byReference = e->byReference;
2340 exp->tempCount = e->tempCount;
2341 }
2342 }
2343 break;
2344 }
2345 case 6:
2346 {
2347 struct Expression * e;
2348 struct Expression * checkedExp = exp->index.exp;
2349 unsigned int isBuiltin = 0x0;
2350
2351 while(checkedExp->type == 25 || checkedExp->type == 5 || checkedExp->type == 11)
2352 {
2353 if(checkedExp->type == 25)
2354 {
2355 isBuiltin = 0x1;
2356 break;
2357 }
2358 else if(checkedExp->type == 5)
2359 checkedExp = checkedExp->list ? (*checkedExp->list).last : (((void *)0));
2360 else
2361 checkedExp = checkedExp->cast.exp;
2362 }
2363 exp->index.exp->tempCount = exp->tempCount;
2364 exp->index.exp->usage = (exp->index.exp->usage & ~0x1) | (((unsigned int)0x1) << 0);
2365 ProcessExpression(exp->index.exp);
2366 if(exp->index.exp->expType && exp->index.exp->expType->kind == 13 && exp->index.exp->expType->type && exp->index.exp->expType->type->kind == 20)
2367 {
2368 struct Expression * argExp = GetTemplateArgExp(exp->index.exp->expType->type->templateParameter, thisClass, 0x0);
2369
2370 if(argExp)
2371 {
2372 struct Expression * classExp = MkExpMember(argExp, MkIdentifier("dataTypeClass"));
2373 struct Expression * sizeExp = MkExpMember(CopyExpression(classExp), MkIdentifier("typeSize"));
2374
2375 exp->type = 5;
2376 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))))))))))))))))));
2377 thisClass = curExternal->function ? curExternal->function->_class : (((void *)0));
2378 {
2379 struct Symbol * thisSymbol = (thisSymbol = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Symbol), thisSymbol->string = __ecereNameSpace__ecere__sys__CopyString("this"), thisSymbol->type = MkClassType(thisClass->fullName), thisSymbol);
2380
2381 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Add(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
2382 ProcessExpressionType((*exp->list).first);
2383 ProcessExpression((*exp->list).first);
2384 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
2385 FreeSymbol(thisSymbol);
2386 }
2387 thisClass = (((void *)0));
2388 return ;
2389 }
2390 }
2391 for(e = (*exp->index.index).first; e; e = e->next)
2392 {
2393 if(!e->next)
2394 e->usage = (e->usage & ~0x1) | (((unsigned int)0x1) << 0);
2395 ProcessExpression(e);
2396 }
2397 exp->tempCount = exp->index.exp->tempCount;
2398 if(exp->index.exp->expType)
2399 {
2400 struct Type * source = exp->index.exp->expType;
2401
2402 if(source->kind == 8 && source->_class && source->_class->registered && source->_class->registered != containerClass && __ecereNameSpace__ecere__com__eClass_IsDerived(source->_class->registered, containerClass))
2403 {
2404 struct __ecereNameSpace__ecere__com__Class * _class = source->_class->registered;
2405 unsigned int isArray = 0x0;
2406 struct __ecereNameSpace__ecere__com__Class * arrayClass = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "Array");
2407
2408 if(source && __ecereNameSpace__ecere__com__eClass_IsDerived(source->_class->registered, arrayClass))
2409 isArray = 0x1;
2410 if(isArray && _class->templateArgs)
2411 {
2412 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
2413 struct Declarator * decl = SpecDeclFromString(_class->templateArgs[2].dataTypeString, specs, (((void *)0)));
2414 struct TypeName * typeName = MkTypeName(specs, MkDeclaratorPointer(MkPointer((((void *)0)), (((void *)0))), decl));
2415
2416 exp->index.exp = MkExpBrackets(MkListOne(MkExpCast(typeName, MkExpMember(exp->index.exp, MkIdentifier("array")))));
2417 ProcessExpressionType(exp->index.exp);
2418 ProcessExpression(exp);
2419 }
2420 else if(isBuiltin && _class->templateArgs)
2421 {
2422 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
2423 struct Declarator * decl = SpecDeclFromString(_class->templateArgs[2].dataTypeString, specs, (((void *)0)));
2424 struct TypeName * typeName = MkTypeName(specs, MkDeclaratorPointer(MkPointer((((void *)0)), (((void *)0))), decl));
2425
2426 exp->index.exp = MkExpBrackets(MkListOne(MkExpCast(typeName, MkExpPointer(MkExpCast(QMkType("BuiltInContainer", QMkPtrDecl((((void *)0)))), exp->index.exp), MkIdentifier("data")))));
2427 ProcessExpressionType(exp->index.exp);
2428 ProcessExpression(exp);
2429 }
2430 else if(_class->templateArgs)
2431 {
2432 char iteratorType[1024];
2433 struct __ecereNameSpace__ecere__sys__OldList * declarations = MkList();
2434 struct __ecereNameSpace__ecere__sys__OldList * statements = MkList();
2435 struct __ecereNameSpace__ecere__sys__OldList * args = MkList();
2436 struct __ecereNameSpace__ecere__sys__OldList * instMembers = MkList();
2437 struct Expression * expExt;
2438 struct Context * context = PushContext();
2439
2440 sprintf(iteratorType, "Iterator<%s, %s >", _class->templateArgs[2].dataTypeString, _class->templateArgs[1].dataTypeString);
2441 ListAdd(instMembers, MkMemberInit((((void *)0)), MkInitializerAssignment(exp->index.exp)));
2442 ListAdd(declarations, MkDeclarationInst(MkInstantiationNamed(MkListOne(MkSpecifierName(iteratorType)), MkExpIdentifier(MkIdentifier("__internalIterator")), MkListOne(MkMembersInitList(instMembers)))));
2443 ListAdd(args, MkExpBrackets(exp->index.index));
2444 ListAdd(args, ((unsigned int)((exp->usage & 0x2) >> 1)) ? MkExpIdentifier(MkIdentifier("true")) : MkExpIdentifier(MkIdentifier("false")));
2445 ListAdd(statements, MkExpressionStmt(MkListOne(MkExpCall(MkExpMember(MkExpIdentifier(MkIdentifier("__internalIterator")), MkIdentifier("Index")), args))));
2446 ListAdd(statements, MkExpressionStmt(MkListOne(MkExpMember(MkExpIdentifier(MkIdentifier("__internalIterator")), MkIdentifier("data")))));
2447 exp->type = 5;
2448 exp->list = MkListOne(expExt = (MkExpExtensionCompound(MkCompoundStmt(declarations, statements))));
2449 expExt->compound->compound.context = context;
2450 PopContext(context);
2451 expExt->usage = exp->usage;
2452 ProcessExpressionType((*exp->list).first);
2453 ProcessExpressionInstPass((*exp->list).first);
2454 ProcessExpression((*exp->list).first);
2455 }
2456 }
2457 }
2458 break;
2459 }
2460 case 7:
2461 {
2462 struct Expression * e;
2463 struct Expression * memberExp;
2464 unsigned int typedObject = 0x0;
2465 struct Type * ellipsisDestType = (((void *)0));
2466 unsigned int usedEllipsis = 0x0;
2467
2468 if(exp->call.arguments)
2469 {
2470 for(e = (*exp->call.arguments).first; e; e = e->next)
2471 {
2472 int __simpleStruct2, __simpleStruct3;
2473 int __simpleStruct0, __simpleStruct1;
2474
2475 e->usage = (e->usage & ~0x1) | (((unsigned int)0x1) << 0);
2476 e->usage = (e->usage & ~0x4) | (((unsigned int)0x1) << 2);
2477 e->tempCount = (__simpleStruct0 = e->tempCount, __simpleStruct1 = exp->tempCount, (__simpleStruct0 > __simpleStruct1) ? __simpleStruct0 : __simpleStruct1);
2478 ProcessExpression(e);
2479 exp->tempCount = (__simpleStruct2 = exp->tempCount, __simpleStruct3 = e->tempCount, (__simpleStruct2 > __simpleStruct3) ? __simpleStruct2 : __simpleStruct3);
2480 }
2481 }
2482 exp->call.exp->usage = (exp->call.exp->usage & ~0x1) | (((unsigned int)0x1) << 0);
2483 exp->call.exp->usage = (exp->call.exp->usage & ~0x8) | (((unsigned int)0x1) << 3);
2484 exp->call.exp->tempCount = exp->tempCount;
2485 ProcessExpression(exp->call.exp);
2486 memberExp = (exp->call.exp->type == 8) ? exp->call.exp : (((void *)0));
2487 if(exp->call.exp->expType && exp->call.exp->expType->kind == 16)
2488 {
2489 struct __ecereNameSpace__ecere__com__Class * _class = exp->call.exp->expType->methodClass;
2490 struct __ecereNameSpace__ecere__com__Class * argClass = exp->call.exp->expType->methodClass;
2491 struct __ecereNameSpace__ecere__com__Method * method = exp->call.exp->expType->method;
2492
2493 if(method->type == 1)
2494 {
2495 char name[1024];
2496 struct TypeName * typeName;
2497 struct Declarator * decl;
2498 struct Context * back;
2499 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
2500
2501 strcpy(name, "__ecereVMethodID_");
2502 FullClassNameCat(name, method->_class->fullName, 0x0);
2503 strcat(name, "_");
2504 strcat(name, method->name);
2505 DeclareMethod(method, name);
2506 back = curContext;
2507 curContext = method->_class->symbol ? ((struct Symbol *)method->_class->symbol)->ctx : globalContext;
2508 {
2509 struct Context * context = SetupTemplatesContext(method->_class);
2510
2511 decl = SpecDeclFromString(method->dataTypeString, specs, MkDeclaratorBrackets(MkDeclaratorPointer(MkPointer((((void *)0)), (((void *)0))), (((void *)0)))));
2512 FinishTemplatesContext(context);
2513 }
2514 curContext = back;
2515 if(method->dataType && !method->dataType->staticMethod)
2516 {
2517 struct Declarator * funcDecl = GetFuncDecl(decl);
2518
2519 if(!funcDecl->function.parameters)
2520 funcDecl->function.parameters = MkList();
2521 {
2522 struct TypeName * firstParam = ((struct TypeName *)(*funcDecl->function.parameters).first);
2523 struct Specifier * firstSpec = firstParam ? (*firstParam->qualifiers).first : (((void *)0));
2524
2525 if(firstParam && firstSpec && firstSpec->type == 0 && firstSpec->specifier == VOID && !firstParam->declarator)
2526 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*funcDecl->function.parameters), (*funcDecl->function.parameters).first);
2527 }
2528 if(method->dataType->thisClass && !strcmp(method->dataType->thisClass->string, "class"))
2529 {
2530 typedObject = 0x1;
2531 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*funcDecl->function.parameters), (((void *)0)), MkTypeName(MkListOne(MkSpecifier(VOID)), MkDeclaratorPointer(MkPointer((((void *)0)), (((void *)0))), (((void *)0)))));
2532 if(!method->dataType->extraParam)
2533 __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)))));
2534 }
2535 else
2536 {
2537 __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))));
2538 }
2539 }
2540 typeName = MkTypeName(specs, decl);
2541 if(memberExp && memberExp->member.exp->expType)
2542 {
2543 if(memberExp->member.exp->expType->kind == 8 && memberExp->member.exp->expType->_class && memberExp->member.exp->expType->_class->registered)
2544 {
2545 int type = memberExp->member.exp->expType->_class->registered->type;
2546
2547 if(type != 0 || method->dataType->byReference)
2548 argClass = memberExp->member.exp->expType->_class->registered;
2549 }
2550 else
2551 {
2552 switch(memberExp->member.exp->expType->kind)
2553 {
2554 case 3:
2555 {
2556 argClass = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "int");
2557 break;
2558 }
2559 }
2560 }
2561 }
2562 if(!exp->call.exp->expType->methodClass && (!memberExp || !_class) && memberExp->member.exp->expType && memberExp->member.exp->expType->classObjectType)
2563 {
2564 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)
2565 {
2566 exp->call.exp = MkExpBrackets(MkListOne(MkExpCast(typeName, MkExpIndex(MkExpPointer(MkExpBrackets(MkListOne(CopyExpression(memberExp->member.exp))), MkIdentifier("_vTbl")), MkListOne(MkExpIdentifier(MkIdentifier(name)))))));
2567 }
2568 else
2569 {
2570 exp->call.exp = MkExpBrackets(MkListOne(MkExpCast(typeName, MkExpIndex(MkExpPointer(MkExpIdentifier(MkIdentifier("class")), MkIdentifier("_vTbl")), MkListOne(MkExpIdentifier(MkIdentifier(name)))))));
2571 }
2572 }
2573 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)))
2574 {
2575 exp->call.exp = MkExpBrackets(MkListOne(MkExpCast(typeName, MkExpIndex(MkExpPointer(CopyExpression(memberExp->member.exp), MkIdentifier("_vTbl")), MkListOne(MkExpIdentifier(MkIdentifier(name)))))));
2576 }
2577 else
2578 {
2579 char className[1024];
2580
2581 if(!_class && argClass && strcmp(argClass->fullName, "class"))
2582 _class = argClass;
2583 if(!_class)
2584 {
2585 _class = __ecereClass_int;
2586 }
2587 strcpy(className, "__ecereClass_");
2588 FullClassNameCat(className, _class->fullName, 0x1);
2589 MangleClassName(className);
2590 if(!_class->symbol)
2591 _class->symbol = FindClass(_class->fullName);
2592 DeclareClass(_class->symbol, className);
2593 exp->call.exp = MkExpBrackets(MkListOne(MkExpCast(typeName, MkExpIndex(MkExpPointer(MkExpIdentifier(MkIdentifier(className)), MkIdentifier("_vTbl")), MkListOne(MkExpIdentifier(MkIdentifier(name)))))));
2594 }
2595 }
2596 else
2597 {
2598 char name[1024];
2599
2600 strcpy(name, "__ecereMethod_");
2601 FullClassNameCat(name, method->_class->fullName, 0x0);
2602 strcat(name, "_");
2603 strcat(name, method->name);
2604 exp->call.exp = MkExpIdentifier(MkIdentifier(name));
2605 DeclareMethod(method, name);
2606 if(memberExp && memberExp->expType && method->dataType)
2607 {
2608 exp->call.exp->expType = method->dataType;
2609 method->dataType->refCount++;
2610 }
2611 }
2612 if(memberExp && (!memberExp->member.exp || !memberExp->member.exp->expType || memberExp->member.exp->expType->kind != 19))
2613 {
2614 if(method->dataType && !method->dataType->staticMethod && !method->dataType->extraParam)
2615 {
2616 if(!exp->call.arguments)
2617 exp->call.arguments = MkList();
2618 if(typedObject && memberExp->member.exp && memberExp->member.exp->expType)
2619 {
2620 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)))
2621 {
2622 if(memberExp->member.exp->type == 4 && memberExp->member.exp->op.op == '*' && !memberExp->member.exp->op.exp1)
2623 {
2624 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*exp->call.arguments), (((void *)0)), memberExp->member.exp->op.exp2);
2625 memberExp->member.exp->op.exp2 = (((void *)0));
2626 }
2627 else if(!memberExp->member.exp->byReference)
2628 {
2629 struct Expression * checkedExp = memberExp->member.exp;
2630 struct Expression * parentExp = (((void *)0));
2631 struct Expression * newExp;
2632
2633 while(((checkedExp->type == 5 || checkedExp->type == 34) && checkedExp->list) || checkedExp->type == 11)
2634 {
2635 parentExp = checkedExp;
2636 if(checkedExp->type == 5 || checkedExp->type == 34)
2637 checkedExp = (*checkedExp->list).last;
2638 else if(checkedExp->type == 11)
2639 checkedExp = checkedExp->cast.exp;
2640 }
2641 newExp = MkExpOp((((void *)0)), '&', checkedExp);
2642 if(parentExp && (parentExp->type == 5 || parentExp->type == 34))
2643 {
2644 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*parentExp->list), checkedExp);
2645 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*parentExp->list), newExp);
2646 }
2647 else if(parentExp && parentExp->type == 11)
2648 parentExp->cast.exp = newExp;
2649 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*exp->call.arguments), (((void *)0)), parentExp ? parentExp : newExp);
2650 }
2651 else
2652 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*exp->call.arguments), (((void *)0)), memberExp->member.exp);
2653 }
2654 else
2655 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*exp->call.arguments), (((void *)0)), memberExp->member.exp);
2656 if(memberExp->member.exp && memberExp->member.exp->expType && memberExp->member.exp->expType->classObjectType == 2)
2657 {
2658 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*exp->call.arguments), (((void *)0)), MkExpIdentifier(MkIdentifier("class")));
2659 }
2660 else
2661 {
2662 if(memberExp && !argClass)
2663 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*exp->call.arguments), (((void *)0)), MkExpPointer(CopyExpression(memberExp->member.exp), MkIdentifier("_class")));
2664 else
2665 {
2666 char className[1024];
2667
2668 strcpy(className, "__ecereClass_");
2669 FullClassNameCat(className, argClass->fullName, 0x1);
2670 MangleClassName(className);
2671 if(!argClass->symbol)
2672 argClass->symbol = FindClass(argClass->fullName);
2673 DeclareClass(argClass->symbol, className);
2674 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*exp->call.arguments), (((void *)0)), MkExpIdentifier(MkIdentifier(className)));
2675 }
2676 }
2677 }
2678 else
2679 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*exp->call.arguments), (((void *)0)), memberExp->member.exp);
2680 memberExp->member.exp = (((void *)0));
2681 }
2682 FreeExpression(memberExp);
2683 }
2684 }
2685 if(exp->call.arguments)
2686 {
2687 for(e = (*exp->call.arguments).first; e; e = e->next)
2688 {
2689 struct Type * destType = (e->destType && e->destType->kind == 14) ? ellipsisDestType : e->destType;
2690
2691 if(destType && (destType->classObjectType == 2 || destType->classObjectType == 3))
2692 {
2693 if(e->destType && e->destType->kind == 14)
2694 usedEllipsis = 0x1;
2695 ellipsisDestType = destType;
2696 if(e && e->expType)
2697 {
2698 struct Type * type = e->expType;
2699 struct __ecereNameSpace__ecere__com__Class * _class = (((void *)0));
2700
2701 if(type->kind == 8 && type->_class && type->_class->registered)
2702 {
2703 _class = type->_class->registered;
2704 }
2705 else if(type->kind == 19)
2706 {
2707 _class = FindClass("ecere::com::Class")->registered;
2708 }
2709 else if((type->kind == 12 || type->kind == 13) && type->type && type->type->kind == 1)
2710 {
2711 _class = FindClass("char *")->registered;
2712 }
2713 else
2714 {
2715 char string[1024] = "";
2716 struct Symbol * classSym;
2717
2718 PrintType(type, string, 0x0, 0x1);
2719 classSym = FindClass(string);
2720 if(classSym)
2721 _class = classSym->registered;
2722 }
2723 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)))
2724 {
2725 {
2726 struct Expression * checkedExp;
2727 struct Expression * parentExp;
2728 struct Expression * newExp;
2729
2730 checkedExp = e;
2731 parentExp = exp;
2732 while(((checkedExp->type == 5 || checkedExp->type == 34 || checkedExp->type == 25) && checkedExp->list) || checkedExp->type == 11)
2733 {
2734 parentExp = checkedExp;
2735 if(checkedExp->type == 5 || checkedExp->type == 34 || checkedExp->type == 25)
2736 {
2737 if(checkedExp->type == 25)
2738 {
2739 checkedExp = (*((struct Statement *)(*checkedExp->compound->compound.statements).last)->expressions).last;
2740 }
2741 else
2742 checkedExp = (*checkedExp->list).last;
2743 }
2744 else if(checkedExp->type == 11)
2745 checkedExp = checkedExp->cast.exp;
2746 }
2747 if(checkedExp && checkedExp->type == 4 && checkedExp->op.op == '*' && !checkedExp->op.exp1)
2748 {
2749 newExp = checkedExp->op.exp2;
2750 checkedExp->op.exp2 = (((void *)0));
2751 FreeExpContents(checkedExp);
2752 if(e->expType && e->expType->passAsTemplate)
2753 {
2754 char size[100];
2755
2756 ComputeTypeSize(e->expType);
2757 sprintf(size, "%d", e->expType->size);
2758 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))))));
2759 }
2760 if(parentExp->type == 7)
2761 {
2762 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*exp->call.arguments), e->prev, newExp);
2763 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*exp->call.arguments), e);
2764 e = newExp;
2765 }
2766 else if(parentExp->type == 5 || parentExp->type == 34)
2767 {
2768 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*parentExp->list), checkedExp);
2769 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*parentExp->list), newExp);
2770 }
2771 else if(parentExp->type == 11)
2772 {
2773 if(parentExp->destType && parentExp->destType->kind == 14)
2774 {
2775 FreeTypeName(parentExp->cast.typeName);
2776 parentExp->cast.typeName = MkTypeName(MkListOne(MkSpecifier(VOID)), MkDeclaratorPointer(MkPointer((((void *)0)), (((void *)0))), (((void *)0))));
2777 }
2778 parentExp->cast.exp = newExp;
2779 }
2780 else if(parentExp->type == 25)
2781 {
2782 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*((struct Statement *)(*parentExp->compound->compound.statements).last)->expressions), checkedExp);
2783 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*((struct Statement *)(*parentExp->compound->compound.statements).last)->expressions), newExp);
2784 }
2785 e->byReference = 0x1;
2786 FreeType(checkedExp->expType);
2787 FreeType(checkedExp->destType);
2788 ((checkedExp ? (__ecereClass_Expression->Destructor ? __ecereClass_Expression->Destructor(checkedExp) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(checkedExp)) : 0), checkedExp = 0);
2789 }
2790 else if((!e->byReference && (!e->expType || !e->expType->classObjectType)) || (_class && _class->type == 5))
2791 {
2792 struct Expression * checkedExp;
2793 struct Expression * parentExp;
2794 struct Expression * newExp;
2795
2796 {
2797 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;
2798
2799 if(_class && _class->type != 5 && _class->type != 0 && _class->type != 1 && !hasAddress)
2800 {
2801 struct Context * context = PushContext();
2802 struct Declarator * decl;
2803 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
2804 char typeString[1024];
2805 struct Expression * newExp = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Expression);
2806
2807 typeString[0] = '\0';
2808 *newExp = *e;
2809 if(exp->destType)
2810 exp->destType->refCount++;
2811 newExp->prev = (((void *)0));
2812 newExp->next = (((void *)0));
2813 newExp->expType = (((void *)0));
2814 PrintType(e->expType, typeString, 0x0, 0x1);
2815 decl = SpecDeclFromString(typeString, specs, (((void *)0)));
2816 newExp->destType = ProcessType(specs, decl);
2817 curContext = context;
2818 e->type = 25;
2819 e->compound = MkCompoundStmt(MkListOne(MkDeclaration(specs, MkListOne(MkInitDeclarator(MkDeclaratorIdentifier(MkIdentifier("__internalValue")), MkInitializerAssignment(newExp))))), MkListOne(MkExpressionStmt(MkListOne(MkExpIdentifier(MkIdentifier("__internalValue"))))));
2820 e->compound->compound.context = context;
2821 PopContext(context);
2822 curContext = context->parent;
2823 }
2824 }
2825 checkedExp = e;
2826 parentExp = exp;
2827 while(((checkedExp->type == 5 || checkedExp->type == 34 || checkedExp->type == 25) && checkedExp->list) || checkedExp->type == 11)
2828 {
2829 parentExp = checkedExp;
2830 if(checkedExp->type == 5 || checkedExp->type == 34 || checkedExp->type == 25)
2831 {
2832 if(checkedExp->type == 25)
2833 {
2834 checkedExp = (*((struct Statement *)(*checkedExp->compound->compound.statements).last)->expressions).last;
2835 }
2836 else
2837 checkedExp = (*checkedExp->list).last;
2838 }
2839 else if(checkedExp->type == 11)
2840 checkedExp = checkedExp->cast.exp;
2841 }
2842 newExp = MkExpOp((((void *)0)), '&', checkedExp);
2843 newExp->byReference = 0x1;
2844 if(parentExp->type == 7)
2845 {
2846 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*exp->call.arguments), e->prev, newExp);
2847 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*exp->call.arguments), e);
2848 e = newExp;
2849 }
2850 else if(parentExp->type == 5 || parentExp->type == 34)
2851 {
2852 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*parentExp->list), checkedExp);
2853 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*parentExp->list), newExp);
2854 }
2855 else if(parentExp->type == 11)
2856 parentExp->cast.exp = newExp;
2857 else if(parentExp->type == 5 || parentExp->type == 25)
2858 {
2859 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*((struct Statement *)(*parentExp->compound->compound.statements).last)->expressions), checkedExp);
2860 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*((struct Statement *)(*parentExp->compound->compound.statements).last)->expressions), newExp);
2861 }
2862 }
2863 }
2864 }
2865 if(destType->classObjectType == 2)
2866 {
2867 char className[1024];
2868
2869 if(!_class && type->kind == 13 && type->type && type->type->kind == 1)
2870 _class = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "String");
2871 if(!_class)
2872 _class = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "int");
2873 if(!strcmp(_class->name, "class"))
2874 {
2875 strcpy(className, "class");
2876 }
2877 else
2878 {
2879 strcpy(className, "__ecereClass_");
2880 FullClassNameCat(className, _class->fullName, 0x1);
2881 MangleClassName(className);
2882 if(!_class->symbol)
2883 _class->symbol = FindClass(_class->fullName);
2884 DeclareClass(_class->symbol, className);
2885 }
2886 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*exp->call.arguments), e->prev, MkExpIdentifier(MkIdentifier(className)));
2887 }
2888 }
2889 }
2890 {
2891 FixReference(e, 0x1);
2892 }
2893 }
2894 if(ellipsisDestType)
2895 {
2896 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))
2897 {
2898 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*exp->call.arguments), (*exp->call.arguments).last, MkExpConstant("0"));
2899 }
2900 }
2901 }
2902 break;
2903 }
2904 case 8:
2905 {
2906 unsigned int changeToPtr = 0x0;
2907 unsigned int noHead = 0x0;
2908 struct Type * type = exp->member.exp->expType;
2909 struct Specifier * memberClassSpecifier = exp->member.member ? exp->member.member->_class : (((void *)0));
2910
2911 if(exp->member.member)
2912 exp->member.member->_class = (((void *)0));
2913 if(type && type->kind == 20)
2914 {
2915 struct Type * baseType = ProcessTemplateParameterType(type->templateParameter);
2916
2917 if(baseType)
2918 type = baseType;
2919 }
2920 if(type && exp->member.member && !type->directClassAccess)
2921 {
2922 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)));
2923 struct __ecereNameSpace__ecere__com__Property * prop = (((void *)0));
2924 struct __ecereNameSpace__ecere__com__ClassProperty * classProperty = (((void *)0));
2925 struct __ecereNameSpace__ecere__com__Method * method = (((void *)0));
2926 struct __ecereNameSpace__ecere__com__Class * convertTo = (((void *)0));
2927 struct __ecereNameSpace__ecere__com__DataMember * member = (((void *)0));
2928 unsigned int thisPtr = exp->member.thisPtr;
2929
2930 if(type->kind == 19 && exp->member.exp->type == 26)
2931 _class = __ecereNameSpace__ecere__com__eSystem_FindClass(privateModule, "ecere::com::Class");
2932 if(!_class)
2933 {
2934 char string[2048] = "";
2935 struct Symbol * classSym;
2936
2937 PrintType(type, string, 0x0, 0x1);
2938 classSym = FindClass(string);
2939 _class = classSym ? classSym->registered : (((void *)0));
2940 }
2941 if(_class && exp->member.memberType == 3)
2942 {
2943 if(!thisPtr && !exp->member.member->classSym)
2944 member = __ecereNameSpace__ecere__com__eClass_FindDataMember(_class, exp->member.member->string, (((void *)0)), (((void *)0)), (((void *)0)));
2945 if(!member)
2946 member = __ecereNameSpace__ecere__com__eClass_FindDataMember(_class, exp->member.member->string, privateModule, (((void *)0)), (((void *)0)));
2947 }
2948 else if(_class && exp->member.memberType == 1)
2949 {
2950 if(!thisPtr && !exp->member.member->classSym)
2951 prop = __ecereNameSpace__ecere__com__eClass_FindProperty(_class, exp->member.member->string, (((void *)0)));
2952 if(!prop)
2953 prop = __ecereNameSpace__ecere__com__eClass_FindProperty(_class, exp->member.member->string, privateModule);
2954 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)))
2955 {
2956 member = __ecereNameSpace__ecere__com__eClass_FindDataMember(_class, exp->member.member->string, privateModule, (((void *)0)), (((void *)0)));
2957 if(member)
2958 {
2959 exp->member.memberType = 3;
2960 prop = (((void *)0));
2961 }
2962 else
2963 {
2964 if(((unsigned int)((exp->usage & 0x40) >> 6)))
2965 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "cannot obtain address of property\n", (((void *)0))));
2966 else if(!prop->Get)
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 else if(((unsigned int)((exp->usage & 0x80) >> 7)))
2969 Compiler_Error(__ecereNameSpace__ecere__GetTranslatedString(__thisModule, "no get defined for property %s of class %s\n", (((void *)0))), prop->name, prop->_class->fullName);
2970 }
2971 }
2972 }
2973 else if(_class && exp->member.memberType == 2)
2974 {
2975 if(!thisPtr)
2976 method = __ecereNameSpace__ecere__com__eClass_FindMethod(_class, exp->member.member->string, (((void *)0)));
2977 if(!method)
2978 method = __ecereNameSpace__ecere__com__eClass_FindMethod(_class, exp->member.member->string, privateModule);
2979 }
2980 else if(_class && exp->member.memberType == 4)
2981 {
2982 convertTo = _class;
2983 _class = FindClass(exp->member.member->string)->registered;
2984 prop = __ecereNameSpace__ecere__com__eClass_FindProperty(_class, convertTo->fullName, privateModule);
2985 }
2986 else if(_class && exp->member.memberType == 5)
2987 {
2988 classProperty = __ecereNameSpace__ecere__com__eClass_FindClassProperty(_class, exp->member.member->string);
2989 }
2990 if(prop)
2991 {
2992 if(((unsigned int)((exp->usage & 0x1) >> 0)))
2993 {
2994 if(prop->Get)
2995 {
2996 char getName[1024], setName[1024];
2997 struct Expression * ptr = exp->member.exp;
2998 struct __ecereNameSpace__ecere__com__Class * propertyClass;
2999 char * nameToUse = convertTo ? setName : getName;
3000
3001 FreeIdentifier(exp->member.member);
3002 exp->member.exp->usage = (exp->member.exp->usage & ~0x1) | (((unsigned int)0x1) << 0);
3003 ProcessExpression(exp->member.exp);
3004 DeclareProperty(prop, setName, getName);
3005 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);
3006 if(propertyClass && propertyClass->type == 2)
3007 {
3008 struct __ecereNameSpace__ecere__sys__OldList * args = MkList();
3009
3010 if(((unsigned int)((exp->usage & 0x20) >> 5)))
3011 {
3012 char className[1024];
3013 struct Declaration * decl;
3014 struct Declarator * declarator;
3015 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList(), * decls = MkList();
3016 struct Expression * tempExp;
3017
3018 sprintf(className, "__simpleStruct%d", curContext->simpleID++);
3019 declarator = SpecDeclFromString(propertyClass->dataTypeString, specs, MkDeclaratorIdentifier(MkIdentifier(className)));
3020 ListAdd(decls, MkInitDeclarator(declarator, (((void *)0))));
3021 decl = MkDeclaration(specs, decls);
3022 if(!curCompound->compound.declarations)
3023 curCompound->compound.declarations = MkList();
3024 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*curCompound->compound.declarations), (((void *)0)), decl);
3025 tempExp = QMkExpId(className);
3026 tempExp->expType = MkClassType(propertyClass->fullName);
3027 exp->op.exp1 = tempExp;
3028 exp->op.exp2 = MkExpCall(QMkExpId(nameToUse), args);
3029 exp->op.op = '=';
3030 exp->type = 4;
3031 }
3032 else
3033 {
3034 exp->type = 7;
3035 exp->call.exp = QMkExpId(nameToUse);
3036 exp->call.arguments = args;
3037 }
3038 ListAdd(args, FixReference(ptr, 0x1));
3039 }
3040 else if(propertyClass && propertyClass->type == 3)
3041 {
3042 struct __ecereNameSpace__ecere__sys__OldList * args = MkList();
3043
3044 ListAdd(args, FixReference(ptr, 0x1));
3045 exp->type = 7;
3046 exp->call.exp = QMkExpId(nameToUse);
3047 exp->call.arguments = args;
3048 }
3049 else if(propertyClass && propertyClass->type == 1)
3050 {
3051 struct __ecereNameSpace__ecere__sys__OldList * args = MkList();
3052 char className[1024];
3053 struct Declaration * decl;
3054 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList(), * decls = MkList();
3055 struct Expression * tempExp;
3056
3057 className[0] = (char)0;
3058 FullClassNameCat(className, propertyClass->fullName, 0x0);
3059 ListAdd(specs, MkStructOrUnion(3, MkIdentifier(className), (((void *)0))));
3060 sprintf(className, "__simpleStruct%d", curContext->simpleID++);
3061 ListAdd(decls, MkInitDeclarator(MkDeclaratorIdentifier(MkIdentifier(className)), (((void *)0))));
3062 decl = MkDeclaration(specs, decls);
3063 if(curCompound)
3064 {
3065 if(!curCompound->compound.declarations)
3066 curCompound->compound.declarations = MkList();
3067 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*curCompound->compound.declarations), (((void *)0)), decl);
3068 }
3069 tempExp = QMkExpId(className);
3070 tempExp->expType = MkClassType(propertyClass->fullName);
3071 if(convertTo)
3072 {
3073 ListAdd(args, FixReference(CopyExpression(tempExp), 0x1));
3074 ListAdd(args, FixReference(ptr, 0x1));
3075 }
3076 else
3077 {
3078 ListAdd(args, FixReference(ptr, 0x1));
3079 ListAdd(args, FixReference(CopyExpression(tempExp), 0x1));
3080 }
3081 if(((unsigned int)((exp->usage & 0x20) >> 5)))
3082 {
3083 exp->type = 7;
3084 exp->call.exp = QMkExpId(nameToUse);
3085 exp->call.arguments = args;
3086 FreeExpression(tempExp);
3087 }
3088 else
3089 {
3090 exp->type = 5;
3091 exp->list = MkList();
3092 ListAdd(exp->list, MkExpCall(QMkExpId(nameToUse), args));
3093 if(((unsigned int)((exp->usage & 0x10) >> 4)))
3094 {
3095 ListAdd(exp->list, FixReference(tempExp, 0x1));
3096 exp->byReference = 0x1;
3097 }
3098 else
3099 ListAdd(exp->list, tempExp);
3100 }
3101 }
3102 else
3103 {
3104 exp->type = 7;
3105 exp->call.exp = QMkExpId(nameToUse);
3106 exp->call.arguments = MkList();
3107 ListAdd(exp->call.arguments, FixReference(ptr, 0x1));
3108 }
3109 }
3110 else if(prop->conversion)
3111 {
3112 void * prev = exp->prev, * next = exp->next;
3113
3114 *exp = *exp->member.exp;
3115 exp->prev = prev;
3116 exp->next = next;
3117 }
3118 }
3119 }
3120 else if(classProperty)
3121 {
3122 if(((unsigned int)((exp->usage & 0x1) >> 0)))
3123 {
3124 if(classProperty->Get)
3125 {
3126 struct Identifier * id = exp->member.member;
3127 struct Expression * classExp = exp->member.exp;
3128
3129 exp->type = 7;
3130 exp->call.exp = MkExpIdentifier(MkIdentifier("ecere::com::eClass_GetProperty"));
3131 exp->call.arguments = MkList();
3132 ListAdd(exp->call.arguments, classExp);
3133 ListAdd(exp->call.arguments, MkExpString(QMkString(id->string)));
3134 FreeIdentifier(id);
3135 ProcessExpression(exp);
3136 return ;
3137 }
3138 }
3139 }
3140 else if(method)
3141 {
3142 if((((unsigned int)((exp->usage & 0x1) >> 0)) || exp->member.exp->expType->kind == 19) && !((unsigned int)((exp->usage & 0x8) >> 3)))
3143 {
3144 char name[1024];
3145
3146 FreeIdentifier(exp->member.member);
3147 exp->member.exp->usage = (exp->member.exp->usage & ~0x1) | (((unsigned int)0x1) << 0);
3148 ProcessExpression(exp->member.exp);
3149 if(method->type == 1)
3150 {
3151 strcpy(name, "__ecereVMethodID_");
3152 FullClassNameCat(name, method->_class->fullName, 0x0);
3153 strcat(name, "_");
3154 strcat(name, method->name);
3155 exp->type = 6;
3156 if(memberClassSpecifier)
3157 {
3158 char className[1024];
3159
3160 strcpy(className, "__ecereClass_");
3161 FullClassNameCat(className, _class->fullName, 0x1);
3162 MangleClassName(className);
3163 if(!_class->symbol)
3164 _class->symbol = FindClass(_class->fullName);
3165 DeclareClass(_class->symbol, className);
3166 exp->index.exp = MkExpPointer(MkExpIdentifier(MkIdentifier(className)), MkIdentifier("_vTbl"));
3167 }
3168 else
3169 {
3170 if(exp->thisPtr && _class->type != 0)
3171 {
3172 FreeExpression(exp->member.exp);
3173 exp->index.exp = MkExpPointer(MkExpIdentifier(MkIdentifier("class")), MkIdentifier("_vTbl"));
3174 }
3175 else
3176 exp->index.exp = MkExpPointer(exp->member.exp, MkIdentifier("_vTbl"));
3177 }
3178 exp->index.index = MkListOne(QMkExpId(name));
3179 DeclareMethod(method, name);
3180 }
3181 else
3182 {
3183 FreeExpression(exp->member.exp);
3184 exp->type = 0;
3185 strcpy(name, "__ecereMethod_");
3186 FullClassNameCat(name, method->_class->fullName, 0x0);
3187 strcat(name, "_");
3188 strcat(name, method->name);
3189 exp->identifier = MkIdentifier(name);
3190 DeclareMethod(method, name);
3191 }
3192 }
3193 }
3194 else if(member)
3195 {
3196 if(((unsigned int)((exp->usage & 0x1) >> 0)))
3197 {
3198 exp->member.exp->usage = (exp->member.exp->usage & ~0x1) | (((unsigned int)0x1) << 0);
3199 }
3200 ProcessExpression(exp->member.exp);
3201 if(type->kind == 8)
3202 DeclareStruct(type->_class->registered->fullName, 0x0);
3203 if(_class->type == 5)
3204 {
3205 noHead = 0x1;
3206 }
3207 else if(_class->type == 1)
3208 {
3209 changeToPtr = 0x1;
3210 }
3211 else if(_class->type == 2)
3212 {
3213 struct __ecereNameSpace__ecere__sys__OldList * list = MkList();
3214 char mask[32], shift[10];
3215 struct __ecereNameSpace__ecere__sys__OldList * specs = MkList();
3216 struct __ecereNameSpace__ecere__com__BitMember * bitMember = (struct __ecereNameSpace__ecere__com__BitMember *)member;
3217 struct Declarator * decl = SpecDeclFromString(bitMember->dataTypeString, specs, (((void *)0)));
3218 struct TypeName * type = MkTypeName(specs, decl);
3219
3220 if(bitMember->mask > (0xffffffff))
3221 sprintf(mask, ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? "0x%I64XLL" : "0x%llXLL"), bitMember->mask);
3222 else
3223 sprintf(mask, ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? "0x%I64X" : "0x%llX"), bitMember->mask);
3224 sprintf(shift, "%d", bitMember->pos);
3225 FreeIdentifier(exp->member.member);
3226 ListAdd(list, MkExpCast(type, MkExpBrackets(MkListOne(MkExpOp(MkExpBrackets(MkListOne(MkExpOp(exp->member.exp, '&', MkExpConstant(mask)))), RIGHT_OP, MkExpConstant(shift))))));
3227 exp->type = 5;
3228 exp->list = list;
3229 }
3230 else if(_class->type == 3)
3231 {
3232 }
3233 else
3234 {
3235 if(thisPtr)
3236 {
3237 char pointerName[1024];
3238
3239 strcpy(pointerName, "__ecerePointer_");
3240 FullClassNameCat(pointerName, type->_class->registered->fullName, 0x0);
3241 FreeIdentifier(exp->member.exp->identifier);
3242 exp->member.exp->identifier = MkIdentifier(pointerName);
3243 }
3244 else
3245 {
3246 struct Expression * bytePtr, * e;
3247 struct Expression * classExp;
3248 struct Expression * checkedExp;
3249 char structName[1024];
3250 char className[1024];
3251
3252 strcpy(className, "__ecereClass_");
3253 FullClassNameCat(className, member->_class->fullName, 0x1);
3254 MangleClassName(className);
3255 if(!member->_class->symbol)
3256 member->_class->symbol = FindClass(member->_class->fullName);
3257 DeclareClass(member->_class->symbol, className);
3258 DeclareStruct(member->_class->fullName, 0x0);
3259 structName[0] = (char)0;
3260 FullClassNameCat(structName, member->_class->fullName, 0x0);
3261 checkedExp = exp->member.exp;
3262 while(((checkedExp->type == 5 || checkedExp->type == 34) && checkedExp->list && (*checkedExp->list).count == 1) || checkedExp->type == 11)
3263 {
3264 if(checkedExp->type == 5 || checkedExp->type == 34)
3265 checkedExp = (*checkedExp->list).last;
3266 else if(checkedExp->type == 11)
3267 checkedExp = checkedExp->cast.exp;
3268 }
3269 if(checkedExp->type != 0 && checkedExp->type != 2 && checkedExp->type != 8 && checkedExp->type != 9)
3270 {
3271 int __simpleStruct0, __simpleStruct1;
3272 char ecereTemp[100];
3273 struct Statement * compound;
3274 struct __ecereNameSpace__ecere__sys__OldList * list = MkList();
3275 struct Context * context = PushContext();
3276
3277 if(exp->member.exp->tempCount > exp->tempCount)
3278 exp->tempCount = exp->member.exp->tempCount;
3279 exp->tempCount++;
3280 curExternal->function->tempCount = (__simpleStruct0 = curExternal->function->tempCount, __simpleStruct1 = exp->tempCount, (__simpleStruct0 > __simpleStruct1) ? __simpleStruct0 : __simpleStruct1);
3281 sprintf(ecereTemp, "__ecTemp%d", exp->tempCount);
3282 curContext = context;
3283 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)));
3284 if(member->_class->fixed)
3285 {
3286 if(member->_class->templateClass ? member->_class->templateClass->offset : member->_class->offset)
3287 {
3288 char string[256];
3289
3290 sprintf(string, "%d", member->_class->templateClass ? member->_class->templateClass->offset : member->_class->offset);
3291 e = QBrackets(MkExpOp(QMkExpId(ecereTemp), '+', MkExpConstant(string)));
3292 }
3293 else
3294 e = QMkExpId(ecereTemp);
3295 }
3296 else
3297 {
3298 e = QBrackets(MkExpOp(QMkExpId(ecereTemp), '+', MkExpPointer(QMkExpId(className), MkIdentifier("offset"))));
3299 }
3300 compound->compound.context = context;
3301 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)))));
3302 exp->member.exp = MkExpExtensionCompound(compound);
3303 PopContext(context);
3304 curContext = context->parent;
3305 }
3306 else
3307 {
3308 bytePtr = MkExpCast(QMkType("char", QMkPtrDecl((((void *)0)))), exp->member.exp);
3309 if(member->_class->fixed)
3310 {
3311 if(member->_class->templateClass ? member->_class->templateClass->offset : member->_class->offset)
3312 {
3313 char string[256];
3314
3315 sprintf(string, "%d", member->_class->templateClass ? member->_class->templateClass->offset : member->_class->offset);
3316 e = QBrackets(QBrackets(MkExpOp(bytePtr, '+', MkExpConstant(string))));
3317 }
3318 else
3319 e = bytePtr;
3320 }
3321 else
3322 e = QBrackets(QBrackets(MkExpOp(bytePtr, '+', MkExpPointer(QMkExpId(className), MkIdentifier("offset")))));
3323 exp->member.exp = QBrackets(MkExpCast(MkTypeName(MkListOne(MkStructOrUnion(3, MkIdentifier(structName), (((void *)0)))), QMkPtrDecl((((void *)0)))), e));
3324 }
3325 }
3326 exp->type = 9;
3327 }
3328 }
3329 }
3330 FreeSpecifier(memberClassSpecifier);
3331 if(exp->type == 8 || exp->type == 9)
3332 {
3333 exp->member.exp->usage = (exp->member.exp->usage & ~0x1) | (((unsigned int)0x1) << 0);
3334 exp->member.exp->usage = (exp->member.exp->usage & ~0x10) | (((unsigned int)0x1) << 4);
3335 exp->member.exp->tempCount = exp->tempCount;
3336 ProcessExpression(exp->member.exp);
3337 exp->tempCount = exp->member.exp->tempCount;
3338 if((changeToPtr && exp->member.exp->byReference) || noHead)
3339 exp->type = 9;
3340 }
3341 break;
3342 }
3343 case 25:
3344 {
3345 ((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));
3346 ProcessStatement(exp->compound);
3347 break;
3348 }
3349 case 9:
3350 {
3351 exp->member.exp->usage = (exp->member.exp->usage & ~0x1) | (((unsigned int)0x1) << 0);
3352 ProcessExpression(exp->member.exp);
3353 break;
3354 }
3355 case 10:
3356 {
3357 struct Specifier * spec = exp->typeName->qualifiers ? (*exp->typeName->qualifiers).first : (((void *)0));
3358
3359 if(spec && spec->type == 8 && !exp->typeName->declarator)
3360 {
3361 struct Expression * argExp = GetTemplateArgExp(spec->templateParameter, thisClass, 0x0);
3362
3363 if(argExp)
3364 {
3365 struct Expression * classExp;
3366
3367 FreeTypeName(exp->typeName);
3368 classExp = MkExpMember(argExp, MkIdentifier("dataTypeClass"));
3369 exp->type = 5;
3370 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"))));
3371 ProcessExpressionType(exp);
3372 ProcessExpression(exp);
3373 }
3374 }
3375 break;
3376 }
3377 case 11:
3378 {
3379 if(exp->cast.exp)
3380 {
3381 exp->cast.exp->usage |= exp->usage & (((unsigned int)(0x1)) | (((unsigned int)(0x1)) << 4));
3382 ProcessExpression(exp->cast.exp);
3383 if(exp->cast.exp->byReference)
3384 exp->byReference = exp->cast.exp->byReference;
3385 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 *"))))
3386 exp->byReference = 0x1;
3387 }
3388 break;
3389 }
3390 case 12:
3391 {
3392 struct Expression * e;
3393
3394 if(((unsigned int)((exp->usage & 0x1) >> 0)))
3395 exp->cond.cond->usage = (exp->cond.cond->usage & ~0x1) | (((unsigned int)0x1) << 0);
3396 ProcessExpression(exp->cond.cond);
3397 for(e = (*exp->cond.exp).first; e; e = e->next)
3398 {
3399 if(!e->next && ((unsigned int)((exp->usage & 0x1) >> 0)))
3400 e->usage = (e->usage & ~0x1) | (((unsigned int)0x1) << 0);
3401 ProcessExpression(e);
3402 }
3403 if(((unsigned int)((exp->usage & 0x1) >> 0)))
3404 exp->cond.elseExp->usage = (exp->cond.elseExp->usage & ~0x1) | (((unsigned int)0x1) << 0);
3405 ProcessExpression(exp->cond.elseExp);
3406 break;
3407 }
3408 case 26:
3409 {
3410 if(exp->_classExp.specifiers && (*exp->_classExp.specifiers).first && ((struct Specifier *)(*exp->_classExp.specifiers).first)->type == 8)
3411 {
3412 struct Specifier * spec = (*exp->_classExp.specifiers).first;
3413 struct Expression * argExp = GetTemplateArgExp(spec->templateParameter, thisClass, 0x1);
3414
3415 if(argExp)
3416 {
3417 FreeList(exp->_classExp.specifiers, FreeSpecifier);
3418 if(exp->_classExp.decl)
3419 FreeDeclarator(exp->_classExp.decl);
3420 exp->type = 8;
3421 exp->member.exp = argExp;
3422 exp->member.member = MkIdentifier("dataTypeClass");
3423 ProcessExpressionType(argExp);
3424 ProcessExpression(exp);
3425 }
3426 }
3427 else
3428 {
3429 char className[1024];
3430 char * string = StringFromSpecDecl(exp->_classExp.specifiers, exp->_classExp.decl);
3431
3432 strcpy(className, "__ecereClass_");
3433 FullClassNameCat(className, string, 0x1);
3434 MangleClassName(className);
3435 DeclareClass(FindClass(string), className);
3436 (__ecereNameSpace__ecere__com__eSystem_Delete(string), string = 0);
3437 FreeList(exp->_classExp.specifiers, FreeSpecifier);
3438 if(exp->_classExp.decl)
3439 FreeDeclarator(exp->_classExp.decl);
3440 exp->type = 0;
3441 exp->identifier = MkIdentifier(className);
3442 }
3443 break;
3444 }
3445 case 36:
3446 {
3447 ProcessExpression(exp->vaArg.exp);
3448 break;
3449 }
3450 case 35:
3451 {
3452 ProcessInitializer(exp->initializer.initializer);
3453 break;
3454 }
3455 }
3456 FixRefExp(exp);
3457 yylloc = oldyylloc;
3458 }
3459
3460 static void ProcessInitializer(struct Initializer * init)
3461 {
3462 switch(init->type)
3463 {
3464 case 0:
3465 init->exp->usage = (init->exp->usage & ~0x1) | (((unsigned int)0x1) << 0);
3466 ProcessExpression(init->exp);
3467 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)
3468 {
3469 FixReference(init->exp, 0x1);
3470 }
3471 else if(init->exp->destType && init->exp->destType->kind == 8)
3472 FixReference(init->exp, 0x0);
3473 break;
3474 case 1:
3475 {
3476 struct Initializer * i;
3477
3478 for(i = (*init->list).first; i; i = i->next)
3479 ProcessInitializer(i);
3480 break;
3481 }
3482 }
3483 }
3484
3485 static void ProcessDeclaration(struct Declaration * decl)
3486 {
3487 switch(decl->type)
3488 {
3489 case 1:
3490 {
3491 if(decl->declarators)
3492 {
3493 struct InitDeclarator * d;
3494
3495 for(d = (*decl->declarators).first; d; d = d->next)
3496 {
3497 if(d->initializer)
3498 ProcessInitializer(d->initializer);
3499 }
3500 }
3501 break;
3502 }
3503 }
3504 }
3505
3506 static void ProcessStatement(struct Statement * stmt)
3507 {
3508 switch(stmt->type)
3509 {
3510 case 0:
3511 ProcessStatement(stmt->labeled.stmt);
3512 break;
3513 case 1:
3514 if(stmt->caseStmt.exp)
3515 {
3516 stmt->caseStmt.exp->usage = (stmt->caseStmt.exp->usage & ~0x1) | (((unsigned int)0x1) << 0);
3517 ProcessExpression(stmt->caseStmt.exp);
3518 }
3519 if(stmt->caseStmt.stmt)
3520 ProcessStatement(stmt->caseStmt.stmt);
3521 break;
3522 case 2:
3523 {
3524 if(stmt->compound.context)
3525 {
3526 struct Declaration * decl;
3527 struct Statement * s;
3528 struct Statement * prevCompound = curCompound;
3529 struct Context * prevContext = curContext;
3530
3531 if(!stmt->compound.isSwitch)
3532 {
3533 curCompound = stmt;
3534 curContext = stmt->compound.context;
3535 }
3536 if(stmt->compound.declarations)
3537 {
3538 for(decl = (*stmt->compound.declarations).first; decl; decl = decl->next)
3539 ProcessDeclaration(decl);
3540 }
3541 if(stmt->compound.statements)
3542 {
3543 for(s = (*stmt->compound.statements).first; s; s = s->next)
3544 ProcessStatement(s);
3545 }
3546 curContext = prevContext;
3547 curCompound = prevCompound;
3548 }
3549 break;
3550 }
3551 case 3:
3552 {
3553 struct Expression * exp;
3554
3555 if(stmt->expressions)
3556 {
3557 for(exp = (*stmt->expressions).first; exp; exp = exp->next)
3558 {
3559 ProcessExpression(exp);
3560 }
3561 }
3562 break;
3563 }
3564 case 4:
3565 {
3566 if(stmt->ifStmt.exp)
3567 {
3568 struct Expression * exp;
3569
3570 ((struct Expression *)(*stmt->ifStmt.exp).last)->usage = (((struct Expression *)(*stmt->ifStmt.exp).last)->usage & ~0x1) | (((unsigned int)0x1) << 0);
3571 for(exp = (*stmt->ifStmt.exp).first; exp; exp = exp->next)
3572 {
3573 ProcessExpression(exp);
3574 }
3575 }
3576 if(stmt->ifStmt.stmt)
3577 ProcessStatement(stmt->ifStmt.stmt);
3578 if(stmt->ifStmt.elseStmt)
3579 ProcessStatement(stmt->ifStmt.elseStmt);
3580 break;
3581 }
3582 case 5:
3583 {
3584 struct Expression * exp;
3585
3586 ((struct Expression *)(*stmt->switchStmt.exp).last)->usage = (((struct Expression *)(*stmt->switchStmt.exp).last)->usage & ~0x1) | (((unsigned int)0x1) << 0);
3587 for(exp = (*stmt->switchStmt.exp).first; exp; exp = exp->next)
3588 {
3589 ProcessExpression(exp);
3590 }
3591 ProcessStatement(stmt->switchStmt.stmt);
3592 break;
3593 }
3594 case 6:
3595 {
3596 struct Expression * exp;
3597
3598 ((struct Expression *)(*stmt->whileStmt.exp).last)->usage = (((struct Expression *)(*stmt->whileStmt.exp).last)->usage & ~0x1) | (((unsigned int)0x1) << 0);
3599 for(exp = (*stmt->whileStmt.exp).first; exp; exp = exp->next)
3600 {
3601 ProcessExpression(exp);
3602 }
3603 ProcessStatement(stmt->whileStmt.stmt);
3604 break;
3605 }
3606 case 7:
3607 {
3608 struct Expression * exp;
3609
3610 if(stmt->doWhile.exp && (*stmt->doWhile.exp).last)
3611 {
3612 ((struct Expression *)(*stmt->doWhile.exp).last)->usage = (((struct Expression *)(*stmt->doWhile.exp).last)->usage & ~0x1) | (((unsigned int)0x1) << 0);
3613 for(exp = (*stmt->doWhile.exp).first; exp; exp = exp->next)
3614 {
3615 ProcessExpression(exp);
3616 }
3617 }
3618 if(stmt->doWhile.stmt)
3619 ProcessStatement(stmt->doWhile.stmt);
3620 break;
3621 }
3622 case 8:
3623 {
3624 struct Expression * exp;
3625
3626 if(stmt->forStmt.init)
3627 ProcessStatement(stmt->forStmt.init);
3628 if(stmt->forStmt.check)
3629 {
3630 if(stmt->forStmt.check->expressions)
3631 {
3632 ((struct Expression *)(*stmt->forStmt.check->expressions).last)->usage = (((struct Expression *)(*stmt->forStmt.check->expressions).last)->usage & ~0x1) | (((unsigned int)0x1) << 0);
3633 }
3634 ProcessStatement(stmt->forStmt.check);
3635 }
3636 if(stmt->forStmt.increment)
3637 {
3638 for(exp = (*stmt->forStmt.increment).first; exp; exp = exp->next)
3639 {
3640 ProcessExpression(exp);
3641 }
3642 }
3643 if(stmt->forStmt.stmt)
3644 ProcessStatement(stmt->forStmt.stmt);
3645 break;
3646 }
3647 case 9:
3648 break;
3649 case 10:
3650 break;
3651 case 11:
3652 break;
3653 case 12:
3654 {
3655 struct Expression * exp;
3656
3657 if(stmt->expressions)
3658 {
3659 ((struct Expression *)(*stmt->expressions).last)->usage = (((struct Expression *)(*stmt->expressions).last)->usage & ~0x1) | (((unsigned int)0x1) << 0);
3660 for(exp = (*stmt->expressions).first; exp; exp = exp->next)
3661 {
3662 ProcessExpression(exp);
3663 }
3664 }
3665 break;
3666 }
3667 case 14:
3668 {
3669 ProcessDeclaration(stmt->decl);
3670 break;
3671 }
3672 case 13:
3673 {
3674 struct AsmField * field;
3675
3676 if(stmt->asmStmt.inputFields)
3677 {
3678 for(field = (*stmt->asmStmt.inputFields).first; field; field = field->next)
3679 if(field->expression)
3680 ProcessExpression(field->expression);
3681 }
3682 if(stmt->asmStmt.outputFields)
3683 {
3684 for(field = (*stmt->asmStmt.outputFields).first; field; field = field->next)
3685 if(field->expression)
3686 ProcessExpression(field->expression);
3687 }
3688 if(stmt->asmStmt.clobberedFields)
3689 {
3690 for(field = (*stmt->asmStmt.clobberedFields).first; field; field = field->next)
3691 if(field->expression)
3692 ProcessExpression(field->expression);
3693 }
3694 break;
3695 }
3696 }
3697 }
3698
3699 extern struct Declaration * QMkDeclarationBase(int base, struct InitDeclarator * initDecl);
3700
3701 static void ProcessFunction(struct FunctionDefinition * function)
3702 {
3703 if(function->body)
3704 {
3705 ProcessStatement(function->body);
3706 if(function->tempCount)
3707 {
3708 struct Statement * stmt = function->body;
3709 int c;
3710
3711 if(!stmt->compound.declarations)
3712 stmt->compound.declarations = MkList();
3713 curContext = stmt->compound.context;
3714 for(c = 1; c <= function->tempCount; c++)
3715 {
3716 char ecereTemp[100];
3717
3718 sprintf(ecereTemp, "__ecereTemp%d", c);
3719 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*stmt->compound.declarations), (((void *)0)), QMkDeclarationBase(VOID, MkInitDeclarator(QMkPtrDecl(ecereTemp), (((void *)0)))));
3720 }
3721 curContext = stmt->compound.context->parent;
3722 }
3723 }
3724 }
3725
3726 static void ProcessMemberInitData(struct MemberInit * member)
3727 {
3728 if(member->initializer)
3729 ProcessInitializer(member->initializer);
3730 }
3731
3732 static void ProcessInstantiation(struct Instantiation * inst)
3733 {
3734 if(inst->members)
3735 {
3736 struct MembersInit * members;
3737
3738 for(members = (*inst->members).first; members; members = members->next)
3739 {
3740 if(members->type == 0)
3741 {
3742 if(members->dataMembers)
3743 {
3744 struct MemberInit * member;
3745
3746 for(member = (*members->dataMembers).first; member; member = member->next)
3747 ProcessMemberInitData(member);
3748 }
3749 }
3750 else if(members->type == 1)
3751 {
3752 ProcessFunction((struct FunctionDefinition *)members->function);
3753 }
3754 }
3755 }
3756 }
3757
3758 extern struct __ecereNameSpace__ecere__sys__OldList *  ast;
3759
3760 void ProcessMemberAccess()
3761 {
3762 struct External * external;
3763
3764 for(external = (*ast).first; external; external = external->next)
3765 {
3766 curExternal = external;
3767 if(external->type == 1)
3768 {
3769 if(external->declaration)
3770 ProcessDeclaration(external->declaration);
3771 }
3772 }
3773 for(external = (*ast).first; external; external = external->next)
3774 {
3775 curExternal = external;
3776 if(external->type == 0)
3777 {
3778 ProcessFunction(external->function);
3779 }
3780 else if(external->type == 1)
3781 {
3782 if(external->declaration)
3783 ProcessDeclaration(external->declaration);
3784 }
3785 else if(external->type == 2)
3786 {
3787 struct ClassDefinition * _class = external->_class;
3788
3789 if(_class->definitions)
3790 {
3791 struct ClassDef * def;
3792 struct __ecereNameSpace__ecere__com__Class * regClass = _class->symbol->registered;
3793
3794 for(def = (*_class->definitions).first; def; def = def->next)
3795 {
3796 if(def->type == 0)
3797 {
3798 curExternal = def->function->declarator->symbol->pointerExternal;
3799 ProcessFunction((struct FunctionDefinition *)def->function);
3800 }
3801 else if(def->type == 2 && def->decl->type == 2)
3802 {
3803 ProcessInstantiation(def->decl->inst);
3804 }
3805 else if(def->type == 1 && def->defProperties)
3806 {
3807 struct MemberInit * defProperty;
3808 struct Symbol * thisSymbol = (thisSymbol = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Symbol), thisSymbol->string = __ecereNameSpace__ecere__sys__CopyString("this"), thisSymbol->type = MkClassType(regClass->fullName), thisSymbol);
3809
3810 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Add(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3811 for(defProperty = (*def->defProperties).first; defProperty; defProperty = defProperty->next)
3812 {
3813 ProcessMemberInitData(defProperty);
3814 }
3815 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3816 FreeSymbol(thisSymbol);
3817 }
3818 else if(def->type == 3 && def->propertyDef)
3819 {
3820 struct PropertyDef * prop = def->propertyDef;
3821 struct Symbol * thisSymbol = (thisSymbol = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Symbol), thisSymbol->string = __ecereNameSpace__ecere__sys__CopyString("this"), thisSymbol->type = MkClassType(regClass->fullName), thisSymbol);
3822
3823 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Add(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3824 if(prop->setStmt)
3825 {
3826 curExternal = prop->symbol->externalSet;
3827 ProcessStatement(prop->setStmt);
3828 }
3829 if(prop->getStmt)
3830 {
3831 curExternal = prop->symbol->externalGet;
3832 ProcessStatement(prop->getStmt);
3833 }
3834 if(prop->issetStmt)
3835 {
3836 curExternal = prop->symbol->externalIsSet;
3837 ProcessStatement(prop->issetStmt);
3838 }
3839 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3840 FreeSymbol(thisSymbol);
3841 }
3842 else if(def->type == 10 && def->propertyDef)
3843 {
3844 struct PropertyDef * prop = def->propertyDef;
3845
3846 if(prop->setStmt)
3847 {
3848 curExternal = prop->symbol->externalSet;
3849 ProcessStatement(prop->setStmt);
3850 }
3851 if(prop->getStmt)
3852 {
3853 curExternal = prop->symbol->externalGet;
3854 ProcessStatement(prop->getStmt);
3855 }
3856 }
3857 else if(def->type == 4 && def->propertyWatch)
3858 {
3859 struct PropertyWatch * propertyWatch = def->propertyWatch;
3860 struct Symbol * thisSymbol = (thisSymbol = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Symbol), thisSymbol->string = __ecereNameSpace__ecere__sys__CopyString("this"), thisSymbol->type = MkClassType(regClass->fullName), thisSymbol);
3861
3862 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Add(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3863 if(propertyWatch->compound)
3864 {
3865 struct Symbol * thisSymbol = (thisSymbol = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Symbol), thisSymbol->string = __ecereNameSpace__ecere__sys__CopyString("this"), thisSymbol->type = MkClassType(regClass->fullName), thisSymbol);
3866
3867 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Add(&propertyWatch->compound->compound.context->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3868 curExternal = (((void *)0));
3869 ProcessStatement(propertyWatch->compound);
3870 }
3871 __ecereMethod___ecereNameSpace__ecere__sys__BinaryTree_Remove(&globalContext->symbols, (struct __ecereNameSpace__ecere__sys__BTNode *)thisSymbol);
3872 FreeSymbol(thisSymbol);
3873 }
3874 }
3875 }
3876 }
3877 }
3878 }
3879
3880 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__GlobalFunction;
3881
3882 struct __ecereNameSpace__ecere__com__GlobalFunction;
3883
3884 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);
3885
3886 void __ecereRegisterModule_pass2(struct __ecereNameSpace__ecere__com__Instance * module)
3887 {
3888 struct __ecereNameSpace__ecere__com__Class * class;
3889
3890 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ProcessMemberAccess", "void ProcessMemberAccess(void)", ProcessMemberAccess, module, 1);
3891 }
3892
3893 void __ecereUnregisterModule_pass2(struct __ecereNameSpace__ecere__com__Instance * module)
3894 {
3895
3896 }
3897