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

   1 /* Code generated from eC source file: pass3.ec */
   2 #if defined(_WIN32)
   3 #define __runtimePlatform 1
   4 #elif defined(__APPLE__)
   5 #define __runtimePlatform 3
   6 #else
   7 #define __runtimePlatform 2
   8 #endif
   9 #if defined(__GNUC__)
  10 typedef long long int64;
  11 typedef unsigned long long uint64;
  12 #ifndef _WIN32
  13 #define __declspec(x)
  14 #endif
  15 #elif defined(__TINYC__)
  16 #include <stdarg.h>
  17 #define __builtin_va_list va_list
  18 #define __builtin_va_start va_start
  19 #define __builtin_va_end va_end
  20 #ifdef _WIN32
  21 #define strcasecmp stricmp
  22 #define strncasecmp strnicmp
  23 #define __declspec(x) __attribute__((x))
  24 #else
  25 #define __declspec(x)
  26 #endif
  27 typedef long long int64;
  28 typedef unsigned long long uint64;
  29 #else
  30 typedef __int64 int64;
  31 typedef unsigned __int64 uint64;
  32 #endif
  33 #ifdef __BIG_ENDIAN__
  34 #define __ENDIAN_PAD(x) (8 - (x))
  35 #else
  36 #define __ENDIAN_PAD(x) 0
  37 #endif
  38 #if defined(_WIN32)
  39 #   if defined(__GNUC__) || defined(__TINYC__)
  40 #      define ecere_stdcall __attribute__((__stdcall__))
  41 #      define ecere_gcc_struct __attribute__((gcc_struct))
  42 #   else
  43 #      define ecere_stdcall __stdcall
  44 #      define ecere_gcc_struct
  45 #   endif
  46 #else
  47 #   define ecere_stdcall
  48 #   define ecere_gcc_struct
  49 #endif
  50 #include <stdint.h>
  51 #include <sys/types.h>
  52 enum yytokentype
  53 {
  54 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, INT128 = 294, LONG = 295, SIGNED = 296, UNSIGNED = 297, FLOAT = 298, DOUBLE = 299, CONST = 300, VOLATILE = 301, VOID = 302, VALIST = 303, STRUCT = 304, UNION = 305, ENUM = 306, ELLIPSIS = 307, CASE = 308, DEFAULT = 309, IF = 310, SWITCH = 311, WHILE = 312, DO = 313, FOR = 314, GOTO = 315, CONTINUE = 316, BREAK = 317, RETURN = 318, IFX = 319, ELSE = 320, CLASS = 321, THISCLASS = 322, CLASS_NAME = 323, PROPERTY = 324, SETPROP = 325, GETPROP = 326, NEWOP = 327, RENEW = 328, DELETE = 329, EXT_DECL = 330, EXT_STORAGE = 331, IMPORT = 332, DEFINE = 333, VIRTUAL = 334, ATTRIB = 335, PUBLIC = 336, PRIVATE = 337, TYPED_OBJECT = 338, ANY_OBJECT = 339, _INCREF = 340, EXTENSION = 341, ASM = 342, TYPEOF = 343, WATCH = 344, STOPWATCHING = 345, FIREWATCHERS = 346, WATCHABLE = 347, CLASS_DESIGNER = 348, CLASS_NO_EXPANSION = 349, CLASS_FIXED = 350, ISPROPSET = 351, CLASS_DEFAULT_PROPERTY = 352, PROPERTY_CATEGORY = 353, CLASS_DATA = 354, CLASS_PROPERTY = 355, SUBCLASS = 356, NAMESPACE = 357, NEW0OP = 358, RENEW0 = 359, VAARG = 360, DBTABLE = 361, DBFIELD = 362, DBINDEX = 363, DATABASE_OPEN = 364, ALIGNOF = 365, ATTRIB_DEP = 366, __ATTRIB = 367, BOOL = 368, _BOOL = 369, _COMPLEX = 370, _IMAGINARY = 371, RESTRICT = 372, THREAD = 373, WIDE_STRING_LITERAL = 374, BUILTIN_OFFSETOF = 375
  55 };
  56
  57 extern int targetPlatform;
  58
  59 extern struct __ecereNameSpace__ecere__com__Property * __ecereProp_Type_isPointerType;
  60
  61 struct __ecereNameSpace__ecere__sys__OldList
  62 {
  63 void *  first;
  64 void *  last;
  65 int count;
  66 unsigned int offset;
  67 unsigned int circ;
  68 } ecere_gcc_struct;
  69
  70 struct __ecereNameSpace__ecere__sys__BTNode;
  71
  72 struct __ecereNameSpace__ecere__com__DataValue
  73 {
  74 union
  75 {
  76 char c;
  77 unsigned char uc;
  78 short s;
  79 unsigned short us;
  80 int i;
  81 unsigned int ui;
  82 void *  p;
  83 float f;
  84 double d;
  85 long long i64;
  86 uint64 ui64;
  87 } ecere_gcc_struct __anon1;
  88 } ecere_gcc_struct;
  89
  90 struct __ecereNameSpace__ecere__com__SerialBuffer
  91 {
  92 unsigned char *  _buffer;
  93 unsigned int count;
  94 unsigned int _size;
  95 unsigned int pos;
  96 } ecere_gcc_struct;
  97
  98 extern void *  __ecereNameSpace__ecere__com__eSystem_New(unsigned int size);
  99
 100 extern void *  __ecereNameSpace__ecere__com__eSystem_New0(unsigned int size);
 101
 102 extern void *  __ecereNameSpace__ecere__com__eSystem_Renew(void *  memory, unsigned int size);
 103
 104 extern void *  __ecereNameSpace__ecere__com__eSystem_Renew0(void *  memory, unsigned int size);
 105
 106 extern void __ecereNameSpace__ecere__com__eSystem_Delete(void *  memory);
 107
 108 struct Context;
 109
 110 struct Attrib;
 111
 112 struct Attribute;
 113
 114 struct Instantiation;
 115
 116 struct MembersInit;
 117
 118 struct MemberInit;
 119
 120 struct ClassFunction;
 121
 122 struct ClassDefinition;
 123
 124 struct PropertyDef;
 125
 126 struct PropertyWatch;
 127
 128 struct TemplateArgument;
 129
 130 struct DBTableEntry;
 131
 132 struct DBIndexItem;
 133
 134 struct DBTableDef;
 135
 136 struct CodePosition
 137 {
 138 int line;
 139 int charPos;
 140 int pos;
 141 int included;
 142 } ecere_gcc_struct;
 143
 144 extern char *  __ecereNameSpace__ecere__sys__CopyString(const char *  string);
 145
 146 struct ModuleImport;
 147
 148 struct ClassImport;
 149
 150 extern void FullClassNameCat(char *  output, const char *  className, unsigned int includeTemplateParams);
 151
 152 extern int strcmp(const char * , const char * );
 153
 154 extern char *  strchr(const char * , int);
 155
 156 extern char *  strcpy(char * , const char * );
 157
 158 extern size_t strlen(const char * );
 159
 160 struct __ecereNameSpace__ecere__com__LinkList
 161 {
 162 void * first;
 163 void * last;
 164 int count;
 165 } ecere_gcc_struct;
 166
 167 struct __ecereNameSpace__ecere__com__LinkElement
 168 {
 169 void * prev;
 170 void * next;
 171 } ecere_gcc_struct;
 172
 173 extern void Compiler_Error(const char *  format, ...);
 174
 175 struct __ecereNameSpace__ecere__com__GlobalFunction;
 176
 177 struct __ecereNameSpace__ecere__com__IteratorPointer;
 178
 179 extern struct __ecereNameSpace__ecere__sys__OldList *  MkList(void);
 180
 181 extern void FreeList(struct __ecereNameSpace__ecere__sys__OldList * list, void (*  FreeFunction)(void * ));
 182
 183 extern struct __ecereNameSpace__ecere__sys__OldList *  MkListOne(void *  item);
 184
 185 extern struct __ecereNameSpace__ecere__sys__OldList *  ast;
 186
 187 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(struct __ecereNameSpace__ecere__sys__OldList * this, void *  item);
 188
 189 unsigned int __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert(struct __ecereNameSpace__ecere__sys__OldList * this, void *  prevItem, void *  item);
 190
 191 void __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove(struct __ecereNameSpace__ecere__sys__OldList * this, void *  item);
 192
 193 extern struct Context * curContext;
 194
 195 extern struct Context * globalContext;
 196
 197 struct Location
 198 {
 199 struct CodePosition start;
 200 struct CodePosition end;
 201 } ecere_gcc_struct;
 202
 203 extern struct Location yylloc;
 204
 205 struct ExtDecl
 206 {
 207 struct Location loc;
 208 int type;
 209 union
 210 {
 211 char * s;
 212 struct Attrib * attr;
 213 } ecere_gcc_struct __anon1;
 214 } ecere_gcc_struct;
 215
 216 extern struct ExtDecl * MkExtDeclString(char * s);
 217
 218 struct External;
 219
 220 extern struct External * curExternal;
 221
 222 extern struct External * DeclareStruct(struct External * neededBy, const char *  name, unsigned int skipNoHead, unsigned int needDereference);
 223
 224 extern void FreeExternal(struct External * external);
 225
 226 struct TopoEdge
 227 {
 228 struct __ecereNameSpace__ecere__com__LinkElement in;
 229 struct __ecereNameSpace__ecere__com__LinkElement out;
 230 struct External * from;
 231 struct External * to;
 232 unsigned int breakable;
 233 } ecere_gcc_struct;
 234
 235 struct __ecereNameSpace__ecere__com__Class;
 236
 237 struct __ecereNameSpace__ecere__com__Instance
 238 {
 239 void * *  _vTbl;
 240 struct __ecereNameSpace__ecere__com__Class * _class;
 241 int _refCount;
 242 } ecere_gcc_struct;
 243
 244 extern long long __ecereNameSpace__ecere__com__eClass_GetProperty(struct __ecereNameSpace__ecere__com__Class * _class, const char *  name);
 245
 246 extern void __ecereNameSpace__ecere__com__eClass_SetProperty(struct __ecereNameSpace__ecere__com__Class * _class, const char *  name, long long value);
 247
 248 extern void *  __ecereNameSpace__ecere__com__eInstance_New(struct __ecereNameSpace__ecere__com__Class * _class);
 249
 250 extern void __ecereNameSpace__ecere__com__eInstance_SetMethod(struct __ecereNameSpace__ecere__com__Instance * instance, const char *  name, void *  function);
 251
 252 extern void __ecereNameSpace__ecere__com__eInstance_IncRef(struct __ecereNameSpace__ecere__com__Instance * instance);
 253
 254 int __ecereVMethodID___ecereNameSpace__ecere__com__Container_Remove;
 255
 256 int __ecereVMethodID___ecereNameSpace__ecere__com__Container_Add;
 257
 258 struct Specifier;
 259
 260 extern struct Specifier * CopySpecifier(struct Specifier * spec);
 261
 262 extern void FreeSpecifier(struct Specifier * spec);
 263
 264 extern void FreeSpecifierContents(struct Specifier * spec);
 265
 266 extern struct Specifier * MkSpecifier(int specifier);
 267
 268 extern struct Specifier * MkSpecifierName(const char *  name);
 269
 270 struct Declarator;
 271
 272 extern struct Declarator * SpecDeclFromString(const char *  string, struct __ecereNameSpace__ecere__sys__OldList *  specs, struct Declarator * baseDecl);
 273
 274 extern void FreeDeclarator(struct Declarator * decl);
 275
 276 struct TemplateDatatype
 277 {
 278 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
 279 struct Declarator * decl;
 280 } ecere_gcc_struct;
 281
 282 extern struct Declarator * QMkPtrDecl(const char *  id);
 283
 284 struct Symbol;
 285
 286 extern struct Symbol * FindClass(const char *  name);
 287
 288 struct Identifier;
 289
 290 extern struct Identifier * MkIdentifier(const char *  string);
 291
 292 extern struct Specifier * MkStructOrUnion(int type, struct Identifier * id, struct __ecereNameSpace__ecere__sys__OldList * definitions);
 293
 294 extern struct Declarator * MkDeclaratorIdentifier(struct Identifier * id);
 295
 296 struct Identifier
 297 {
 298 struct Identifier * prev;
 299 struct Identifier * next;
 300 struct Location loc;
 301 struct Symbol * classSym;
 302 struct Specifier * _class;
 303 char *  string;
 304 struct Identifier * badID;
 305 } ecere_gcc_struct;
 306
 307 static void InstDeclPassIdentifier(struct Identifier * id)
 308 {
 309 if(strchr(id->string, ':'))
 310 {
 311 char newID[1024];
 312 int c;
 313 char ch;
 314 int len;
 315
 316 strcpy(newID, "__ecereNameSpace__");
 317 len = strlen(newID);
 318 for(c = 0; (ch = id->string[c]); c++)
 319 {
 320 if(ch == ':')
 321 ch = '_';
 322 newID[len++] = ch;
 323 }
 324 newID[len] = 0;
 325 (__ecereNameSpace__ecere__com__eSystem_Delete(id->string), id->string = 0);
 326 id->string = __ecereNameSpace__ecere__sys__CopyString(newID);
 327 }
 328 }
 329
 330 struct Type;
 331
 332 extern struct Type * ProcessTypeString(const char *  string, unsigned int staticMethod);
 333
 334 extern struct Type * ProcessType(struct __ecereNameSpace__ecere__sys__OldList * specs, struct Declarator * decl);
 335
 336 extern void FreeType(struct Type * type);
 337
 338 struct Expression;
 339
 340 extern struct Expression * MkExpBrackets(struct __ecereNameSpace__ecere__sys__OldList * expressions);
 341
 342 extern struct Expression * MoveExpContents(struct Expression * exp);
 343
 344 extern struct Expression * GetNonBracketsExp(struct Expression * exp);
 345
 346 extern void FreeExpContents(struct Expression * exp);
 347
 348 struct TypeName;
 349
 350 struct TypeName
 351 {
 352 struct TypeName * prev;
 353 struct TypeName * next;
 354 struct Location loc;
 355 struct __ecereNameSpace__ecere__sys__OldList *  qualifiers;
 356 struct Declarator * declarator;
 357 int classObjectType;
 358 struct Expression * bitCount;
 359 } ecere_gcc_struct;
 360
 361 extern struct TypeName * MkTypeName(struct __ecereNameSpace__ecere__sys__OldList * qualifiers, struct Declarator * declarator);
 362
 363 extern void FreeTypeName(struct TypeName * typeName);
 364
 365 extern struct Expression * MkExpCast(struct TypeName * typeName, struct Expression * expression);
 366
 367 struct Pointer;
 368
 369 struct Declarator
 370 {
 371 struct Declarator * prev;
 372 struct Declarator * next;
 373 struct Location loc;
 374 int type;
 375 struct Symbol * symbol;
 376 struct Declarator * declarator;
 377 union
 378 {
 379 struct Identifier * identifier;
 380 struct
 381 {
 382 struct Expression * exp;
 383 struct Expression * posExp;
 384 struct Attrib * attrib;
 385 } ecere_gcc_struct structDecl;
 386 struct
 387 {
 388 struct Expression * exp;
 389 struct Specifier * enumClass;
 390 } ecere_gcc_struct array;
 391 struct
 392 {
 393 struct __ecereNameSpace__ecere__sys__OldList * parameters;
 394 } ecere_gcc_struct function;
 395 struct
 396 {
 397 struct Pointer * pointer;
 398 } ecere_gcc_struct pointer;
 399 struct
 400 {
 401 struct ExtDecl * extended;
 402 } ecere_gcc_struct extended;
 403 } ecere_gcc_struct __anon1;
 404 } ecere_gcc_struct;
 405
 406 extern struct Pointer * MkPointer(struct __ecereNameSpace__ecere__sys__OldList * qualifiers, struct Pointer * pointer);
 407
 408 extern struct Declarator * MkDeclaratorPointer(struct Pointer * pointer, struct Declarator * declarator);
 409
 410 struct Pointer
 411 {
 412 struct Pointer * prev;
 413 struct Pointer * next;
 414 struct Location loc;
 415 struct __ecereNameSpace__ecere__sys__OldList *  qualifiers;
 416 struct Pointer * pointer;
 417 } ecere_gcc_struct;
 418
 419 struct __ecereNameSpace__ecere__sys__BinaryTree;
 420
 421 struct __ecereNameSpace__ecere__sys__BinaryTree
 422 {
 423 struct __ecereNameSpace__ecere__sys__BTNode * root;
 424 int count;
 425 int (*  CompareKey)(struct __ecereNameSpace__ecere__sys__BinaryTree * tree, uintptr_t a, uintptr_t b);
 426 void (*  FreeKey)(void *  key);
 427 } ecere_gcc_struct;
 428
 429 struct __ecereNameSpace__ecere__com__DataMember;
 430
 431 struct __ecereNameSpace__ecere__com__DataMember
 432 {
 433 struct __ecereNameSpace__ecere__com__DataMember * prev;
 434 struct __ecereNameSpace__ecere__com__DataMember * next;
 435 const char *  name;
 436 unsigned int isProperty;
 437 int memberAccess;
 438 int id;
 439 struct __ecereNameSpace__ecere__com__Class * _class;
 440 const char *  dataTypeString;
 441 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 442 struct Type * dataType;
 443 int type;
 444 int offset;
 445 int memberID;
 446 struct __ecereNameSpace__ecere__sys__OldList members;
 447 struct __ecereNameSpace__ecere__sys__BinaryTree membersAlpha;
 448 int memberOffset;
 449 short structAlignment;
 450 short pointerAlignment;
 451 } ecere_gcc_struct;
 452
 453 struct __ecereNameSpace__ecere__com__Property;
 454
 455 struct __ecereNameSpace__ecere__com__Property
 456 {
 457 struct __ecereNameSpace__ecere__com__Property * prev;
 458 struct __ecereNameSpace__ecere__com__Property * next;
 459 const char *  name;
 460 unsigned int isProperty;
 461 int memberAccess;
 462 int id;
 463 struct __ecereNameSpace__ecere__com__Class * _class;
 464 const char *  dataTypeString;
 465 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 466 struct Type * dataType;
 467 void (*  Set)(void * , int);
 468 int (*  Get)(void * );
 469 unsigned int (*  IsSet)(void * );
 470 void *  data;
 471 void *  symbol;
 472 int vid;
 473 unsigned int conversion;
 474 unsigned int watcherOffset;
 475 const char *  category;
 476 unsigned int compiled;
 477 unsigned int selfWatchable;
 478 unsigned int isWatchable;
 479 } ecere_gcc_struct;
 480
 481 extern void __ecereNameSpace__ecere__com__eInstance_FireSelfWatchers(struct __ecereNameSpace__ecere__com__Instance * instance, struct __ecereNameSpace__ecere__com__Property * _property);
 482
 483 extern void __ecereNameSpace__ecere__com__eInstance_StopWatching(struct __ecereNameSpace__ecere__com__Instance * instance, struct __ecereNameSpace__ecere__com__Property * _property, struct __ecereNameSpace__ecere__com__Instance * object);
 484
 485 extern void __ecereNameSpace__ecere__com__eInstance_Watch(struct __ecereNameSpace__ecere__com__Instance * instance, struct __ecereNameSpace__ecere__com__Property * _property, void *  object, void (*  callback)(void * , void * ));
 486
 487 extern void __ecereNameSpace__ecere__com__eInstance_FireWatchers(struct __ecereNameSpace__ecere__com__Instance * instance, struct __ecereNameSpace__ecere__com__Property * _property);
 488
 489 struct __ecereNameSpace__ecere__com__Module;
 490
 491 extern struct __ecereNameSpace__ecere__com__GlobalFunction * __ecereNameSpace__ecere__com__eSystem_RegisterFunction(const char *  name, const char *  type, void *  func, struct __ecereNameSpace__ecere__com__Instance * module, int declMode);
 492
 493 struct InitDeclarator;
 494
 495 struct ClassDef;
 496
 497 struct FunctionDefinition;
 498
 499 struct __ecereNameSpace__ecere__com__Method;
 500
 501 struct __ecereNameSpace__ecere__com__ClassTemplateArgument
 502 {
 503 union
 504 {
 505 struct
 506 {
 507 const char *  dataTypeString;
 508 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 509 } ecere_gcc_struct __anon1;
 510 struct __ecereNameSpace__ecere__com__DataValue expression;
 511 struct
 512 {
 513 const char *  memberString;
 514 union
 515 {
 516 struct __ecereNameSpace__ecere__com__DataMember * member;
 517 struct __ecereNameSpace__ecere__com__Property * prop;
 518 struct __ecereNameSpace__ecere__com__Method * method;
 519 } ecere_gcc_struct __anon1;
 520 } ecere_gcc_struct __anon2;
 521 } ecere_gcc_struct __anon1;
 522 } ecere_gcc_struct;
 523
 524 struct __ecereNameSpace__ecere__com__Method
 525 {
 526 const char *  name;
 527 struct __ecereNameSpace__ecere__com__Method * parent;
 528 struct __ecereNameSpace__ecere__com__Method * left;
 529 struct __ecereNameSpace__ecere__com__Method * right;
 530 int depth;
 531 int (*  function)();
 532 int vid;
 533 int type;
 534 struct __ecereNameSpace__ecere__com__Class * _class;
 535 void *  symbol;
 536 const char *  dataTypeString;
 537 struct Type * dataType;
 538 int memberAccess;
 539 } ecere_gcc_struct;
 540
 541 struct Symbol
 542 {
 543 char *  string;
 544 struct Symbol * parent;
 545 struct Symbol * left;
 546 struct Symbol * right;
 547 int depth;
 548 struct Type * type;
 549 union
 550 {
 551 struct __ecereNameSpace__ecere__com__Method * method;
 552 struct __ecereNameSpace__ecere__com__Property * _property;
 553 struct __ecereNameSpace__ecere__com__Class * registered;
 554 } ecere_gcc_struct __anon1;
 555 unsigned int notYetDeclared;
 556 union
 557 {
 558 struct
 559 {
 560 struct External * pointerExternal;
 561 struct External * structExternal;
 562 } ecere_gcc_struct __anon1;
 563 struct
 564 {
 565 struct External * externalGet;
 566 struct External * externalSet;
 567 struct External * externalPtr;
 568 struct External * externalIsSet;
 569 } ecere_gcc_struct __anon2;
 570 struct
 571 {
 572 struct External * methodExternal;
 573 struct External * methodCodeExternal;
 574 } ecere_gcc_struct __anon3;
 575 } ecere_gcc_struct __anon2;
 576 unsigned int imported;
 577 unsigned int declaredStructSym;
 578 struct __ecereNameSpace__ecere__com__Class * _class;
 579 unsigned int declaredStruct;
 580 unsigned int needConstructor;
 581 unsigned int needDestructor;
 582 char *  constructorName;
 583 char *  structName;
 584 char *  className;
 585 char *  destructorName;
 586 struct ModuleImport * module;
 587 struct ClassImport * _import;
 588 struct Location nameLoc;
 589 unsigned int isParam;
 590 unsigned int isRemote;
 591 unsigned int isStruct;
 592 unsigned int fireWatchersDone;
 593 int declaring;
 594 unsigned int classData;
 595 unsigned int isStatic;
 596 char *  shortName;
 597 struct __ecereNameSpace__ecere__sys__OldList *  templateParams;
 598 struct __ecereNameSpace__ecere__sys__OldList templatedClasses;
 599 struct Context * ctx;
 600 int isIterator;
 601 struct Expression * propCategory;
 602 unsigned int mustRegister;
 603 } ecere_gcc_struct;
 604
 605 struct TemplateParameter;
 606
 607 struct Specifier
 608 {
 609 struct Specifier * prev;
 610 struct Specifier * next;
 611 struct Location loc;
 612 int type;
 613 union
 614 {
 615 int specifier;
 616 struct
 617 {
 618 struct ExtDecl * extDecl;
 619 char *  name;
 620 struct Symbol * symbol;
 621 struct __ecereNameSpace__ecere__sys__OldList *  templateArgs;
 622 struct Specifier * nsSpec;
 623 } ecere_gcc_struct __anon1;
 624 struct
 625 {
 626 struct Identifier * id;
 627 struct __ecereNameSpace__ecere__sys__OldList *  list;
 628 struct __ecereNameSpace__ecere__sys__OldList *  baseSpecs;
 629 struct __ecereNameSpace__ecere__sys__OldList *  definitions;
 630 unsigned int addNameSpace;
 631 struct Context * ctx;
 632 struct ExtDecl * extDeclStruct;
 633 } ecere_gcc_struct __anon2;
 634 struct Expression * expression;
 635 struct Specifier * _class;
 636 struct TemplateParameter * templateParameter;
 637 } ecere_gcc_struct __anon1;
 638 } ecere_gcc_struct;
 639
 640 struct TemplateParameter
 641 {
 642 struct TemplateParameter * prev;
 643 struct TemplateParameter * next;
 644 struct Location loc;
 645 int type;
 646 struct Identifier * identifier;
 647 union
 648 {
 649 struct TemplateDatatype * dataType;
 650 int memberType;
 651 } ecere_gcc_struct __anon1;
 652 struct TemplateArgument * defaultArgument;
 653 const char *  dataTypeString;
 654 struct Type * baseType;
 655 } ecere_gcc_struct;
 656
 657 struct Type
 658 {
 659 struct Type * prev;
 660 struct Type * next;
 661 int refCount;
 662 union
 663 {
 664 struct Symbol * _class;
 665 struct
 666 {
 667 struct __ecereNameSpace__ecere__sys__OldList members;
 668 char *  enumName;
 669 } ecere_gcc_struct __anon1;
 670 struct
 671 {
 672 struct Type * returnType;
 673 struct __ecereNameSpace__ecere__sys__OldList params;
 674 struct Symbol * thisClass;
 675 unsigned int staticMethod;
 676 struct TemplateParameter * thisClassTemplate;
 677 } ecere_gcc_struct __anon2;
 678 struct
 679 {
 680 struct __ecereNameSpace__ecere__com__Method * method;
 681 struct __ecereNameSpace__ecere__com__Class * methodClass;
 682 struct __ecereNameSpace__ecere__com__Class * usedClass;
 683 } ecere_gcc_struct __anon3;
 684 struct
 685 {
 686 struct Type * arrayType;
 687 int arraySize;
 688 struct Expression * arraySizeExp;
 689 unsigned int freeExp;
 690 struct Symbol * enumClass;
 691 } ecere_gcc_struct __anon4;
 692 struct Type * type;
 693 struct TemplateParameter * templateParameter;
 694 } ecere_gcc_struct __anon1;
 695 int kind;
 696 unsigned int size;
 697 char *  name;
 698 char *  typeName;
 699 struct __ecereNameSpace__ecere__com__Class * thisClassFrom;
 700 int promotedFrom;
 701 int classObjectType;
 702 int alignment;
 703 unsigned int offset;
 704 int bitFieldCount;
 705 int count;
 706 int bitMemberSize;
 707 unsigned int isSigned : 1;
 708 unsigned int constant : 1;
 709 unsigned int truth : 1;
 710 unsigned int byReference : 1;
 711 unsigned int extraParam : 1;
 712 unsigned int directClassAccess : 1;
 713 unsigned int computing : 1;
 714 unsigned int keepCast : 1;
 715 unsigned int passAsTemplate : 1;
 716 unsigned int dllExport : 1;
 717 unsigned int attrStdcall : 1;
 718 unsigned int declaredWithStruct : 1;
 719 unsigned int typedByReference : 1;
 720 unsigned int casted : 1;
 721 unsigned int pointerAlignment : 1;
 722 unsigned int isLong : 1;
 723 unsigned int signedBeforePromotion : 1;
 724 unsigned int isVector : 1;
 725 } ecere_gcc_struct;
 726
 727 unsigned int IsVoidPtrCast(struct TypeName * typeName)
 728 {
 729 unsigned int result = 0;
 730 struct Declarator * d = typeName->declarator;
 731
 732 if(d && d->type == 5 && d->__anon1.pointer.pointer && !d->__anon1.pointer.pointer->pointer)
 733 {
 734 if(typeName->qualifiers)
 735 {
 736 struct Specifier * s;
 737
 738 for(s = (*typeName->qualifiers).first; s; s = s->next)
 739 {
 740 if(s->type == 0 && s->__anon1.specifier == VOID)
 741 result = 1;
 742 }
 743 }
 744 }
 745 return result;
 746 }
 747
 748 unsigned int __ecereProp_Type_Get_isPointerType(struct Type * this);
 749
 750 struct Enumerator;
 751
 752 struct Enumerator
 753 {
 754 struct Enumerator * prev;
 755 struct Enumerator * next;
 756 struct Location loc;
 757 struct Identifier * id;
 758 struct Expression * exp;
 759 } ecere_gcc_struct;
 760
 761 struct Initializer;
 762
 763 struct Initializer
 764 {
 765 struct Initializer * prev;
 766 struct Initializer * next;
 767 struct Location loc;
 768 int type;
 769 union
 770 {
 771 struct Expression * exp;
 772 struct __ecereNameSpace__ecere__sys__OldList *  list;
 773 } ecere_gcc_struct __anon1;
 774 unsigned int isConstant;
 775 struct Identifier * id;
 776 } ecere_gcc_struct;
 777
 778 struct InitDeclarator
 779 {
 780 struct InitDeclarator * prev;
 781 struct InitDeclarator * next;
 782 struct Location loc;
 783 struct Declarator * declarator;
 784 struct Initializer * initializer;
 785 } ecere_gcc_struct;
 786
 787 struct Declaration;
 788
 789 struct ClassDef
 790 {
 791 struct ClassDef * prev;
 792 struct ClassDef * next;
 793 struct Location loc;
 794 int type;
 795 union
 796 {
 797 struct Declaration * decl;
 798 struct ClassFunction * function;
 799 struct __ecereNameSpace__ecere__sys__OldList *  defProperties;
 800 struct PropertyDef * propertyDef;
 801 struct PropertyWatch * propertyWatch;
 802 char *  designer;
 803 struct Identifier * defaultProperty;
 804 struct
 805 {
 806 struct Identifier * id;
 807 struct Initializer * initializer;
 808 } ecere_gcc_struct __anon1;
 809 } ecere_gcc_struct __anon1;
 810 int memberAccess;
 811 void *  object;
 812 } ecere_gcc_struct;
 813
 814 struct Declaration
 815 {
 816 struct Declaration * prev;
 817 struct Declaration * next;
 818 struct Location loc;
 819 int type;
 820 union
 821 {
 822 struct
 823 {
 824 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
 825 struct __ecereNameSpace__ecere__sys__OldList *  declarators;
 826 } ecere_gcc_struct __anon1;
 827 struct Instantiation * inst;
 828 struct
 829 {
 830 struct Identifier * id;
 831 struct Expression * exp;
 832 } ecere_gcc_struct __anon2;
 833 } ecere_gcc_struct __anon1;
 834 struct Specifier * extStorage;
 835 struct Symbol * symbol;
 836 int declMode;
 837 } ecere_gcc_struct;
 838
 839 struct External
 840 {
 841 struct External * prev;
 842 struct External * next;
 843 struct Location loc;
 844 int type;
 845 struct Symbol * symbol;
 846 union
 847 {
 848 struct FunctionDefinition * function;
 849 struct ClassDefinition * _class;
 850 struct Declaration * declaration;
 851 char *  importString;
 852 struct Identifier * id;
 853 struct DBTableDef * table;
 854 } ecere_gcc_struct __anon1;
 855 int importType;
 856 struct External * fwdDecl;
 857 struct __ecereNameSpace__ecere__com__Instance * outgoing;
 858 struct __ecereNameSpace__ecere__com__Instance * incoming;
 859 int nonBreakableIncoming;
 860 } ecere_gcc_struct;
 861
 862 struct External * __ecereMethod_External_ForwardDeclare();
 863
 864 struct AsmField;
 865
 866 struct AsmField
 867 {
 868 struct AsmField * prev;
 869 struct AsmField * next;
 870 struct Location loc;
 871 char *  command;
 872 struct Expression * expression;
 873 struct Identifier * symbolic;
 874 } ecere_gcc_struct;
 875
 876 struct __ecereNameSpace__ecere__com__NameSpace;
 877
 878 struct __ecereNameSpace__ecere__com__NameSpace
 879 {
 880 const char *  name;
 881 struct __ecereNameSpace__ecere__com__NameSpace *  btParent;
 882 struct __ecereNameSpace__ecere__com__NameSpace *  left;
 883 struct __ecereNameSpace__ecere__com__NameSpace *  right;
 884 int depth;
 885 struct __ecereNameSpace__ecere__com__NameSpace *  parent;
 886 struct __ecereNameSpace__ecere__sys__BinaryTree nameSpaces;
 887 struct __ecereNameSpace__ecere__sys__BinaryTree classes;
 888 struct __ecereNameSpace__ecere__sys__BinaryTree defines;
 889 struct __ecereNameSpace__ecere__sys__BinaryTree functions;
 890 } ecere_gcc_struct;
 891
 892 struct __ecereNameSpace__ecere__com__Class
 893 {
 894 struct __ecereNameSpace__ecere__com__Class * prev;
 895 struct __ecereNameSpace__ecere__com__Class * next;
 896 const char *  name;
 897 int offset;
 898 int structSize;
 899 void * *  _vTbl;
 900 int vTblSize;
 901 unsigned int (*  Constructor)(void * );
 902 void (*  Destructor)(void * );
 903 int offsetClass;
 904 int sizeClass;
 905 struct __ecereNameSpace__ecere__com__Class * base;
 906 struct __ecereNameSpace__ecere__sys__BinaryTree methods;
 907 struct __ecereNameSpace__ecere__sys__BinaryTree members;
 908 struct __ecereNameSpace__ecere__sys__BinaryTree prop;
 909 struct __ecereNameSpace__ecere__sys__OldList membersAndProperties;
 910 struct __ecereNameSpace__ecere__sys__BinaryTree classProperties;
 911 struct __ecereNameSpace__ecere__sys__OldList derivatives;
 912 int memberID;
 913 int startMemberID;
 914 int type;
 915 struct __ecereNameSpace__ecere__com__Instance * module;
 916 struct __ecereNameSpace__ecere__com__NameSpace *  nameSpace;
 917 const char *  dataTypeString;
 918 struct Type * dataType;
 919 int typeSize;
 920 int defaultAlignment;
 921 void (*  Initialize)();
 922 int memberOffset;
 923 struct __ecereNameSpace__ecere__sys__OldList selfWatchers;
 924 const char *  designerClass;
 925 unsigned int noExpansion;
 926 const char *  defaultProperty;
 927 unsigned int comRedefinition;
 928 int count;
 929 int isRemote;
 930 unsigned int internalDecl;
 931 void *  data;
 932 unsigned int computeSize;
 933 short structAlignment;
 934 short pointerAlignment;
 935 int destructionWatchOffset;
 936 unsigned int fixed;
 937 struct __ecereNameSpace__ecere__sys__OldList delayedCPValues;
 938 int inheritanceAccess;
 939 const char *  fullName;
 940 void *  symbol;
 941 struct __ecereNameSpace__ecere__sys__OldList conversions;
 942 struct __ecereNameSpace__ecere__sys__OldList templateParams;
 943 struct __ecereNameSpace__ecere__com__ClassTemplateArgument *  templateArgs;
 944 struct __ecereNameSpace__ecere__com__Class * templateClass;
 945 struct __ecereNameSpace__ecere__sys__OldList templatized;
 946 int numParams;
 947 unsigned int isInstanceClass;
 948 unsigned int byValueSystemClass;
 949 void *  bindingsClass;
 950 } ecere_gcc_struct;
 951
 952 struct __ecereNameSpace__ecere__com__Application
 953 {
 954 int argc;
 955 const char * *  argv;
 956 int exitCode;
 957 unsigned int isGUIApp;
 958 struct __ecereNameSpace__ecere__sys__OldList allModules;
 959 char *  parsedCommand;
 960 struct __ecereNameSpace__ecere__com__NameSpace systemNameSpace;
 961 } ecere_gcc_struct;
 962
 963 extern void __ecereNameSpace__ecere__com__PrintLn(struct __ecereNameSpace__ecere__com__Class * class, const void * object, ...);
 964
 965 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declarator;
 966
 967 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TypeName;
 968
 969 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Specifier;
 970
 971 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Expression;
 972
 973 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__LinkList;
 974
 975 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_char__PTR_;
 976
 977 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TopoEdge;
 978
 979 struct __ecereNameSpace__ecere__com__Module
 980 {
 981 struct __ecereNameSpace__ecere__com__Instance * application;
 982 struct __ecereNameSpace__ecere__sys__OldList classes;
 983 struct __ecereNameSpace__ecere__sys__OldList defines;
 984 struct __ecereNameSpace__ecere__sys__OldList functions;
 985 struct __ecereNameSpace__ecere__sys__OldList modules;
 986 struct __ecereNameSpace__ecere__com__Instance * prev;
 987 struct __ecereNameSpace__ecere__com__Instance * next;
 988 const char *  name;
 989 void *  library;
 990 void *  Unload;
 991 int importType;
 992 int origImportType;
 993 struct __ecereNameSpace__ecere__com__NameSpace privateNameSpace;
 994 struct __ecereNameSpace__ecere__com__NameSpace publicNameSpace;
 995 } ecere_gcc_struct;
 996
 997 static void ReplaceByInstancePtr(struct Specifier * spec, struct Declarator ** declPtr, int type)
 998 {
 999 struct Declarator * decl = *declPtr;
1000
1001 if(decl && decl->type == 5)
1002 {
1003 if(type == 2)
1004 ;
1005 else
1006 decl->__anon1.pointer.pointer = MkPointer((((void *)0)), decl->__anon1.pointer.pointer);
1007 }
1008 else
1009 {
1010 struct Declarator * newDecl = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Declarator);
1011
1012 if(decl)
1013 {
1014 *newDecl = *decl;
1015 decl->declarator = newDecl;
1016 }
1017 else
1018 decl = newDecl;
1019 decl->type = 5;
1020 decl->__anon1.pointer.pointer = MkPointer((((void *)0)), (((void *)0)));
1021 *declPtr = decl;
1022 }
1023 }
1024
1025 static int ReplaceClassSpec(struct __ecereNameSpace__ecere__sys__OldList * specs, struct Specifier * spec, unsigned int param)
1026 {
1027 if(spec->type == 8)
1028 {
1029 struct TemplateParameter * parameter = spec->__anon1.templateParameter;
1030
1031 if(!param && parameter->dataTypeString)
1032 {
1033 struct __ecereNameSpace__ecere__sys__OldList * newSpecs = MkList();
1034 struct Declarator * decl = SpecDeclFromString(parameter->dataTypeString, newSpecs, (((void *)0)));
1035
1036 if((*newSpecs).first)
1037 {
1038 struct Specifier * newSpec = CopySpecifier((*newSpecs).first);
1039
1040 *spec = *newSpec;
1041 ((newSpec ? __extension__ ({
1042 void * __ecerePtrToDelete = (newSpec);
1043
1044 __ecereClass_Specifier->Destructor ? __ecereClass_Specifier->Destructor((void *)__ecerePtrToDelete) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(__ecerePtrToDelete);
1045 }) : 0), newSpec = 0);
1046 }
1047 FreeList(newSpecs, (void *)(FreeSpecifier));
1048 if(decl)
1049 {
1050 unsigned int isPointer = decl->type == 5;
1051
1052 if(decl)
1053 FreeDeclarator(decl);
1054 if(isPointer)
1055 return 1;
1056 }
1057 }
1058 else if(!param && parameter->__anon1.dataType)
1059 {
1060 struct __ecereNameSpace__ecere__sys__OldList * newSpecs = parameter->__anon1.dataType->specifiers;
1061 struct Declarator * decl = parameter->__anon1.dataType->decl;
1062
1063 if((*newSpecs).first)
1064 {
1065 struct Specifier * newSpec = CopySpecifier((*newSpecs).first);
1066
1067 *spec = *newSpec;
1068 ((newSpec ? __extension__ ({
1069 void * __ecerePtrToDelete = (newSpec);
1070
1071 __ecereClass_Specifier->Destructor ? __ecereClass_Specifier->Destructor((void *)__ecerePtrToDelete) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(__ecerePtrToDelete);
1072 }) : 0), newSpec = 0);
1073 }
1074 if(decl)
1075 {
1076 unsigned int isPointer = decl->type == 5;
1077
1078 if(isPointer)
1079 return 1;
1080 }
1081 }
1082 else
1083 {
1084 spec->type = 1;
1085 spec->__anon1.__anon1.name = __ecereNameSpace__ecere__sys__CopyString("uint64");
1086 spec->__anon1.__anon1.symbol = FindClass("uint64");
1087 }
1088 }
1089 if(spec->type == 1 || spec->type == 7)
1090 {
1091 struct Symbol * classSym = spec->__anon1.__anon1.symbol;
1092
1093 if(spec->type == 7)
1094 {
1095 classSym = FindClass("ecere::com::Class");
1096 }
1097 if(classSym)
1098 {
1099 struct __ecereNameSpace__ecere__com__Class * _class = classSym->__anon1.registered;
1100
1101 FreeSpecifierContents(spec);
1102 spec->type = 1;
1103 if(_class && _class->type == 1)
1104 {
1105 char name[1024];
1106
1107 name[0] = 0;
1108 FullClassNameCat(name, _class->fullName, 0);
1109 FreeSpecifierContents(spec);
1110 spec->type = 3;
1111 spec->__anon1.__anon2.baseSpecs = (((void *)0));
1112 spec->__anon1.__anon2.id = MkIdentifier(name);
1113 spec->__anon1.__anon2.list = (((void *)0));
1114 spec->__anon1.__anon2.definitions = (((void *)0));
1115 spec->__anon1.__anon2.ctx = (((void *)0));
1116 spec->__anon1.__anon2.addNameSpace = 0;
1117 }
1118 else if(_class && _class->type == 5)
1119 {
1120 char name[1024] = "";
1121
1122 FullClassNameCat(name, _class->fullName, 0);
1123 spec->type = 3;
1124 spec->__anon1.__anon2.baseSpecs = (((void *)0));
1125 spec->__anon1.__anon2.id = MkIdentifier(name);
1126 spec->__anon1.__anon2.list = (((void *)0));
1127 spec->__anon1.__anon2.definitions = (((void *)0));
1128 spec->__anon1.__anon2.ctx = (((void *)0));
1129 spec->__anon1.__anon2.addNameSpace = 0;
1130 }
1131 else if(_class)
1132 {
1133 if((_class->type != 1000 || !strcmp(_class->fullName, "enum") || (_class->dataTypeString && !strcmp(_class->dataTypeString, "char *")) || !strcmp(_class->fullName, "uint64") || !strcmp(_class->fullName, "uint32") || !strcmp(_class->fullName, "uint16") || !strcmp(_class->fullName, "uintptr") || !strcmp(_class->fullName, "intptr") || !strcmp(_class->fullName, "uintsize") || !strcmp(_class->fullName, "intsize") || !strcmp(_class->fullName, "uint") || !strcmp(_class->fullName, "byte")))
1134 {
1135 if(_class->dataTypeString)
1136 {
1137 if(!strcmp(_class->dataTypeString, "uint64") || !strcmp(_class->dataTypeString, "uint32") || !strcmp(_class->dataTypeString, "uint16") || !strcmp(_class->dataTypeString, "uintptr") || !strcmp(_class->dataTypeString, "intptr") || !strcmp(_class->dataTypeString, "uintsize") || !strcmp(_class->dataTypeString, "intsize") || !strcmp(_class->dataTypeString, "uint") || !strcmp(_class->dataTypeString, "byte"))
1138 {
1139 if(!_class->dataType)
1140 _class->dataType = ProcessTypeString(_class->dataTypeString, 0);
1141 if(_class->dataType && _class->dataType->kind == 8)
1142 classSym = _class->dataType->__anon1._class;
1143 else
1144 classSym = FindClass(_class->dataTypeString);
1145 _class = classSym ? classSym->__anon1.registered : (((void *)0));
1146 }
1147 spec->__anon1.__anon1.name = __ecereNameSpace__ecere__sys__CopyString(!strcmp(_class->dataTypeString, "char *") ? "char" : _class->dataTypeString);
1148 spec->__anon1.__anon1.symbol = (((void *)0));
1149 }
1150 else
1151 {
1152 spec->__anon1.__anon1.name = __ecereNameSpace__ecere__sys__CopyString((((void *)0)));
1153 spec->__anon1.__anon1.symbol = (((void *)0));
1154 }
1155 }
1156 else if(!_class->base)
1157 {
1158 spec->type = 0;
1159 spec->__anon1.specifier = VOID;
1160 return 1;
1161 }
1162 }
1163 else
1164 {
1165 spec->type = 3;
1166 spec->__anon1.__anon2.id = MkIdentifier("__ecereNameSpace__ecere__com__Instance");
1167 spec->__anon1.__anon2.list = (((void *)0));
1168 spec->__anon1.__anon2.baseSpecs = (((void *)0));
1169 spec->__anon1.__anon2.definitions = (((void *)0));
1170 spec->__anon1.__anon2.ctx = (((void *)0));
1171 spec->__anon1.__anon2.addNameSpace = 0;
1172 }
1173 if(_class && _class->dataTypeString && !strcmp(_class->dataTypeString, "char *"))
1174 return 1;
1175 if(!_class || _class->type == 0 || _class->type == 5)
1176 return 1;
1177 else if(param && _class->type == 1)
1178 return 2;
1179 }
1180 }
1181 else if(spec->type == 0)
1182 {
1183 if(spec->__anon1.specifier == ANY_OBJECT || spec->__anon1.specifier == CLASS)
1184 {
1185 spec->__anon1.specifier = CONST;
1186 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(specs, MkSpecifier(VOID));
1187 return 1;
1188 }
1189 }
1190 return 0;
1191 }
1192
1193 void TopoSort(struct __ecereNameSpace__ecere__sys__OldList * input)
1194 {
1195 struct __ecereNameSpace__ecere__sys__OldList L =
1196 {
1197 0, 0, 0, 0, 0
1198 };
1199 struct __ecereNameSpace__ecere__sys__OldList S =
1200 {
1201 0, 0, 0, 0, 0
1202 };
1203 struct __ecereNameSpace__ecere__sys__OldList B =
1204 {
1205 0, 0, 0, 0, 0
1206 };
1207 struct External * n, * next;
1208
1209 for(n = (*input).first; n; n = next)
1210 {
1211 next = n->next;
1212 if(n->type == 1 && !n->__anon1.declaration)
1213 {
1214 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*input), n);
1215 if(n->symbol && n->symbol->__anon2.__anon1.structExternal == n)
1216 n->symbol->__anon2.__anon1.structExternal = (((void *)0));
1217 FreeExternal(n);
1218 }
1219 else if(!((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)n->incoming + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->count)
1220 {
1221 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*input), n);
1222 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&S, n);
1223 }
1224 else if(!n->nonBreakableIncoming)
1225 {
1226 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*input), n);
1227 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&B, n);
1228 }
1229 }
1230 while(1)
1231 {
1232 struct TopoEdge * e, * ne;
1233
1234 if((n = S.first))
1235 {
1236 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove(&S, (struct __ecereNameSpace__ecere__com__IteratorPointer *)n);
1237 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&L, n);
1238 for(e = ((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)n->outgoing + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->first; e; e = ne)
1239 {
1240 struct External * m = e->to;
1241 struct __ecereNameSpace__ecere__sys__OldList * list;
1242
1243 if(m->nonBreakableIncoming)
1244 {
1245 list = input;
1246 }
1247 else
1248 {
1249 list = &B;
1250 }
1251 if(!(*list).count)
1252 __ecereNameSpace__ecere__com__PrintLn(__ecereClass_char__PTR_, "!!! Something's wrong !!!", (void *)0);
1253 ne = e->out.next;
1254 if(!e->breakable)
1255 {
1256 m->nonBreakableIncoming--;
1257 }
1258 (__extension__ ({
1259 void (*  __internal_VirtualMethod)(struct __ecereNameSpace__ecere__com__Instance *, struct __ecereNameSpace__ecere__com__IteratorPointer * it);
1260
1261 __internal_VirtualMethod = ((void (*)(struct __ecereNameSpace__ecere__com__Instance *, struct __ecereNameSpace__ecere__com__IteratorPointer * it))__extension__ ({
1262 struct __ecereNameSpace__ecere__com__Instance * __internal_ClassInst = n->outgoing;
1263
1264 __internal_ClassInst ? __internal_ClassInst->_vTbl : __ecereClass___ecereNameSpace__ecere__com__LinkList->_vTbl;
1265 })[__ecereVMethodID___ecereNameSpace__ecere__com__Container_Remove]);
1266 __internal_VirtualMethod ? __internal_VirtualMethod(n->outgoing, (struct __ecereNameSpace__ecere__com__IteratorPointer *)e) : (void)1;
1267 }));
1268 (__extension__ ({
1269 void (*  __internal_VirtualMethod)(struct __ecereNameSpace__ecere__com__Instance *, struct __ecereNameSpace__ecere__com__IteratorPointer * it);
1270
1271 __internal_VirtualMethod = ((void (*)(struct __ecereNameSpace__ecere__com__Instance *, struct __ecereNameSpace__ecere__com__IteratorPointer * it))__extension__ ({
1272 struct __ecereNameSpace__ecere__com__Instance * __internal_ClassInst = m->incoming;
1273
1274 __internal_ClassInst ? __internal_ClassInst->_vTbl : __ecereClass___ecereNameSpace__ecere__com__LinkList->_vTbl;
1275 })[__ecereVMethodID___ecereNameSpace__ecere__com__Container_Remove]);
1276 __internal_VirtualMethod ? __internal_VirtualMethod(m->incoming, (struct __ecereNameSpace__ecere__com__IteratorPointer *)e) : (void)1;
1277 }));
1278 ((e ? __extension__ ({
1279 void * __ecerePtrToDelete = (e);
1280
1281 __ecereClass_TopoEdge->Destructor ? __ecereClass_TopoEdge->Destructor((void *)__ecerePtrToDelete) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(__ecerePtrToDelete);
1282 }) : 0), e = 0);
1283 if(!((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)m->incoming + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->count)
1284 {
1285 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*list), m);
1286 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&S, m);
1287 }
1288 else if(!m->nonBreakableIncoming)
1289 {
1290 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*list), m);
1291 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&B, m);
1292 }
1293 }
1294 }
1295 else if((n = B.first))
1296 {
1297 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove(&B, (struct __ecereNameSpace__ecere__com__IteratorPointer *)n);
1298 for(e = ((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)n->incoming + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->first; e; e = ne)
1299 {
1300 struct TopoEdge * e2, * n2;
1301 struct External * m = e->from;
1302 struct External * f;
1303
1304 f = __ecereMethod_External_ForwardDeclare(m);
1305 ne = e->in.next;
1306 {
1307 struct External * c, * next;
1308
1309 for(c = (*input).first; c; c = next)
1310 {
1311 next = c->next;
1312 if(!((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)c->incoming + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->count)
1313 {
1314 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*input), c);
1315 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&S, c);
1316 }
1317 else if(!c->nonBreakableIncoming)
1318 {
1319 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*input), c);
1320 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&B, c);
1321 }
1322 }
1323 }
1324 for(e2 = ((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)m->outgoing + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->first; e2; e2 = n2)
1325 {
1326 n2 = e2->out.next;
1327 if(e2->breakable)
1328 {
1329 struct External * to = e2->to;
1330
1331 if(e2 == e)
1332 ;
1333 else
1334 ;
1335 e2->breakable = 0;
1336 e2->from = f;
1337 (__extension__ ({
1338 void (*  __internal_VirtualMethod)(struct __ecereNameSpace__ecere__com__Instance *, struct __ecereNameSpace__ecere__com__IteratorPointer * it);
1339
1340 __internal_VirtualMethod = ((void (*)(struct __ecereNameSpace__ecere__com__Instance *, struct __ecereNameSpace__ecere__com__IteratorPointer * it))__extension__ ({
1341 struct __ecereNameSpace__ecere__com__Instance * __internal_ClassInst = m->outgoing;
1342
1343 __internal_ClassInst ? __internal_ClassInst->_vTbl : __ecereClass___ecereNameSpace__ecere__com__LinkList->_vTbl;
1344 })[__ecereVMethodID___ecereNameSpace__ecere__com__Container_Remove]);
1345 __internal_VirtualMethod ? __internal_VirtualMethod(m->outgoing, (struct __ecereNameSpace__ecere__com__IteratorPointer *)e2) : (void)1;
1346 }));
1347 (__extension__ ({
1348 struct __ecereNameSpace__ecere__com__IteratorPointer * (*  __internal_VirtualMethod)(struct __ecereNameSpace__ecere__com__Instance *, uint64 value);
1349
1350 __internal_VirtualMethod = ((struct __ecereNameSpace__ecere__com__IteratorPointer * (*)(struct __ecereNameSpace__ecere__com__Instance *, uint64 value))__extension__ ({
1351 struct __ecereNameSpace__ecere__com__Instance * __internal_ClassInst = f->outgoing;
1352
1353 __internal_ClassInst ? __internal_ClassInst->_vTbl : __ecereClass___ecereNameSpace__ecere__com__LinkList->_vTbl;
1354 })[__ecereVMethodID___ecereNameSpace__ecere__com__Container_Add]);
1355 __internal_VirtualMethod ? __internal_VirtualMethod(f->outgoing, (uint64)(uintptr_t)(e2)) : (struct __ecereNameSpace__ecere__com__IteratorPointer *)1;
1356 }));
1357 to->nonBreakableIncoming++;
1358 if(e2 != e && to->nonBreakableIncoming == 1)
1359 {
1360 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove(&B, to);
1361 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*input), to);
1362 }
1363 }
1364 }
1365 if(!((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)f->incoming + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->count)
1366 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&S, f);
1367 else if(!f->nonBreakableIncoming)
1368 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&B, f);
1369 else
1370 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*input), f);
1371 if(S.first)
1372 break;
1373 }
1374 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*input), n);
1375 }
1376 else
1377 {
1378 if((*input).count)
1379 {
1380 Compiler_Error("declarations cycles found\n");
1381 }
1382 else
1383 *input = L;
1384 break;
1385 }
1386 }
1387 for(n = (*input).first; n; n = next)
1388 {
1389 next = n->next;
1390 if(n->type == 1 && (!n->__anon1.declaration || ((!n->__anon1.declaration->__anon1.__anon1.specifiers || !(*n->__anon1.declaration->__anon1.__anon1.specifiers).count) && (!n->__anon1.declaration->__anon1.__anon1.declarators || !(*n->__anon1.declaration->__anon1.__anon1.declarators).count))))
1391 {
1392 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*input), n);
1393 if(n->symbol && n->symbol->__anon2.__anon1.structExternal == n)
1394 n->symbol->__anon2.__anon1.structExternal = (((void *)0));
1395 FreeExternal(n);
1396 }
1397 }
1398 }
1399
1400 void __ecereUnregisterModule_pass3(struct __ecereNameSpace__ecere__com__Instance * module)
1401 {
1402
1403 }
1404
1405 struct Statement;
1406
1407 typedef union YYSTYPE
1408 {
1409 int specifierType;
1410 int i;
1411 int declMode;
1412 struct Identifier * id;
1413 struct Expression * exp;
1414 struct Specifier * specifier;
1415 struct __ecereNameSpace__ecere__sys__OldList * list;
1416 struct Enumerator * enumerator;
1417 struct Declarator * declarator;
1418 struct Pointer * pointer;
1419 struct Initializer * initializer;
1420 struct InitDeclarator * initDeclarator;
1421 struct TypeName * typeName;
1422 struct Declaration * declaration;
1423 struct Statement * stmt;
1424 struct FunctionDefinition * function;
1425 struct External * external;
1426 struct Context * context;
1427 struct AsmField * asmField;
1428 struct Attrib * attrib;
1429 struct ExtDecl * extDecl;
1430 struct Attribute * attribute;
1431 struct Instantiation * instance;
1432 struct MembersInit * membersInit;
1433 struct MemberInit * memberInit;
1434 struct ClassFunction * classFunction;
1435 struct ClassDefinition * _class;
1436 struct ClassDef * classDef;
1437 struct PropertyDef * prop;
1438 char * string;
1439 struct Symbol * symbol;
1440 struct PropertyWatch * propertyWatch;
1441 struct TemplateParameter * templateParameter;
1442 struct TemplateArgument * templateArgument;
1443 struct TemplateDatatype * templateDatatype;
1444 struct DBTableEntry * dbtableEntry;
1445 struct DBIndexItem * dbindexItem;
1446 struct DBTableDef * dbtableDef;
1447 } ecere_gcc_struct YYSTYPE;
1448
1449 extern YYSTYPE yylval;
1450
1451 struct Expression
1452 {
1453 struct Expression * prev;
1454 struct Expression * next;
1455 struct Location loc;
1456 int type;
1457 union
1458 {
1459 struct
1460 {
1461 char *  constant;
1462 struct Identifier * identifier;
1463 } ecere_gcc_struct __anon1;
1464 struct Statement * compound;
1465 struct Instantiation * instance;
1466 struct
1467 {
1468 char *  string;
1469 unsigned int intlString;
1470 unsigned int wideString;
1471 } ecere_gcc_struct __anon2;
1472 struct __ecereNameSpace__ecere__sys__OldList *  list;
1473 struct
1474 {
1475 struct __ecereNameSpace__ecere__sys__OldList * specifiers;
1476 struct Declarator * decl;
1477 } ecere_gcc_struct _classExp;
1478 struct
1479 {
1480 struct Identifier * id;
1481 } ecere_gcc_struct classData;
1482 struct
1483 {
1484 struct Expression * exp;
1485 struct __ecereNameSpace__ecere__sys__OldList * arguments;
1486 struct Location argLoc;
1487 } ecere_gcc_struct call;
1488 struct
1489 {
1490 struct Expression * exp;
1491 struct __ecereNameSpace__ecere__sys__OldList * index;
1492 } ecere_gcc_struct index;
1493 struct
1494 {
1495 struct Expression * exp;
1496 struct Identifier * member;
1497 int memberType;
1498 unsigned int thisPtr;
1499 } ecere_gcc_struct member;
1500 struct
1501 {
1502 int op;
1503 struct Expression * exp1;
1504 struct Expression * exp2;
1505 } ecere_gcc_struct op;
1506 struct TypeName * typeName;
1507 struct Specifier * _class;
1508 struct
1509 {
1510 struct TypeName * typeName;
1511 struct Expression * exp;
1512 } ecere_gcc_struct cast;
1513 struct
1514 {
1515 struct Expression * cond;
1516 struct __ecereNameSpace__ecere__sys__OldList * exp;
1517 struct Expression * elseExp;
1518 } ecere_gcc_struct cond;
1519 struct
1520 {
1521 struct TypeName * typeName;
1522 struct Expression * size;
1523 } ecere_gcc_struct _new;
1524 struct
1525 {
1526 struct TypeName * typeName;
1527 struct Expression * size;
1528 struct Expression * exp;
1529 } ecere_gcc_struct _renew;
1530 struct
1531 {
1532 char * table;
1533 struct Identifier * id;
1534 } ecere_gcc_struct db;
1535 struct
1536 {
1537 struct Expression * ds;
1538 struct Expression * name;
1539 } ecere_gcc_struct dbopen;
1540 struct
1541 {
1542 struct TypeName * typeName;
1543 struct Initializer * initializer;
1544 } ecere_gcc_struct initializer;
1545 struct
1546 {
1547 struct Expression * exp;
1548 struct TypeName * typeName;
1549 } ecere_gcc_struct vaArg;
1550 struct
1551 {
1552 struct TypeName * typeName;
1553 struct Identifier * id;
1554 } ecere_gcc_struct offset;
1555 } ecere_gcc_struct __anon1;
1556 unsigned int debugValue;
1557 struct __ecereNameSpace__ecere__com__DataValue val;
1558 uint64 address;
1559 unsigned int hasAddress;
1560 struct Type * expType;
1561 struct Type * destType;
1562 unsigned int usage;
1563 int tempCount;
1564 unsigned int byReference;
1565 unsigned int isConstant;
1566 unsigned int addedThis;
1567 unsigned int needCast;
1568 unsigned int thisPtr;
1569 unsigned int opDestType;
1570 unsigned int usedInComparison;
1571 unsigned int ambiguousUnits;
1572 unsigned int parentOpDestType;
1573 unsigned int needTemplateCast;
1574 } ecere_gcc_struct;
1575
1576 struct Statement
1577 {
1578 struct Statement * prev;
1579 struct Statement * next;
1580 struct Location loc;
1581 int type;
1582 union
1583 {
1584 struct __ecereNameSpace__ecere__sys__OldList *  expressions;
1585 struct
1586 {
1587 struct Identifier * id;
1588 struct Statement * stmt;
1589 } ecere_gcc_struct labeled;
1590 struct
1591 {
1592 struct Expression * exp;
1593 struct Statement * stmt;
1594 } ecere_gcc_struct caseStmt;
1595 struct
1596 {
1597 struct __ecereNameSpace__ecere__sys__OldList * declarations;
1598 struct __ecereNameSpace__ecere__sys__OldList * statements;
1599 struct Context * context;
1600 unsigned int isSwitch;
1601 } ecere_gcc_struct compound;
1602 struct
1603 {
1604 struct __ecereNameSpace__ecere__sys__OldList * exp;
1605 struct Statement * stmt;
1606 struct Statement * elseStmt;
1607 } ecere_gcc_struct ifStmt;
1608 struct
1609 {
1610 struct __ecereNameSpace__ecere__sys__OldList * exp;
1611 struct Statement * stmt;
1612 } ecere_gcc_struct switchStmt;
1613 struct
1614 {
1615 struct __ecereNameSpace__ecere__sys__OldList * exp;
1616 struct Statement * stmt;
1617 } ecere_gcc_struct whileStmt;
1618 struct
1619 {
1620 struct __ecereNameSpace__ecere__sys__OldList * exp;
1621 struct Statement * stmt;
1622 } ecere_gcc_struct doWhile;
1623 struct
1624 {
1625 struct Statement * init;
1626 struct Statement * check;
1627 struct __ecereNameSpace__ecere__sys__OldList * increment;
1628 struct Statement * stmt;
1629 } ecere_gcc_struct forStmt;
1630 struct
1631 {
1632 struct Identifier * id;
1633 } ecere_gcc_struct gotoStmt;
1634 struct
1635 {
1636 struct Specifier * spec;
1637 char * statements;
1638 struct __ecereNameSpace__ecere__sys__OldList * inputFields;
1639 struct __ecereNameSpace__ecere__sys__OldList * outputFields;
1640 struct __ecereNameSpace__ecere__sys__OldList * clobberedFields;
1641 } ecere_gcc_struct asmStmt;
1642 struct
1643 {
1644 struct Expression * watcher;
1645 struct Expression * object;
1646 struct __ecereNameSpace__ecere__sys__OldList * watches;
1647 } ecere_gcc_struct _watch;
1648 struct
1649 {
1650 struct Identifier * id;
1651 struct __ecereNameSpace__ecere__sys__OldList * exp;
1652 struct __ecereNameSpace__ecere__sys__OldList * filter;
1653 struct Statement * stmt;
1654 } ecere_gcc_struct forEachStmt;
1655 struct Declaration * decl;
1656 } ecere_gcc_struct __anon1;
1657 } ecere_gcc_struct;
1658
1659 struct FunctionDefinition
1660 {
1661 struct FunctionDefinition * prev;
1662 struct FunctionDefinition * next;
1663 struct Location loc;
1664 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
1665 struct Declarator * declarator;
1666 struct __ecereNameSpace__ecere__sys__OldList *  declarations;
1667 struct Statement * body;
1668 struct __ecereNameSpace__ecere__com__Class * _class;
1669 struct __ecereNameSpace__ecere__sys__OldList attached;
1670 int declMode;
1671 struct Type * type;
1672 struct Symbol * propSet;
1673 int tempCount;
1674 unsigned int propertyNoThis;
1675 } ecere_gcc_struct;
1676
1677 static void AddPointerCast(struct Expression * e)
1678 {
1679 struct Type * src = e->expType;
1680
1681 if(src && (src->kind == 20 || src->kind == 8))
1682 {
1683 if(e->type != 11 || !IsVoidPtrCast(e->__anon1.cast.typeName))
1684 {
1685 if(src)
1686 src->refCount++;
1687 if(src->kind == 20 && src->__anon1.templateParameter && src->__anon1.templateParameter->type == 0)
1688 {
1689 struct Type * newType = (((void *)0));
1690
1691 if(src->__anon1.templateParameter->dataTypeString)
1692 newType = ProcessTypeString(src->__anon1.templateParameter->dataTypeString, 0);
1693 else if(src->__anon1.templateParameter->__anon1.dataType)
1694 newType = ProcessType(src->__anon1.templateParameter->__anon1.dataType->specifiers, src->__anon1.templateParameter->__anon1.dataType->decl);
1695 if(newType)
1696 {
1697 FreeType(src);
1698 src = newType;
1699 }
1700 }
1701 if(src && src->kind == 8 && src->__anon1._class)
1702 {
1703 struct __ecereNameSpace__ecere__com__Class * sc = src->__anon1._class->__anon1.registered;
1704
1705 if(src->thisClassFrom && src->thisClassFrom->base)
1706 sc = src->thisClassFrom;
1707 if(sc && (sc->type == 1 || sc->type == 5))
1708 {
1709 struct Type * dest = e->destType;
1710
1711 if(dest && (dest->kind == 20 || dest->kind == 8))
1712 {
1713 if(dest)
1714 dest->refCount++;
1715 if(dest->kind == 20 && dest->__anon1.templateParameter && dest->__anon1.templateParameter->type == 0)
1716 {
1717 struct Type * newType = (((void *)0));
1718
1719 if(dest->__anon1.templateParameter->dataTypeString)
1720 newType = ProcessTypeString(dest->__anon1.templateParameter->dataTypeString, 0);
1721 else if(dest->__anon1.templateParameter->__anon1.dataType)
1722 newType = ProcessType(dest->__anon1.templateParameter->__anon1.dataType->specifiers, dest->__anon1.templateParameter->__anon1.dataType->decl);
1723 if(newType)
1724 {
1725 FreeType(dest);
1726 dest = newType;
1727 }
1728 }
1729 if(!dest->passAsTemplate && dest->kind == 8 && dest->__anon1._class && dest->__anon1._class->__anon1.registered)
1730 {
1731 struct __ecereNameSpace__ecere__com__Class * dc = dest->__anon1._class->__anon1.registered;
1732
1733 if(sc->templateClass)
1734 sc = sc->templateClass;
1735 if(dc->templateClass)
1736 dc = dc->templateClass;
1737 if(dc->base && sc != dc)
1738 {
1739 e->__anon1.cast.exp = MkExpBrackets(MkListOne(MoveExpContents(e)));
1740 e->type = 11;
1741 e->__anon1.typeName = MkTypeName(MkListOne(MkSpecifier(VOID)), QMkPtrDecl((((void *)0))));
1742 }
1743 }
1744 FreeType(dest);
1745 }
1746 }
1747 }
1748 FreeType(src);
1749 }
1750 }
1751 else if(src && src->kind == 22 && e->destType && e->destType->classObjectType)
1752 {
1753 struct Expression * nbExp = GetNonBracketsExp(e);
1754
1755 if(nbExp->type != 11 || !IsVoidPtrCast(nbExp->__anon1.cast.typeName))
1756 {
1757 e->__anon1.cast.exp = MkExpBrackets(MkListOne(MoveExpContents(e)));
1758 e->type = 11;
1759 e->__anon1.typeName = MkTypeName(MkListOne(MkSpecifier(VOID)), QMkPtrDecl((((void *)0))));
1760 }
1761 }
1762 }
1763
1764 static void InstDeclPassDeclaration(struct Declaration *  decl);
1765
1766 static void InstDeclPassSpecifier(struct Specifier * spec, unsigned int byRefTypedObject)
1767 {
1768 switch(spec->type)
1769 {
1770 case 0:
1771 if(spec->__anon1.specifier == TYPED_OBJECT)
1772 {
1773 spec->type = 5;
1774 spec->__anon1.__anon1.extDecl = MkExtDeclString(__ecereNameSpace__ecere__sys__CopyString(byRefTypedObject ? "struct __ecereNameSpace__ecere__com__Class * class, void *" : "struct __ecereNameSpace__ecere__com__Class * class, const void *"));
1775 DeclareStruct(curExternal, "ecere::com::Class", 0, 1);
1776 }
1777 break;
1778 case 1:
1779 break;
1780 case 2:
1781 {
1782 struct Enumerator * e;
1783
1784 if(spec->__anon1.__anon2.list)
1785 {
1786 for(e = (*spec->__anon1.__anon2.list).first; e; e = e->next)
1787 {
1788 }
1789 }
1790 break;
1791 }
1792 case 3:
1793 case 4:
1794 {
1795 if(spec->__anon1.__anon2.definitions)
1796 {
1797 struct ClassDef * def;
1798
1799 for(def = (*spec->__anon1.__anon2.definitions).first; def; def = def->next)
1800 if(def->__anon1.decl)
1801 InstDeclPassDeclaration(def->__anon1.decl);
1802 }
1803 if(spec->__anon1.__anon2.id)
1804 InstDeclPassIdentifier(spec->__anon1.__anon2.id);
1805 break;
1806 }
1807 case 5:
1808 if(spec->__anon1.__anon1.extDecl && spec->__anon1.__anon1.extDecl->type == 0 && spec->__anon1.__anon1.extDecl->__anon1.s)
1809 {
1810 if(!strcmp(spec->__anon1.__anon1.extDecl->__anon1.s, "dllexport"))
1811 {
1812 struct Specifier * prevSpec;
1813
1814 (__ecereNameSpace__ecere__com__eSystem_Delete(spec->__anon1.__anon1.extDecl->__anon1.s), spec->__anon1.__anon1.extDecl->__anon1.s = 0);
1815 for(prevSpec = spec->prev; prevSpec; prevSpec = prevSpec->prev)
1816 if(prevSpec->type == 0 && prevSpec->__anon1.specifier == EXTERN)
1817 break;
1818 if(prevSpec)
1819 {
1820 if(targetPlatform == 1)
1821 spec->__anon1.__anon1.extDecl->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("__declspec(dllexport)");
1822 else
1823 spec->__anon1.__anon1.extDecl->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("__attribute__ ((visibility(\"default\")))");
1824 }
1825 else
1826 {
1827 if(targetPlatform == 1)
1828 spec->__anon1.__anon1.extDecl->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("extern __declspec(dllexport)");
1829 else
1830 spec->__anon1.__anon1.extDecl->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("extern __attribute__ ((visibility(\"default\")))");
1831 }
1832 }
1833 else if(!strcmp(spec->__anon1.__anon1.extDecl->__anon1.s, "stdcall") || !strcmp(spec->__anon1.__anon1.extDecl->__anon1.s, "_stdcall") || !strcmp(spec->__anon1.__anon1.extDecl->__anon1.s, "__stdcall") || !strcmp(spec->__anon1.__anon1.extDecl->__anon1.s, "__stdcall__"))
1834 {
1835 (__ecereNameSpace__ecere__com__eSystem_Delete(spec->__anon1.__anon1.extDecl->__anon1.s), spec->__anon1.__anon1.extDecl->__anon1.s = 0);
1836 spec->__anon1.__anon1.extDecl->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("ecere_stdcall");
1837 }
1838 }
1839 break;
1840 }
1841 }
1842
1843 void InstDeclPassTypeName(struct TypeName *  type, unsigned int param);
1844
1845 static void InstDeclPassDeclarator(struct Declarator * decl)
1846 {
1847 switch(decl->type)
1848 {
1849 case 0:
1850 if(decl->declarator)
1851 InstDeclPassDeclarator(decl->declarator);
1852 break;
1853 case 1:
1854 {
1855 if(decl->__anon1.identifier)
1856 InstDeclPassIdentifier(decl->__anon1.identifier);
1857 break;
1858 }
1859 case 2:
1860 if(decl->declarator)
1861 InstDeclPassDeclarator(decl->declarator);
1862 break;
1863 case 3:
1864 if(decl->declarator)
1865 InstDeclPassDeclarator(decl->declarator);
1866 break;
1867 case 4:
1868 {
1869 if(decl->declarator)
1870 InstDeclPassDeclarator(decl->declarator);
1871 if(decl->__anon1.function.parameters)
1872 {
1873 struct TypeName * type;
1874
1875 if(decl->declarator)
1876 InstDeclPassDeclarator(decl->declarator);
1877 for(type = (*decl->__anon1.function.parameters).first; type; type = type->next)
1878 {
1879 unsigned int typedObject = 0;
1880 struct Specifier * spec = (((void *)0));
1881
1882 if(type->qualifiers)
1883 {
1884 spec = (struct Specifier *)(*type->qualifiers).first;
1885 if(spec && spec->type == 1 && spec->__anon1.__anon1.name && !strcmp(spec->__anon1.__anon1.name, "class"))
1886 typedObject = 1;
1887 }
1888 InstDeclPassTypeName(type, 1);
1889 if(typedObject)
1890 {
1891 struct TypeName * _class = (_class = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_TypeName), _class->qualifiers = MkListOne(MkStructOrUnion(3, MkIdentifier("__ecereNameSpace__ecere__com__Class"), (((void *)0)))), _class->declarator = MkDeclaratorPointer(MkPointer((((void *)0)), (((void *)0))), MkDeclaratorIdentifier(MkIdentifier("class"))), _class);
1892
1893 DeclareStruct(curExternal, "ecere::com::Class", 0, 1);
1894 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*decl->__anon1.function.parameters), spec->prev, _class);
1895 }
1896 }
1897 }
1898 break;
1899 }
1900 case 5:
1901 case 6:
1902 case 7:
1903 if((decl->type == 6 || decl->type == 7) && decl->__anon1.extended.extended)
1904 {
1905 if(decl->__anon1.extended.extended->type == 0 && decl->__anon1.extended.extended->__anon1.s && !strcmp(decl->__anon1.extended.extended->__anon1.s, "dllexport"))
1906 {
1907 (__ecereNameSpace__ecere__com__eSystem_Delete(decl->__anon1.extended.extended->__anon1.s), decl->__anon1.extended.extended->__anon1.s = 0);
1908 if(targetPlatform == 1)
1909 decl->__anon1.extended.extended->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("extern __declspec(dllexport)");
1910 else
1911 decl->__anon1.extended.extended->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("extern __attribute__ ((visibility(\"default\")))");
1912 }
1913 else if(decl->__anon1.extended.extended->type == 0 && decl->__anon1.extended.extended->__anon1.s && (!strcmp(decl->__anon1.extended.extended->__anon1.s, "stdcall") || !strcmp(decl->__anon1.extended.extended->__anon1.s, "_stdcall") || !strcmp(decl->__anon1.extended.extended->__anon1.s, "__stdcall") || !strcmp(decl->__anon1.extended.extended->__anon1.s, "__stdcall__")))
1914 {
1915 (__ecereNameSpace__ecere__com__eSystem_Delete(decl->__anon1.extended.extended->__anon1.s), decl->__anon1.extended.extended->__anon1.s = 0);
1916 decl->__anon1.extended.extended->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("ecere_stdcall");
1917 }
1918 }
1919 if(decl->declarator)
1920 InstDeclPassDeclarator(decl->declarator);
1921 break;
1922 }
1923 }
1924
1925 void InstDeclPassTypeName(struct TypeName * type, unsigned int param)
1926 {
1927 if(type->qualifiers)
1928 {
1929 struct Specifier * spec;
1930
1931 for(spec = (*type->qualifiers).first; spec; spec = spec->next)
1932 {
1933 int result;
1934
1935 if((result = ReplaceClassSpec(type->qualifiers, spec, param)))
1936 ReplaceByInstancePtr(spec, &type->declarator, result);
1937 else
1938 {
1939 struct Symbol * classSym = (spec->type == 1) ? spec->__anon1.__anon1.symbol : (((void *)0));
1940
1941 if(type->classObjectType && (!classSym || (classSym && classSym->__anon1.registered && (classSym->__anon1.registered->type == 4 || classSym->__anon1.registered->type == 2 || classSym->__anon1.registered->type == 3))))
1942 ReplaceByInstancePtr(spec, &type->declarator, 2);
1943 }
1944 InstDeclPassSpecifier(spec, type->declarator && type->declarator->type == 5);
1945 }
1946 }
1947 if(type->declarator)
1948 InstDeclPassDeclarator(type->declarator);
1949 }
1950
1951 static void InstDeclPassExpression(struct Expression *  exp);
1952
1953 static void InstDeclPassInitializer(struct Initializer * init)
1954 {
1955 switch(init->type)
1956 {
1957 case 0:
1958 if(init->__anon1.exp)
1959 {
1960 InstDeclPassExpression(init->__anon1.exp);
1961 AddPointerCast(init->__anon1.exp);
1962 }
1963 break;
1964 case 1:
1965 {
1966 struct Initializer * i;
1967
1968 for(i = (*init->__anon1.list).first; i; i = i->next)
1969 InstDeclPassInitializer(i);
1970 break;
1971 }
1972 }
1973 }
1974
1975 static void InstDeclPassStatement(struct Statement * stmt)
1976 {
1977 switch(stmt->type)
1978 {
1979 case 14:
1980 if(stmt->__anon1.decl)
1981 InstDeclPassDeclaration(stmt->__anon1.decl);
1982 break;
1983 case 0:
1984 InstDeclPassStatement(stmt->__anon1.labeled.stmt);
1985 break;
1986 case 1:
1987 if(stmt->__anon1.caseStmt.exp)
1988 InstDeclPassExpression(stmt->__anon1.caseStmt.exp);
1989 if(stmt->__anon1.caseStmt.stmt)
1990 InstDeclPassStatement(stmt->__anon1.caseStmt.stmt);
1991 break;
1992 case 2:
1993 {
1994 struct Declaration * decl;
1995 struct Statement * s;
1996 struct Context * prevContext = curContext;
1997
1998 if(!stmt->__anon1.compound.isSwitch)
1999 curContext = stmt->__anon1.compound.context;
2000 if(stmt->__anon1.compound.declarations)
2001 {
2002 for(decl = (*stmt->__anon1.compound.declarations).first; decl; decl = decl->next)
2003 InstDeclPassDeclaration(decl);
2004 }
2005 if(stmt->__anon1.compound.statements)
2006 {
2007 for(s = (*stmt->__anon1.compound.statements).first; s; s = s->next)
2008 InstDeclPassStatement(s);
2009 }
2010 curContext = prevContext;
2011 break;
2012 }
2013 case 3:
2014 {
2015 if(stmt->__anon1.expressions)
2016 {
2017 struct Expression * exp;
2018
2019 for(exp = (*stmt->__anon1.expressions).first; exp; exp = exp->next)
2020 InstDeclPassExpression(exp);
2021 }
2022 break;
2023 }
2024 case 4:
2025 {
2026 if(stmt->__anon1.ifStmt.exp)
2027 {
2028 struct Expression * exp;
2029
2030 for(exp = (*stmt->__anon1.ifStmt.exp).first; exp; exp = exp->next)
2031 InstDeclPassExpression(exp);
2032 }
2033 if(stmt->__anon1.ifStmt.stmt)
2034 InstDeclPassStatement(stmt->__anon1.ifStmt.stmt);
2035 if(stmt->__anon1.ifStmt.elseStmt)
2036 InstDeclPassStatement(stmt->__anon1.ifStmt.elseStmt);
2037 break;
2038 }
2039 case 5:
2040 {
2041 struct Expression * exp;
2042
2043 if(stmt->__anon1.switchStmt.exp)
2044 {
2045 for(exp = (*stmt->__anon1.switchStmt.exp).first; exp; exp = exp->next)
2046 InstDeclPassExpression(exp);
2047 }
2048 InstDeclPassStatement(stmt->__anon1.switchStmt.stmt);
2049 break;
2050 }
2051 case 6:
2052 {
2053 struct Expression * exp;
2054
2055 if(stmt->__anon1.whileStmt.exp)
2056 {
2057 for(exp = (*stmt->__anon1.whileStmt.exp).first; exp; exp = exp->next)
2058 InstDeclPassExpression(exp);
2059 }
2060 InstDeclPassStatement(stmt->__anon1.whileStmt.stmt);
2061 break;
2062 }
2063 case 7:
2064 {
2065 if(stmt->__anon1.doWhile.exp)
2066 {
2067 struct Expression * exp;
2068
2069 for(exp = (*stmt->__anon1.doWhile.exp).first; exp; exp = exp->next)
2070 InstDeclPassExpression(exp);
2071 }
2072 if(stmt->__anon1.doWhile.stmt)
2073 InstDeclPassStatement(stmt->__anon1.doWhile.stmt);
2074 break;
2075 }
2076 case 8:
2077 {
2078 struct Expression * exp;
2079
2080 if(stmt->__anon1.forStmt.init)
2081 InstDeclPassStatement(stmt->__anon1.forStmt.init);
2082 if(stmt->__anon1.forStmt.check)
2083 InstDeclPassStatement(stmt->__anon1.forStmt.check);
2084 if(stmt->__anon1.forStmt.increment)
2085 {
2086 for(exp = (*stmt->__anon1.forStmt.increment).first; exp; exp = exp->next)
2087 InstDeclPassExpression(exp);
2088 }
2089 if(stmt->__anon1.forStmt.stmt)
2090 InstDeclPassStatement(stmt->__anon1.forStmt.stmt);
2091 break;
2092 }
2093 case 9:
2094 break;
2095 case 10:
2096 break;
2097 case 11:
2098 break;
2099 case 12:
2100 {
2101 struct Expression * exp;
2102
2103 if(stmt->__anon1.expressions)
2104 {
2105 for(exp = (*stmt->__anon1.expressions).first; exp; exp = exp->next)
2106 InstDeclPassExpression(exp);
2107 AddPointerCast((*stmt->__anon1.expressions).last);
2108 }
2109 break;
2110 }
2111 case 13:
2112 {
2113 struct AsmField * field;
2114
2115 if(stmt->__anon1.asmStmt.inputFields)
2116 {
2117 for(field = (*stmt->__anon1.asmStmt.inputFields).first; field; field = field->next)
2118 if(field->expression)
2119 InstDeclPassExpression(field->expression);
2120 }
2121 if(stmt->__anon1.asmStmt.outputFields)
2122 {
2123 for(field = (*stmt->__anon1.asmStmt.outputFields).first; field; field = field->next)
2124 if(field->expression)
2125 InstDeclPassExpression(field->expression);
2126 }
2127 if(stmt->__anon1.asmStmt.clobberedFields)
2128 {
2129 for(field = (*stmt->__anon1.asmStmt.clobberedFields).first; field; field = field->next)
2130 if(field->expression)
2131 InstDeclPassExpression(field->expression);
2132 }
2133 break;
2134 }
2135 }
2136 }
2137
2138 static void InstDeclPassDeclaration(struct Declaration * decl)
2139 {
2140 switch(decl->type)
2141 {
2142 case 1:
2143 {
2144 if(decl->__anon1.__anon1.specifiers)
2145 {
2146 struct Specifier * spec;
2147
2148 for(spec = (*decl->__anon1.__anon1.specifiers).first; spec; spec = spec->next)
2149 {
2150 int type;
2151
2152 if((type = ReplaceClassSpec(decl->__anon1.__anon1.specifiers, spec, 0)))
2153 {
2154 struct InitDeclarator * d;
2155
2156 if(decl->__anon1.__anon1.declarators)
2157 {
2158 for(d = (*decl->__anon1.__anon1.declarators).first; d; d = d->next)
2159 ReplaceByInstancePtr(spec, &d->declarator, type);
2160 }
2161 }
2162 InstDeclPassSpecifier(spec, 0);
2163 }
2164 }
2165 if(decl->__anon1.__anon1.declarators)
2166 {
2167 struct InitDeclarator * d;
2168
2169 for(d = (*decl->__anon1.__anon1.declarators).first; d; d = d->next)
2170 {
2171 InstDeclPassDeclarator(d->declarator);
2172 if(d->initializer)
2173 InstDeclPassInitializer(d->initializer);
2174 }
2175 }
2176 break;
2177 }
2178 case 0:
2179 {
2180 if(decl->__anon1.__anon1.specifiers)
2181 {
2182 struct Specifier * spec;
2183
2184 for(spec = (*decl->__anon1.__anon1.specifiers).first; spec; spec = spec->next)
2185 {
2186 int type;
2187
2188 if((type = ReplaceClassSpec(decl->__anon1.__anon1.specifiers, spec, 0)))
2189 {
2190 if(decl->__anon1.__anon1.declarators)
2191 {
2192 struct Declarator * d;
2193
2194 for(d = (*decl->__anon1.__anon1.declarators).first; d; d = d->next)
2195 ReplaceByInstancePtr(spec, &d, type);
2196 }
2197 }
2198 InstDeclPassSpecifier(spec, 0);
2199 }
2200 }
2201 if(decl->__anon1.__anon1.declarators)
2202 {
2203 struct Declarator * d;
2204
2205 for(d = (*decl->__anon1.__anon1.declarators).first; d; d = d->next)
2206 InstDeclPassDeclarator(d);
2207 }
2208 break;
2209 }
2210 case 2:
2211 break;
2212 }
2213 }
2214
2215 static void InstDeclPassExpression(struct Expression * exp)
2216 {
2217 switch(exp->type)
2218 {
2219 case 0:
2220 {
2221 if(exp->__anon1.__anon1.identifier)
2222 InstDeclPassIdentifier(exp->__anon1.__anon1.identifier);
2223 break;
2224 }
2225 case 2:
2226 break;
2227 case 3:
2228 break;
2229 case 4:
2230 if(exp->__anon1.op.exp1)
2231 InstDeclPassExpression(exp->__anon1.op.exp1);
2232 if(exp->__anon1.op.exp2)
2233 {
2234 InstDeclPassExpression(exp->__anon1.op.exp2);
2235 if(exp->__anon1.op.op != '=' && exp->__anon1.op.exp1 && exp->__anon1.op.exp1->expType && exp->__anon1.op.exp1->expType->kind == 13 && exp->__anon1.op.exp1->expType->__anon1.type && exp->__anon1.op.exp1->expType->__anon1.type->kind == 20 && exp->__anon1.op.exp2->expType && exp->__anon1.op.exp2->expType->kind == 13 && exp->__anon1.op.exp2->expType->__anon1.type && exp->__anon1.op.exp2->expType->__anon1.type->kind == 20)
2236 {
2237 struct Expression * e = exp->__anon1.op.exp2;
2238
2239 e->__anon1.cast.exp = MkExpBrackets(MkListOne(MoveExpContents(e)));
2240 e->type = 11;
2241 e->__anon1.typeName = MkTypeName(MkListOne(MkSpecifier(VOID)), QMkPtrDecl((((void *)0))));
2242 e = exp->__anon1.op.exp1;
2243 e->__anon1.cast.exp = MkExpBrackets(MkListOne(MoveExpContents(e)));
2244 e->type = 11;
2245 e->__anon1.typeName = MkTypeName(MkListOne(MkSpecifier(VOID)), QMkPtrDecl((((void *)0))));
2246 }
2247 else if(exp->__anon1.op.exp1 && (exp->__anon1.op.op == '=' || exp->__anon1.op.op == EQ_OP || exp->__anon1.op.op == NE_OP))
2248 AddPointerCast(exp->__anon1.op.exp2);
2249 }
2250 break;
2251 case 32:
2252 case 5:
2253 {
2254 struct Expression * e;
2255
2256 for(e = (*exp->__anon1.list).first; e; e = e->next)
2257 InstDeclPassExpression(e);
2258 break;
2259 }
2260 case 6:
2261 {
2262 struct Expression * e;
2263
2264 InstDeclPassExpression(exp->__anon1.index.exp);
2265 for(e = (*exp->__anon1.index.index).first; e; e = e->next)
2266 InstDeclPassExpression(e);
2267 break;
2268 }
2269 case 7:
2270 {
2271 struct Expression * e;
2272
2273 InstDeclPassExpression(exp->__anon1.call.exp);
2274 if(exp->__anon1.call.arguments)
2275 {
2276 for(e = (*exp->__anon1.call.arguments).first; e; e = e->next)
2277 {
2278 unsigned int addCast = 0;
2279
2280 InstDeclPassExpression(e);
2281 AddPointerCast(e);
2282 if(e->expType && e->expType->kind == 13 && e->expType->__anon1.type && (e->expType->__anon1.type->kind == 8 || (e->expType->__anon1.type->kind == 13 && e->expType->__anon1.type->__anon1.type && e->expType->__anon1.type->__anon1.type->kind != 0)) && e->destType && e->destType->kind == 13 && e->destType->__anon1.type && e->destType->__anon1.type->kind == 13 && e->destType->__anon1.type->__anon1.type && e->destType->__anon1.type->__anon1.type->kind == 0)
2283 addCast = 1;
2284 else if(e->expType && e->expType->kind == 8 && e->expType->__anon1._class && e->expType->__anon1._class->__anon1.registered && e->expType->__anon1._class->__anon1.registered->type == 1 && e->byReference && e->destType && e->destType->kind == 8 && e->destType->classObjectType && e->destType->byReference)
2285 addCast = 1;
2286 if(addCast && (e->type != 11 || !IsVoidPtrCast(e->__anon1.cast.typeName)))
2287 {
2288 e->__anon1.cast.exp = MkExpBrackets(MkListOne(MoveExpContents(e)));
2289 e->type = 11;
2290 e->__anon1.typeName = MkTypeName(MkListOne(MkSpecifier(VOID)), QMkPtrDecl((((void *)0))));
2291 }
2292 }
2293 }
2294 break;
2295 }
2296 case 8:
2297 {
2298 if(exp->__anon1.member.exp)
2299 InstDeclPassExpression(exp->__anon1.member.exp);
2300 break;
2301 }
2302 case 9:
2303 {
2304 if(exp->__anon1.member.exp)
2305 InstDeclPassExpression(exp->__anon1.member.exp);
2306 break;
2307 }
2308 case 10:
2309 InstDeclPassTypeName(exp->__anon1.typeName, 0);
2310 break;
2311 case 11:
2312 {
2313 struct Type * type = exp->expType;
2314
2315 if(type && type->kind == 8 && type->__anon1._class->__anon1.registered && type->__anon1._class->__anon1.registered->type == 1 && !exp->needCast)
2316 {
2317 if(exp->destType && exp->destType->classObjectType == 2 && exp->destType->byReference)
2318 {
2319 FreeTypeName(exp->__anon1.cast.typeName);
2320 exp->__anon1.cast.typeName = MkTypeName(MkListOne(MkSpecifier(VOID)), MkDeclaratorPointer(MkPointer((((void *)0)), MkPointer((((void *)0)), (((void *)0)))), (((void *)0))));
2321 }
2322 else
2323 {
2324 struct Expression * castExp = exp->__anon1.cast.exp;
2325 struct Expression * prev = exp->prev, * next = exp->next;
2326
2327 exp->__anon1.cast.exp = (((void *)0));
2328 FreeExpContents(exp);
2329 FreeType(exp->expType);
2330 FreeType(exp->destType);
2331 *exp = *castExp;
2332 ((castExp ? __extension__ ({
2333 void * __ecerePtrToDelete = (castExp);
2334
2335 __ecereClass_Expression->Destructor ? __ecereClass_Expression->Destructor((void *)__ecerePtrToDelete) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(__ecerePtrToDelete);
2336 }) : 0), castExp = 0);
2337 exp->prev = prev;
2338 exp->next = next;
2339 InstDeclPassExpression(exp);
2340 }
2341 }
2342 else
2343 {
2344 if(exp->expType && exp->expType->kind == 13)
2345 {
2346 if(exp->__anon1.cast.exp && exp->__anon1.cast.exp->expType && exp->__anon1.cast.exp->expType->kind == 20 && !__ecereProp_Type_Get_isPointerType(exp->__anon1.cast.exp->expType))
2347 exp->__anon1.cast.exp = MkExpCast(MkTypeName(MkListOne(MkSpecifierName("uintptr")), (((void *)0))), exp->__anon1.cast.exp);
2348 }
2349 InstDeclPassTypeName(exp->__anon1.cast.typeName, ((unsigned int)((exp->usage & 0x4) >> 2)));
2350 if(exp->__anon1.cast.exp)
2351 {
2352 if(exp->expType && exp->expType->kind == 20 && exp->destType && (exp->destType->passAsTemplate || (!exp->destType->__anon1.templateParameter || (!exp->destType->__anon1.templateParameter->__anon1.dataType && !exp->destType->__anon1.templateParameter->dataTypeString))) && exp->__anon1.cast.exp->expType && !exp->__anon1.cast.exp->expType->passAsTemplate && __ecereProp_Type_Get_isPointerType(exp->__anon1.cast.exp->expType))
2353 exp->__anon1.cast.exp = MkExpCast(MkTypeName(MkListOne(MkSpecifierName("uintptr")), (((void *)0))), exp->__anon1.cast.exp);
2354 InstDeclPassExpression(exp->__anon1.cast.exp);
2355 }
2356 }
2357 break;
2358 }
2359 case 12:
2360 {
2361 struct Expression * e;
2362
2363 InstDeclPassExpression(exp->__anon1.cond.cond);
2364 for(e = (*exp->__anon1.cond.exp).first; e; e = e->next)
2365 InstDeclPassExpression(e);
2366 if(exp->__anon1.cond.elseExp)
2367 InstDeclPassExpression(exp->__anon1.cond.elseExp);
2368 break;
2369 }
2370 case 23:
2371 {
2372 InstDeclPassStatement(exp->__anon1.compound);
2373 break;
2374 }
2375 case 34:
2376 {
2377 InstDeclPassExpression(exp->__anon1.vaArg.exp);
2378 break;
2379 }
2380 case 33:
2381 {
2382 InstDeclPassTypeName(exp->__anon1.initializer.typeName, 0);
2383 InstDeclPassInitializer(exp->__anon1.initializer.initializer);
2384 break;
2385 }
2386 }
2387 }
2388
2389 void ProcessInstanceDeclarations()
2390 {
2391 struct External * external;
2392
2393 curContext = globalContext;
2394 for(external = (*ast).first; external; external = external->next)
2395 {
2396 curExternal = external;
2397 if(external->type == 0)
2398 {
2399 struct FunctionDefinition * func = external->__anon1.function;
2400
2401 if(func->specifiers)
2402 {
2403 struct Specifier * spec;
2404
2405 for(spec = (*func->specifiers).first; spec; spec = spec->next)
2406 {
2407 int type;
2408
2409 if((type = ReplaceClassSpec(func->specifiers, spec, 0)))
2410 ReplaceByInstancePtr(spec, &func->declarator, type);
2411 InstDeclPassSpecifier(spec, 0);
2412 }
2413 }
2414 InstDeclPassDeclarator(func->declarator);
2415 if(func->body)
2416 InstDeclPassStatement(func->body);
2417 }
2418 else if(external->type == 1)
2419 {
2420 if(external->__anon1.declaration)
2421 InstDeclPassDeclaration(external->__anon1.declaration);
2422 }
2423 }
2424 TopoSort(ast);
2425 }
2426
2427 void __ecereRegisterModule_pass3(struct __ecereNameSpace__ecere__com__Instance * module)
2428 {
2429 struct __ecereNameSpace__ecere__com__Class __attribute__((unused)) * class;
2430
2431 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("InstDeclPassTypeName", "void InstDeclPassTypeName(TypeName type, bool param)", InstDeclPassTypeName, module, 2);
2432 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("IsVoidPtrCast", "bool IsVoidPtrCast(TypeName typeName)", IsVoidPtrCast, module, 2);
2433 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("TopoSort", "void TopoSort(ecere::sys::OldList * input)", TopoSort, module, 2);
2434 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ProcessInstanceDeclarations", "void ProcessInstanceDeclarations(void)", ProcessInstanceDeclarations, module, 1);
2435 }
2436