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, LONG = 294, SIGNED = 295, UNSIGNED = 296, FLOAT = 297, DOUBLE = 298, CONST = 299, VOLATILE = 300, VOID = 301, VALIST = 302, STRUCT = 303, UNION = 304, ENUM = 305, ELLIPSIS = 306, CASE = 307, DEFAULT = 308, IF = 309, SWITCH = 310, WHILE = 311, DO = 312, FOR = 313, GOTO = 314, CONTINUE = 315, BREAK = 316, RETURN = 317, IFX = 318, ELSE = 319, CLASS = 320, THISCLASS = 321, CLASS_NAME = 322, PROPERTY = 323, SETPROP = 324, GETPROP = 325, NEWOP = 326, RENEW = 327, DELETE = 328, EXT_DECL = 329, EXT_STORAGE = 330, IMPORT = 331, DEFINE = 332, VIRTUAL = 333, ATTRIB = 334, PUBLIC = 335, PRIVATE = 336, TYPED_OBJECT = 337, ANY_OBJECT = 338, _INCREF = 339, EXTENSION = 340, ASM = 341, TYPEOF = 342, WATCH = 343, STOPWATCHING = 344, FIREWATCHERS = 345, WATCHABLE = 346, CLASS_DESIGNER = 347, CLASS_NO_EXPANSION = 348, CLASS_FIXED = 349, ISPROPSET = 350, CLASS_DEFAULT_PROPERTY = 351, PROPERTY_CATEGORY = 352, CLASS_DATA = 353, CLASS_PROPERTY = 354, SUBCLASS = 355, NAMESPACE = 356, NEW0OP = 357, RENEW0 = 358, VAARG = 359, DBTABLE = 360, DBFIELD = 361, DBINDEX = 362, DATABASE_OPEN = 363, ALIGNOF = 364, ATTRIB_DEP = 365, __ATTRIB = 366, BOOL = 367, _BOOL = 368, _COMPLEX = 369, _IMAGINARY = 370, RESTRICT = 371, THREAD = 372, WIDE_STRING_LITERAL = 373, BUILTIN_OFFSETOF = 374
  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 __ecereNameSpace__ecere__com__Property;
 259
 260 extern void __ecereNameSpace__ecere__com__eInstance_FireSelfWatchers(struct __ecereNameSpace__ecere__com__Instance * instance, struct __ecereNameSpace__ecere__com__Property * _property);
 261
 262 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);
 263
 264 extern void __ecereNameSpace__ecere__com__eInstance_Watch(void *  instance, struct __ecereNameSpace__ecere__com__Property * _property, void *  object, void (*  callback)(void * , void * ));
 265
 266 extern void __ecereNameSpace__ecere__com__eInstance_FireWatchers(struct __ecereNameSpace__ecere__com__Instance * instance, struct __ecereNameSpace__ecere__com__Property * _property);
 267
 268 struct Specifier;
 269
 270 extern struct Specifier * CopySpecifier(struct Specifier * spec);
 271
 272 extern void FreeSpecifier(struct Specifier * spec);
 273
 274 extern void FreeSpecifierContents(struct Specifier * spec);
 275
 276 extern struct Specifier * MkSpecifier(int specifier);
 277
 278 extern struct Specifier * MkSpecifierName(const char *  name);
 279
 280 struct Declarator;
 281
 282 extern struct Declarator * SpecDeclFromString(const char *  string, struct __ecereNameSpace__ecere__sys__OldList *  specs, struct Declarator * baseDecl);
 283
 284 extern void FreeDeclarator(struct Declarator * decl);
 285
 286 struct TemplateDatatype
 287 {
 288 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
 289 struct Declarator * decl;
 290 } ecere_gcc_struct;
 291
 292 extern struct Declarator * QMkPtrDecl(const char *  id);
 293
 294 struct Symbol;
 295
 296 extern struct Symbol * FindClass(const char *  name);
 297
 298 struct Identifier;
 299
 300 extern struct Identifier * MkIdentifier(const char *  string);
 301
 302 extern struct Specifier * MkStructOrUnion(int type, struct Identifier * id, struct __ecereNameSpace__ecere__sys__OldList * definitions);
 303
 304 extern struct Declarator * MkDeclaratorIdentifier(struct Identifier * id);
 305
 306 struct Identifier
 307 {
 308 struct Identifier * prev;
 309 struct Identifier * next;
 310 struct Location loc;
 311 struct Symbol * classSym;
 312 struct Specifier * _class;
 313 char *  string;
 314 struct Identifier * badID;
 315 } ecere_gcc_struct;
 316
 317 static void InstDeclPassIdentifier(struct Identifier * id)
 318 {
 319 if(strchr(id->string, ':'))
 320 {
 321 char newID[1024];
 322 int c;
 323 char ch;
 324 int len;
 325
 326 strcpy(newID, "__ecereNameSpace__");
 327 len = strlen(newID);
 328 for(c = 0; (ch = id->string[c]); c++)
 329 {
 330 if(ch == ':')
 331 ch = '_';
 332 newID[len++] = ch;
 333 }
 334 newID[len] = 0;
 335 (__ecereNameSpace__ecere__com__eSystem_Delete(id->string), id->string = 0);
 336 id->string = __ecereNameSpace__ecere__sys__CopyString(newID);
 337 }
 338 }
 339
 340 struct Type;
 341
 342 struct __ecereNameSpace__ecere__com__Property
 343 {
 344 struct __ecereNameSpace__ecere__com__Property * prev;
 345 struct __ecereNameSpace__ecere__com__Property * next;
 346 const char *  name;
 347 unsigned int isProperty;
 348 int memberAccess;
 349 int id;
 350 struct __ecereNameSpace__ecere__com__Class * _class;
 351 const char *  dataTypeString;
 352 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 353 struct Type * dataType;
 354 void (*  Set)(void * , int);
 355 int (*  Get)(void * );
 356 unsigned int (*  IsSet)(void * );
 357 void *  data;
 358 void *  symbol;
 359 int vid;
 360 unsigned int conversion;
 361 unsigned int watcherOffset;
 362 const char *  category;
 363 unsigned int compiled;
 364 unsigned int selfWatchable;
 365 unsigned int isWatchable;
 366 } ecere_gcc_struct;
 367
 368 extern struct Type * ProcessTypeString(const char *  string, unsigned int staticMethod);
 369
 370 extern struct Type * ProcessType(struct __ecereNameSpace__ecere__sys__OldList * specs, struct Declarator * decl);
 371
 372 extern void FreeType(struct Type * type);
 373
 374 struct Expression;
 375
 376 extern struct Expression * MkExpBrackets(struct __ecereNameSpace__ecere__sys__OldList * expressions);
 377
 378 extern struct Expression * MoveExpContents(struct Expression * exp);
 379
 380 extern struct Expression * GetNonBracketsExp(struct Expression * exp);
 381
 382 extern void FreeExpContents(struct Expression * exp);
 383
 384 struct TypeName;
 385
 386 struct TypeName
 387 {
 388 struct TypeName * prev;
 389 struct TypeName * next;
 390 struct Location loc;
 391 struct __ecereNameSpace__ecere__sys__OldList *  qualifiers;
 392 struct Declarator * declarator;
 393 int classObjectType;
 394 struct Expression * bitCount;
 395 } ecere_gcc_struct;
 396
 397 extern struct TypeName * MkTypeName(struct __ecereNameSpace__ecere__sys__OldList * qualifiers, struct Declarator * declarator);
 398
 399 extern void FreeTypeName(struct TypeName * typeName);
 400
 401 extern struct Expression * MkExpCast(struct TypeName * typeName, struct Expression * expression);
 402
 403 struct Pointer;
 404
 405 struct Declarator
 406 {
 407 struct Declarator * prev;
 408 struct Declarator * next;
 409 struct Location loc;
 410 int type;
 411 struct Symbol * symbol;
 412 struct Declarator * declarator;
 413 union
 414 {
 415 struct Identifier * identifier;
 416 struct
 417 {
 418 struct Expression * exp;
 419 struct Expression * posExp;
 420 struct Attrib * attrib;
 421 } ecere_gcc_struct structDecl;
 422 struct
 423 {
 424 struct Expression * exp;
 425 struct Specifier * enumClass;
 426 } ecere_gcc_struct array;
 427 struct
 428 {
 429 struct __ecereNameSpace__ecere__sys__OldList * parameters;
 430 } ecere_gcc_struct function;
 431 struct
 432 {
 433 struct Pointer * pointer;
 434 } ecere_gcc_struct pointer;
 435 struct
 436 {
 437 struct ExtDecl * extended;
 438 } ecere_gcc_struct extended;
 439 } ecere_gcc_struct __anon1;
 440 } ecere_gcc_struct;
 441
 442 extern struct Pointer * MkPointer(struct __ecereNameSpace__ecere__sys__OldList * qualifiers, struct Pointer * pointer);
 443
 444 extern struct Declarator * MkDeclaratorPointer(struct Pointer * pointer, struct Declarator * declarator);
 445
 446 struct Pointer
 447 {
 448 struct Pointer * prev;
 449 struct Pointer * next;
 450 struct Location loc;
 451 struct __ecereNameSpace__ecere__sys__OldList *  qualifiers;
 452 struct Pointer * pointer;
 453 } ecere_gcc_struct;
 454
 455 struct __ecereNameSpace__ecere__sys__BinaryTree;
 456
 457 struct __ecereNameSpace__ecere__sys__BinaryTree
 458 {
 459 struct __ecereNameSpace__ecere__sys__BTNode * root;
 460 int count;
 461 int (*  CompareKey)(struct __ecereNameSpace__ecere__sys__BinaryTree * tree, uintptr_t a, uintptr_t b);
 462 void (*  FreeKey)(void *  key);
 463 } ecere_gcc_struct;
 464
 465 struct __ecereNameSpace__ecere__com__Module;
 466
 467 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);
 468
 469 struct __ecereNameSpace__ecere__com__DataMember;
 470
 471 struct __ecereNameSpace__ecere__com__DataMember
 472 {
 473 struct __ecereNameSpace__ecere__com__DataMember * prev;
 474 struct __ecereNameSpace__ecere__com__DataMember * next;
 475 const char *  name;
 476 unsigned int isProperty;
 477 int memberAccess;
 478 int id;
 479 struct __ecereNameSpace__ecere__com__Class * _class;
 480 const char *  dataTypeString;
 481 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
 482 struct Type * dataType;
 483 int type;
 484 int offset;
 485 int memberID;
 486 struct __ecereNameSpace__ecere__sys__OldList members;
 487 struct __ecereNameSpace__ecere__sys__BinaryTree membersAlpha;
 488 int memberOffset;
 489 short structAlignment;
 490 short pointerAlignment;
 491 } ecere_gcc_struct;
 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 } ecere_gcc_struct;
 725
 726 unsigned int IsVoidPtrCast(struct TypeName * typeName)
 727 {
 728 unsigned int result = 0;
 729 struct Declarator * d = typeName->declarator;
 730
 731 if(d && d->type == 5 && d->__anon1.pointer.pointer && !d->__anon1.pointer.pointer->pointer)
 732 {
 733 if(typeName->qualifiers)
 734 {
 735 struct Specifier * s;
 736
 737 for(s = (*typeName->qualifiers).first; s; s = s->next)
 738 {
 739 if(s->type == 0 && s->__anon1.specifier == VOID)
 740 result = 1;
 741 }
 742 }
 743 }
 744 return result;
 745 }
 746
 747 unsigned int __ecereProp_Type_Get_isPointerType(struct Type * this);
 748
 749 struct Enumerator;
 750
 751 struct Enumerator
 752 {
 753 struct Enumerator * prev;
 754 struct Enumerator * next;
 755 struct Location loc;
 756 struct Identifier * id;
 757 struct Expression * exp;
 758 } ecere_gcc_struct;
 759
 760 struct Initializer;
 761
 762 struct Initializer
 763 {
 764 struct Initializer * prev;
 765 struct Initializer * next;
 766 struct Location loc;
 767 int type;
 768 union
 769 {
 770 struct Expression * exp;
 771 struct __ecereNameSpace__ecere__sys__OldList *  list;
 772 } ecere_gcc_struct __anon1;
 773 unsigned int isConstant;
 774 struct Identifier * id;
 775 } ecere_gcc_struct;
 776
 777 struct InitDeclarator
 778 {
 779 struct InitDeclarator * prev;
 780 struct InitDeclarator * next;
 781 struct Location loc;
 782 struct Declarator * declarator;
 783 struct Initializer * initializer;
 784 } ecere_gcc_struct;
 785
 786 struct Declaration;
 787
 788 struct ClassDef
 789 {
 790 struct ClassDef * prev;
 791 struct ClassDef * next;
 792 struct Location loc;
 793 int type;
 794 union
 795 {
 796 struct Declaration * decl;
 797 struct ClassFunction * function;
 798 struct __ecereNameSpace__ecere__sys__OldList *  defProperties;
 799 struct PropertyDef * propertyDef;
 800 struct PropertyWatch * propertyWatch;
 801 char *  designer;
 802 struct Identifier * defaultProperty;
 803 struct
 804 {
 805 struct Identifier * id;
 806 struct Initializer * initializer;
 807 } ecere_gcc_struct __anon1;
 808 } ecere_gcc_struct __anon1;
 809 int memberAccess;
 810 void *  object;
 811 } ecere_gcc_struct;
 812
 813 struct Declaration
 814 {
 815 struct Declaration * prev;
 816 struct Declaration * next;
 817 struct Location loc;
 818 int type;
 819 union
 820 {
 821 struct
 822 {
 823 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
 824 struct __ecereNameSpace__ecere__sys__OldList *  declarators;
 825 } ecere_gcc_struct __anon1;
 826 struct Instantiation * inst;
 827 struct
 828 {
 829 struct Identifier * id;
 830 struct Expression * exp;
 831 } ecere_gcc_struct __anon2;
 832 } ecere_gcc_struct __anon1;
 833 struct Specifier * extStorage;
 834 struct Symbol * symbol;
 835 int declMode;
 836 } ecere_gcc_struct;
 837
 838 struct External
 839 {
 840 struct External * prev;
 841 struct External * next;
 842 struct Location loc;
 843 int type;
 844 struct Symbol * symbol;
 845 union
 846 {
 847 struct FunctionDefinition * function;
 848 struct ClassDefinition * _class;
 849 struct Declaration * declaration;
 850 char *  importString;
 851 struct Identifier * id;
 852 struct DBTableDef * table;
 853 } ecere_gcc_struct __anon1;
 854 int importType;
 855 struct External * fwdDecl;
 856 struct __ecereNameSpace__ecere__com__Instance * outgoing;
 857 struct __ecereNameSpace__ecere__com__Instance * incoming;
 858 int nonBreakableIncoming;
 859 } ecere_gcc_struct;
 860
 861 struct External * __ecereMethod_External_ForwardDeclare();
 862
 863 struct AsmField;
 864
 865 struct AsmField
 866 {
 867 struct AsmField * prev;
 868 struct AsmField * next;
 869 struct Location loc;
 870 char *  command;
 871 struct Expression * expression;
 872 struct Identifier * symbolic;
 873 } ecere_gcc_struct;
 874
 875 struct __ecereNameSpace__ecere__com__NameSpace;
 876
 877 struct __ecereNameSpace__ecere__com__NameSpace
 878 {
 879 const char *  name;
 880 struct __ecereNameSpace__ecere__com__NameSpace *  btParent;
 881 struct __ecereNameSpace__ecere__com__NameSpace *  left;
 882 struct __ecereNameSpace__ecere__com__NameSpace *  right;
 883 int depth;
 884 struct __ecereNameSpace__ecere__com__NameSpace *  parent;
 885 struct __ecereNameSpace__ecere__sys__BinaryTree nameSpaces;
 886 struct __ecereNameSpace__ecere__sys__BinaryTree classes;
 887 struct __ecereNameSpace__ecere__sys__BinaryTree defines;
 888 struct __ecereNameSpace__ecere__sys__BinaryTree functions;
 889 } ecere_gcc_struct;
 890
 891 struct __ecereNameSpace__ecere__com__Class
 892 {
 893 struct __ecereNameSpace__ecere__com__Class * prev;
 894 struct __ecereNameSpace__ecere__com__Class * next;
 895 const char *  name;
 896 int offset;
 897 int structSize;
 898 void * *  _vTbl;
 899 int vTblSize;
 900 unsigned int (*  Constructor)(void * );
 901 void (*  Destructor)(void * );
 902 int offsetClass;
 903 int sizeClass;
 904 struct __ecereNameSpace__ecere__com__Class * base;
 905 struct __ecereNameSpace__ecere__sys__BinaryTree methods;
 906 struct __ecereNameSpace__ecere__sys__BinaryTree members;
 907 struct __ecereNameSpace__ecere__sys__BinaryTree prop;
 908 struct __ecereNameSpace__ecere__sys__OldList membersAndProperties;
 909 struct __ecereNameSpace__ecere__sys__BinaryTree classProperties;
 910 struct __ecereNameSpace__ecere__sys__OldList derivatives;
 911 int memberID;
 912 int startMemberID;
 913 int type;
 914 struct __ecereNameSpace__ecere__com__Instance * module;
 915 struct __ecereNameSpace__ecere__com__NameSpace *  nameSpace;
 916 const char *  dataTypeString;
 917 struct Type * dataType;
 918 int typeSize;
 919 int defaultAlignment;
 920 void (*  Initialize)();
 921 int memberOffset;
 922 struct __ecereNameSpace__ecere__sys__OldList selfWatchers;
 923 const char *  designerClass;
 924 unsigned int noExpansion;
 925 const char *  defaultProperty;
 926 unsigned int comRedefinition;
 927 int count;
 928 int isRemote;
 929 unsigned int internalDecl;
 930 void *  data;
 931 unsigned int computeSize;
 932 short structAlignment;
 933 short pointerAlignment;
 934 int destructionWatchOffset;
 935 unsigned int fixed;
 936 struct __ecereNameSpace__ecere__sys__OldList delayedCPValues;
 937 int inheritanceAccess;
 938 const char *  fullName;
 939 void *  symbol;
 940 struct __ecereNameSpace__ecere__sys__OldList conversions;
 941 struct __ecereNameSpace__ecere__sys__OldList templateParams;
 942 struct __ecereNameSpace__ecere__com__ClassTemplateArgument *  templateArgs;
 943 struct __ecereNameSpace__ecere__com__Class * templateClass;
 944 struct __ecereNameSpace__ecere__sys__OldList templatized;
 945 int numParams;
 946 unsigned int isInstanceClass;
 947 unsigned int byValueSystemClass;
 948 } ecere_gcc_struct;
 949
 950 struct __ecereNameSpace__ecere__com__Application
 951 {
 952 int argc;
 953 const char * *  argv;
 954 int exitCode;
 955 unsigned int isGUIApp;
 956 struct __ecereNameSpace__ecere__sys__OldList allModules;
 957 char *  parsedCommand;
 958 struct __ecereNameSpace__ecere__com__NameSpace systemNameSpace;
 959 } ecere_gcc_struct;
 960
 961 extern void __ecereNameSpace__ecere__com__PrintLn(struct __ecereNameSpace__ecere__com__Class * class, const void * object, ...);
 962
 963 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Declarator;
 964
 965 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TypeName;
 966
 967 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Specifier;
 968
 969 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_Expression;
 970
 971 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__LinkList;
 972
 973 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_char__PTR_;
 974
 975 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass_TopoEdge;
 976
 977 struct __ecereNameSpace__ecere__com__Module
 978 {
 979 struct __ecereNameSpace__ecere__com__Instance * application;
 980 struct __ecereNameSpace__ecere__sys__OldList classes;
 981 struct __ecereNameSpace__ecere__sys__OldList defines;
 982 struct __ecereNameSpace__ecere__sys__OldList functions;
 983 struct __ecereNameSpace__ecere__sys__OldList modules;
 984 struct __ecereNameSpace__ecere__com__Instance * prev;
 985 struct __ecereNameSpace__ecere__com__Instance * next;
 986 const char *  name;
 987 void *  library;
 988 void *  Unload;
 989 int importType;
 990 int origImportType;
 991 struct __ecereNameSpace__ecere__com__NameSpace privateNameSpace;
 992 struct __ecereNameSpace__ecere__com__NameSpace publicNameSpace;
 993 } ecere_gcc_struct;
 994
 995 static void ReplaceByInstancePtr(struct Specifier * spec, struct Declarator ** declPtr, int type)
 996 {
 997 struct Declarator * decl = *declPtr;
 998
 999 if(decl && decl->type == 5)
1000 {
1001 if(type == 2)
1002 ;
1003 else
1004 decl->__anon1.pointer.pointer = MkPointer((((void *)0)), decl->__anon1.pointer.pointer);
1005 }
1006 else
1007 {
1008 struct Declarator * newDecl = __ecereNameSpace__ecere__com__eInstance_New(__ecereClass_Declarator);
1009
1010 if(decl)
1011 {
1012 *newDecl = *decl;
1013 decl->declarator = newDecl;
1014 }
1015 else
1016 decl = newDecl;
1017 decl->type = 5;
1018 decl->__anon1.pointer.pointer = MkPointer((((void *)0)), (((void *)0)));
1019 *declPtr = decl;
1020 }
1021 }
1022
1023 static int ReplaceClassSpec(struct __ecereNameSpace__ecere__sys__OldList * specs, struct Specifier * spec, unsigned int param)
1024 {
1025 if(spec->type == 8)
1026 {
1027 struct TemplateParameter * parameter = spec->__anon1.templateParameter;
1028
1029 if(!param && parameter->dataTypeString)
1030 {
1031 struct __ecereNameSpace__ecere__sys__OldList * newSpecs = MkList();
1032 struct Declarator * decl = SpecDeclFromString(parameter->dataTypeString, newSpecs, (((void *)0)));
1033
1034 if((*newSpecs).first)
1035 {
1036 struct Specifier * newSpec = CopySpecifier((*newSpecs).first);
1037
1038 *spec = *newSpec;
1039 ((newSpec ? __extension__ ({
1040 void * __ecerePtrToDelete = (newSpec);
1041
1042 __ecereClass_Specifier->Destructor ? __ecereClass_Specifier->Destructor((void *)__ecerePtrToDelete) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(__ecerePtrToDelete);
1043 }) : 0), newSpec = 0);
1044 }
1045 FreeList(newSpecs, (void *)(FreeSpecifier));
1046 if(decl)
1047 {
1048 unsigned int isPointer = decl->type == 5;
1049
1050 if(decl)
1051 FreeDeclarator(decl);
1052 if(isPointer)
1053 return 1;
1054 }
1055 }
1056 else if(!param && parameter->__anon1.dataType)
1057 {
1058 struct __ecereNameSpace__ecere__sys__OldList * newSpecs = parameter->__anon1.dataType->specifiers;
1059 struct Declarator * decl = parameter->__anon1.dataType->decl;
1060
1061 if((*newSpecs).first)
1062 {
1063 struct Specifier * newSpec = CopySpecifier((*newSpecs).first);
1064
1065 *spec = *newSpec;
1066 ((newSpec ? __extension__ ({
1067 void * __ecerePtrToDelete = (newSpec);
1068
1069 __ecereClass_Specifier->Destructor ? __ecereClass_Specifier->Destructor((void *)__ecerePtrToDelete) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(__ecerePtrToDelete);
1070 }) : 0), newSpec = 0);
1071 }
1072 if(decl)
1073 {
1074 unsigned int isPointer = decl->type == 5;
1075
1076 if(isPointer)
1077 return 1;
1078 }
1079 }
1080 else
1081 {
1082 spec->type = 1;
1083 spec->__anon1.__anon1.name = __ecereNameSpace__ecere__sys__CopyString("uint64");
1084 spec->__anon1.__anon1.symbol = FindClass("uint64");
1085 }
1086 }
1087 if(spec->type == 1 || spec->type == 7)
1088 {
1089 struct Symbol * classSym = spec->__anon1.__anon1.symbol;
1090
1091 if(spec->type == 7)
1092 {
1093 classSym = FindClass("ecere::com::Class");
1094 }
1095 if(classSym)
1096 {
1097 struct __ecereNameSpace__ecere__com__Class * _class = classSym->__anon1.registered;
1098
1099 FreeSpecifierContents(spec);
1100 spec->type = 1;
1101 if(_class && _class->type == 1)
1102 {
1103 char name[1024];
1104
1105 name[0] = 0;
1106 FullClassNameCat(name, _class->fullName, 0);
1107 FreeSpecifierContents(spec);
1108 spec->type = 3;
1109 spec->__anon1.__anon2.baseSpecs = (((void *)0));
1110 spec->__anon1.__anon2.id = MkIdentifier(name);
1111 spec->__anon1.__anon2.list = (((void *)0));
1112 spec->__anon1.__anon2.definitions = (((void *)0));
1113 spec->__anon1.__anon2.ctx = (((void *)0));
1114 spec->__anon1.__anon2.addNameSpace = 0;
1115 }
1116 else if(_class && _class->type == 5)
1117 {
1118 char name[1024] = "";
1119
1120 FullClassNameCat(name, _class->fullName, 0);
1121 spec->type = 3;
1122 spec->__anon1.__anon2.baseSpecs = (((void *)0));
1123 spec->__anon1.__anon2.id = MkIdentifier(name);
1124 spec->__anon1.__anon2.list = (((void *)0));
1125 spec->__anon1.__anon2.definitions = (((void *)0));
1126 spec->__anon1.__anon2.ctx = (((void *)0));
1127 spec->__anon1.__anon2.addNameSpace = 0;
1128 }
1129 else if(_class)
1130 {
1131 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")))
1132 {
1133 if(_class->dataTypeString)
1134 {
1135 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"))
1136 {
1137 if(!_class->dataType)
1138 _class->dataType = ProcessTypeString(_class->dataTypeString, 0);
1139 if(_class->dataType && _class->dataType->kind == 8)
1140 classSym = _class->dataType->__anon1._class;
1141 else
1142 classSym = FindClass(_class->dataTypeString);
1143 _class = classSym ? classSym->__anon1.registered : (((void *)0));
1144 }
1145 spec->__anon1.__anon1.name = __ecereNameSpace__ecere__sys__CopyString(!strcmp(_class->dataTypeString, "char *") ? "char" : _class->dataTypeString);
1146 spec->__anon1.__anon1.symbol = (((void *)0));
1147 }
1148 else
1149 {
1150 spec->__anon1.__anon1.name = __ecereNameSpace__ecere__sys__CopyString((((void *)0)));
1151 spec->__anon1.__anon1.symbol = (((void *)0));
1152 }
1153 }
1154 else if(!_class->base)
1155 {
1156 spec->type = 0;
1157 spec->__anon1.specifier = VOID;
1158 return 1;
1159 }
1160 }
1161 else
1162 {
1163 spec->type = 3;
1164 spec->__anon1.__anon2.id = MkIdentifier("__ecereNameSpace__ecere__com__Instance");
1165 spec->__anon1.__anon2.list = (((void *)0));
1166 spec->__anon1.__anon2.baseSpecs = (((void *)0));
1167 spec->__anon1.__anon2.definitions = (((void *)0));
1168 spec->__anon1.__anon2.ctx = (((void *)0));
1169 spec->__anon1.__anon2.addNameSpace = 0;
1170 }
1171 if(_class && _class->dataTypeString && !strcmp(_class->dataTypeString, "char *"))
1172 return 1;
1173 if(!_class || _class->type == 0 || _class->type == 5)
1174 return 1;
1175 else if(param && _class->type == 1)
1176 return 2;
1177 }
1178 }
1179 else if(spec->type == 0)
1180 {
1181 if(spec->__anon1.specifier == ANY_OBJECT || spec->__anon1.specifier == CLASS)
1182 {
1183 spec->__anon1.specifier = CONST;
1184 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(specs, MkSpecifier(VOID));
1185 return 1;
1186 }
1187 }
1188 return 0;
1189 }
1190
1191 void TopoSort(struct __ecereNameSpace__ecere__sys__OldList * input)
1192 {
1193 struct __ecereNameSpace__ecere__sys__OldList L =
1194 {
1195 0, 0, 0, 0, 0
1196 };
1197 struct __ecereNameSpace__ecere__sys__OldList S =
1198 {
1199 0, 0, 0, 0, 0
1200 };
1201 struct __ecereNameSpace__ecere__sys__OldList B =
1202 {
1203 0, 0, 0, 0, 0
1204 };
1205 struct External * n, * next;
1206
1207 for(n = (*input).first; n; n = next)
1208 {
1209 next = n->next;
1210 if(n->type == 1 && !n->__anon1.declaration)
1211 {
1212 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*input), n);
1213 if(n->symbol && n->symbol->__anon2.__anon1.structExternal == n)
1214 n->symbol->__anon2.__anon1.structExternal = (((void *)0));
1215 FreeExternal(n);
1216 }
1217 else if(!((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)n->incoming + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->count)
1218 {
1219 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*input), n);
1220 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&S, n);
1221 }
1222 else if(!n->nonBreakableIncoming)
1223 {
1224 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*input), n);
1225 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&B, n);
1226 }
1227 }
1228 while(1)
1229 {
1230 struct TopoEdge * e, * ne;
1231
1232 if((n = S.first))
1233 {
1234 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove(&S, (struct __ecereNameSpace__ecere__com__IteratorPointer *)n);
1235 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&L, n);
1236 for(e = ((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)n->outgoing + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->first; e; e = ne)
1237 {
1238 struct External * m = e->to;
1239 struct __ecereNameSpace__ecere__sys__OldList * list;
1240
1241 if(m->nonBreakableIncoming)
1242 {
1243 list = input;
1244 }
1245 else
1246 {
1247 list = &B;
1248 }
1249 if(!(*list).count)
1250 __ecereNameSpace__ecere__com__PrintLn(__ecereClass_char__PTR_, "!!! Something's wrong !!!", (void *)0);
1251 ne = e->out.next;
1252 if(!e->breakable)
1253 {
1254 m->nonBreakableIncoming--;
1255 }
1256 (__extension__ ({
1257 void (*  __internal_VirtualMethod)(struct __ecereNameSpace__ecere__com__Instance *, struct __ecereNameSpace__ecere__com__IteratorPointer * it);
1258
1259 __internal_VirtualMethod = ((void (*)(struct __ecereNameSpace__ecere__com__Instance *, struct __ecereNameSpace__ecere__com__IteratorPointer * it))__extension__ ({
1260 struct __ecereNameSpace__ecere__com__Instance * __internal_ClassInst = n->outgoing;
1261
1262 __internal_ClassInst ? __internal_ClassInst->_vTbl : __ecereClass___ecereNameSpace__ecere__com__LinkList->_vTbl;
1263 })[__ecereVMethodID___ecereNameSpace__ecere__com__Container_Remove]);
1264 __internal_VirtualMethod ? __internal_VirtualMethod(n->outgoing, (struct __ecereNameSpace__ecere__com__IteratorPointer *)e) : (void)1;
1265 }));
1266 (__extension__ ({
1267 void (*  __internal_VirtualMethod)(struct __ecereNameSpace__ecere__com__Instance *, struct __ecereNameSpace__ecere__com__IteratorPointer * it);
1268
1269 __internal_VirtualMethod = ((void (*)(struct __ecereNameSpace__ecere__com__Instance *, struct __ecereNameSpace__ecere__com__IteratorPointer * it))__extension__ ({
1270 struct __ecereNameSpace__ecere__com__Instance * __internal_ClassInst = m->incoming;
1271
1272 __internal_ClassInst ? __internal_ClassInst->_vTbl : __ecereClass___ecereNameSpace__ecere__com__LinkList->_vTbl;
1273 })[__ecereVMethodID___ecereNameSpace__ecere__com__Container_Remove]);
1274 __internal_VirtualMethod ? __internal_VirtualMethod(m->incoming, (struct __ecereNameSpace__ecere__com__IteratorPointer *)e) : (void)1;
1275 }));
1276 ((e ? __extension__ ({
1277 void * __ecerePtrToDelete = (e);
1278
1279 __ecereClass_TopoEdge->Destructor ? __ecereClass_TopoEdge->Destructor((void *)__ecerePtrToDelete) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(__ecerePtrToDelete);
1280 }) : 0), e = 0);
1281 if(!((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)m->incoming + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->count)
1282 {
1283 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*list), m);
1284 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&S, m);
1285 }
1286 else if(!m->nonBreakableIncoming)
1287 {
1288 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*list), m);
1289 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&B, m);
1290 }
1291 }
1292 }
1293 else if((n = B.first))
1294 {
1295 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove(&B, (struct __ecereNameSpace__ecere__com__IteratorPointer *)n);
1296 for(e = ((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)n->incoming + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->first; e; e = ne)
1297 {
1298 struct TopoEdge * e2, * n2;
1299 struct External * m = e->from;
1300 struct External * f;
1301
1302 f = __ecereMethod_External_ForwardDeclare(m);
1303 ne = e->in.next;
1304 {
1305 struct External * c, * next;
1306
1307 for(c = (*input).first; c; c = next)
1308 {
1309 next = c->next;
1310 if(!((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)c->incoming + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->count)
1311 {
1312 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*input), c);
1313 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&S, c);
1314 }
1315 else if(!c->nonBreakableIncoming)
1316 {
1317 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*input), c);
1318 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&B, c);
1319 }
1320 }
1321 }
1322 for(e2 = ((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)m->outgoing + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->first; e2; e2 = n2)
1323 {
1324 n2 = e2->out.next;
1325 if(e2->breakable)
1326 {
1327 struct External * to = e2->to;
1328
1329 if(e2 == e)
1330 ;
1331 else
1332 ;
1333 e2->breakable = 0;
1334 e2->from = f;
1335 (__extension__ ({
1336 void (*  __internal_VirtualMethod)(struct __ecereNameSpace__ecere__com__Instance *, struct __ecereNameSpace__ecere__com__IteratorPointer * it);
1337
1338 __internal_VirtualMethod = ((void (*)(struct __ecereNameSpace__ecere__com__Instance *, struct __ecereNameSpace__ecere__com__IteratorPointer * it))__extension__ ({
1339 struct __ecereNameSpace__ecere__com__Instance * __internal_ClassInst = m->outgoing;
1340
1341 __internal_ClassInst ? __internal_ClassInst->_vTbl : __ecereClass___ecereNameSpace__ecere__com__LinkList->_vTbl;
1342 })[__ecereVMethodID___ecereNameSpace__ecere__com__Container_Remove]);
1343 __internal_VirtualMethod ? __internal_VirtualMethod(m->outgoing, (struct __ecereNameSpace__ecere__com__IteratorPointer *)e2) : (void)1;
1344 }));
1345 (__extension__ ({
1346 struct __ecereNameSpace__ecere__com__IteratorPointer * (*  __internal_VirtualMethod)(struct __ecereNameSpace__ecere__com__Instance *, uint64 value);
1347
1348 __internal_VirtualMethod = ((struct __ecereNameSpace__ecere__com__IteratorPointer * (*)(struct __ecereNameSpace__ecere__com__Instance *, uint64 value))__extension__ ({
1349 struct __ecereNameSpace__ecere__com__Instance * __internal_ClassInst = f->outgoing;
1350
1351 __internal_ClassInst ? __internal_ClassInst->_vTbl : __ecereClass___ecereNameSpace__ecere__com__LinkList->_vTbl;
1352 })[__ecereVMethodID___ecereNameSpace__ecere__com__Container_Add]);
1353 __internal_VirtualMethod ? __internal_VirtualMethod(f->outgoing, (uint64)(uintptr_t)(e2)) : (struct __ecereNameSpace__ecere__com__IteratorPointer *)1;
1354 }));
1355 to->nonBreakableIncoming++;
1356 if(e2 != e && to->nonBreakableIncoming == 1)
1357 {
1358 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove(&B, to);
1359 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*input), to);
1360 }
1361 }
1362 }
1363 if(!((struct __ecereNameSpace__ecere__com__LinkList *)(((char *)f->incoming + 0 + sizeof(struct __ecereNameSpace__ecere__com__Instance))))->count)
1364 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&S, f);
1365 else if(!f->nonBreakableIncoming)
1366 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add(&B, f);
1367 else
1368 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*input), f);
1369 if(S.first)
1370 break;
1371 }
1372 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Add((&*input), n);
1373 }
1374 else
1375 {
1376 if((*input).count)
1377 {
1378 Compiler_Error("declarations cycles found\n");
1379 }
1380 else
1381 *input = L;
1382 break;
1383 }
1384 }
1385 for(n = (*input).first; n; n = next)
1386 {
1387 next = n->next;
1388 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))))
1389 {
1390 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Remove((&*input), n);
1391 if(n->symbol && n->symbol->__anon2.__anon1.structExternal == n)
1392 n->symbol->__anon2.__anon1.structExternal = (((void *)0));
1393 FreeExternal(n);
1394 }
1395 }
1396 }
1397
1398 void __ecereUnregisterModule_pass3(struct __ecereNameSpace__ecere__com__Instance * module)
1399 {
1400
1401 }
1402
1403 struct Statement;
1404
1405 typedef union YYSTYPE
1406 {
1407 int specifierType;
1408 int i;
1409 int declMode;
1410 struct Identifier * id;
1411 struct Expression * exp;
1412 struct Specifier * specifier;
1413 struct __ecereNameSpace__ecere__sys__OldList * list;
1414 struct Enumerator * enumerator;
1415 struct Declarator * declarator;
1416 struct Pointer * pointer;
1417 struct Initializer * initializer;
1418 struct InitDeclarator * initDeclarator;
1419 struct TypeName * typeName;
1420 struct Declaration * declaration;
1421 struct Statement * stmt;
1422 struct FunctionDefinition * function;
1423 struct External * external;
1424 struct Context * context;
1425 struct AsmField * asmField;
1426 struct Attrib * attrib;
1427 struct ExtDecl * extDecl;
1428 struct Attribute * attribute;
1429 struct Instantiation * instance;
1430 struct MembersInit * membersInit;
1431 struct MemberInit * memberInit;
1432 struct ClassFunction * classFunction;
1433 struct ClassDefinition * _class;
1434 struct ClassDef * classDef;
1435 struct PropertyDef * prop;
1436 char * string;
1437 struct Symbol * symbol;
1438 struct PropertyWatch * propertyWatch;
1439 struct TemplateParameter * templateParameter;
1440 struct TemplateArgument * templateArgument;
1441 struct TemplateDatatype * templateDatatype;
1442 struct DBTableEntry * dbtableEntry;
1443 struct DBIndexItem * dbindexItem;
1444 struct DBTableDef * dbtableDef;
1445 } ecere_gcc_struct YYSTYPE;
1446
1447 extern YYSTYPE yylval;
1448
1449 struct Expression
1450 {
1451 struct Expression * prev;
1452 struct Expression * next;
1453 struct Location loc;
1454 int type;
1455 union
1456 {
1457 struct
1458 {
1459 char *  constant;
1460 struct Identifier * identifier;
1461 } ecere_gcc_struct __anon1;
1462 struct Statement * compound;
1463 struct Instantiation * instance;
1464 struct
1465 {
1466 char *  string;
1467 unsigned int intlString;
1468 unsigned int wideString;
1469 } ecere_gcc_struct __anon2;
1470 struct __ecereNameSpace__ecere__sys__OldList *  list;
1471 struct
1472 {
1473 struct __ecereNameSpace__ecere__sys__OldList * specifiers;
1474 struct Declarator * decl;
1475 } ecere_gcc_struct _classExp;
1476 struct
1477 {
1478 struct Identifier * id;
1479 } ecere_gcc_struct classData;
1480 struct
1481 {
1482 struct Expression * exp;
1483 struct __ecereNameSpace__ecere__sys__OldList * arguments;
1484 struct Location argLoc;
1485 } ecere_gcc_struct call;
1486 struct
1487 {
1488 struct Expression * exp;
1489 struct __ecereNameSpace__ecere__sys__OldList * index;
1490 } ecere_gcc_struct index;
1491 struct
1492 {
1493 struct Expression * exp;
1494 struct Identifier * member;
1495 int memberType;
1496 unsigned int thisPtr;
1497 } ecere_gcc_struct member;
1498 struct
1499 {
1500 int op;
1501 struct Expression * exp1;
1502 struct Expression * exp2;
1503 } ecere_gcc_struct op;
1504 struct TypeName * typeName;
1505 struct Specifier * _class;
1506 struct
1507 {
1508 struct TypeName * typeName;
1509 struct Expression * exp;
1510 } ecere_gcc_struct cast;
1511 struct
1512 {
1513 struct Expression * cond;
1514 struct __ecereNameSpace__ecere__sys__OldList * exp;
1515 struct Expression * elseExp;
1516 } ecere_gcc_struct cond;
1517 struct
1518 {
1519 struct TypeName * typeName;
1520 struct Expression * size;
1521 } ecere_gcc_struct _new;
1522 struct
1523 {
1524 struct TypeName * typeName;
1525 struct Expression * size;
1526 struct Expression * exp;
1527 } ecere_gcc_struct _renew;
1528 struct
1529 {
1530 char * table;
1531 struct Identifier * id;
1532 } ecere_gcc_struct db;
1533 struct
1534 {
1535 struct Expression * ds;
1536 struct Expression * name;
1537 } ecere_gcc_struct dbopen;
1538 struct
1539 {
1540 struct TypeName * typeName;
1541 struct Initializer * initializer;
1542 } ecere_gcc_struct initializer;
1543 struct
1544 {
1545 struct Expression * exp;
1546 struct TypeName * typeName;
1547 } ecere_gcc_struct vaArg;
1548 struct
1549 {
1550 struct TypeName * typeName;
1551 struct Identifier * id;
1552 } ecere_gcc_struct offset;
1553 } ecere_gcc_struct __anon1;
1554 unsigned int debugValue;
1555 struct __ecereNameSpace__ecere__com__DataValue val;
1556 uint64 address;
1557 unsigned int hasAddress;
1558 struct Type * expType;
1559 struct Type * destType;
1560 unsigned int usage;
1561 int tempCount;
1562 unsigned int byReference;
1563 unsigned int isConstant;
1564 unsigned int addedThis;
1565 unsigned int needCast;
1566 unsigned int thisPtr;
1567 unsigned int opDestType;
1568 unsigned int usedInComparison;
1569 unsigned int ambiguousUnits;
1570 unsigned int parentOpDestType;
1571 unsigned int needTemplateCast;
1572 } ecere_gcc_struct;
1573
1574 struct Statement
1575 {
1576 struct Statement * prev;
1577 struct Statement * next;
1578 struct Location loc;
1579 int type;
1580 union
1581 {
1582 struct __ecereNameSpace__ecere__sys__OldList *  expressions;
1583 struct
1584 {
1585 struct Identifier * id;
1586 struct Statement * stmt;
1587 } ecere_gcc_struct labeled;
1588 struct
1589 {
1590 struct Expression * exp;
1591 struct Statement * stmt;
1592 } ecere_gcc_struct caseStmt;
1593 struct
1594 {
1595 struct __ecereNameSpace__ecere__sys__OldList * declarations;
1596 struct __ecereNameSpace__ecere__sys__OldList * statements;
1597 struct Context * context;
1598 unsigned int isSwitch;
1599 } ecere_gcc_struct compound;
1600 struct
1601 {
1602 struct __ecereNameSpace__ecere__sys__OldList * exp;
1603 struct Statement * stmt;
1604 struct Statement * elseStmt;
1605 } ecere_gcc_struct ifStmt;
1606 struct
1607 {
1608 struct __ecereNameSpace__ecere__sys__OldList * exp;
1609 struct Statement * stmt;
1610 } ecere_gcc_struct switchStmt;
1611 struct
1612 {
1613 struct __ecereNameSpace__ecere__sys__OldList * exp;
1614 struct Statement * stmt;
1615 } ecere_gcc_struct whileStmt;
1616 struct
1617 {
1618 struct __ecereNameSpace__ecere__sys__OldList * exp;
1619 struct Statement * stmt;
1620 } ecere_gcc_struct doWhile;
1621 struct
1622 {
1623 struct Statement * init;
1624 struct Statement * check;
1625 struct __ecereNameSpace__ecere__sys__OldList * increment;
1626 struct Statement * stmt;
1627 } ecere_gcc_struct forStmt;
1628 struct
1629 {
1630 struct Identifier * id;
1631 } ecere_gcc_struct gotoStmt;
1632 struct
1633 {
1634 struct Specifier * spec;
1635 char * statements;
1636 struct __ecereNameSpace__ecere__sys__OldList * inputFields;
1637 struct __ecereNameSpace__ecere__sys__OldList * outputFields;
1638 struct __ecereNameSpace__ecere__sys__OldList * clobberedFields;
1639 } ecere_gcc_struct asmStmt;
1640 struct
1641 {
1642 struct Expression * watcher;
1643 struct Expression * object;
1644 struct __ecereNameSpace__ecere__sys__OldList * watches;
1645 } ecere_gcc_struct _watch;
1646 struct
1647 {
1648 struct Identifier * id;
1649 struct __ecereNameSpace__ecere__sys__OldList * exp;
1650 struct __ecereNameSpace__ecere__sys__OldList * filter;
1651 struct Statement * stmt;
1652 } ecere_gcc_struct forEachStmt;
1653 struct Declaration * decl;
1654 } ecere_gcc_struct __anon1;
1655 } ecere_gcc_struct;
1656
1657 struct FunctionDefinition
1658 {
1659 struct FunctionDefinition * prev;
1660 struct FunctionDefinition * next;
1661 struct Location loc;
1662 struct __ecereNameSpace__ecere__sys__OldList *  specifiers;
1663 struct Declarator * declarator;
1664 struct __ecereNameSpace__ecere__sys__OldList *  declarations;
1665 struct Statement * body;
1666 struct __ecereNameSpace__ecere__com__Class * _class;
1667 struct __ecereNameSpace__ecere__sys__OldList attached;
1668 int declMode;
1669 struct Type * type;
1670 struct Symbol * propSet;
1671 int tempCount;
1672 unsigned int propertyNoThis;
1673 } ecere_gcc_struct;
1674
1675 static void AddPointerCast(struct Expression * e)
1676 {
1677 struct Type * src = e->expType;
1678
1679 if(src && (src->kind == 20 || src->kind == 8))
1680 {
1681 if(e->type != 11 || !IsVoidPtrCast(e->__anon1.cast.typeName))
1682 {
1683 if(src)
1684 src->refCount++;
1685 if(src->kind == 20 && src->__anon1.templateParameter && src->__anon1.templateParameter->type == 0)
1686 {
1687 struct Type * newType = (((void *)0));
1688
1689 if(src->__anon1.templateParameter->dataTypeString)
1690 newType = ProcessTypeString(src->__anon1.templateParameter->dataTypeString, 0);
1691 else if(src->__anon1.templateParameter->__anon1.dataType)
1692 newType = ProcessType(src->__anon1.templateParameter->__anon1.dataType->specifiers, src->__anon1.templateParameter->__anon1.dataType->decl);
1693 if(newType)
1694 {
1695 FreeType(src);
1696 src = newType;
1697 }
1698 }
1699 if(src && src->kind == 8 && src->__anon1._class)
1700 {
1701 struct __ecereNameSpace__ecere__com__Class * sc = src->__anon1._class->__anon1.registered;
1702
1703 if(src->thisClassFrom && src->thisClassFrom->base)
1704 sc = src->thisClassFrom;
1705 if(sc && (sc->type == 1 || sc->type == 5))
1706 {
1707 struct Type * dest = e->destType;
1708
1709 if(dest && (dest->kind == 20 || dest->kind == 8))
1710 {
1711 if(dest)
1712 dest->refCount++;
1713 if(dest->kind == 20 && dest->__anon1.templateParameter && dest->__anon1.templateParameter->type == 0)
1714 {
1715 struct Type * newType = (((void *)0));
1716
1717 if(dest->__anon1.templateParameter->dataTypeString)
1718 newType = ProcessTypeString(dest->__anon1.templateParameter->dataTypeString, 0);
1719 else if(dest->__anon1.templateParameter->__anon1.dataType)
1720 newType = ProcessType(dest->__anon1.templateParameter->__anon1.dataType->specifiers, dest->__anon1.templateParameter->__anon1.dataType->decl);
1721 if(newType)
1722 {
1723 FreeType(dest);
1724 dest = newType;
1725 }
1726 }
1727 if(!dest->passAsTemplate && dest->kind == 8 && dest->__anon1._class && dest->__anon1._class->__anon1.registered)
1728 {
1729 struct __ecereNameSpace__ecere__com__Class * dc = dest->__anon1._class->__anon1.registered;
1730
1731 if(sc->templateClass)
1732 sc = sc->templateClass;
1733 if(dc->templateClass)
1734 dc = dc->templateClass;
1735 if(dc->base && sc != dc)
1736 {
1737 e->__anon1.cast.exp = MkExpBrackets(MkListOne(MoveExpContents(e)));
1738 e->type = 11;
1739 e->__anon1.typeName = MkTypeName(MkListOne(MkSpecifier(VOID)), QMkPtrDecl((((void *)0))));
1740 }
1741 }
1742 FreeType(dest);
1743 }
1744 }
1745 }
1746 FreeType(src);
1747 }
1748 }
1749 else if(src && src->kind == 22 && e->destType && e->destType->classObjectType)
1750 {
1751 struct Expression * nbExp = GetNonBracketsExp(e);
1752
1753 if(nbExp->type != 11 || !IsVoidPtrCast(nbExp->__anon1.cast.typeName))
1754 {
1755 e->__anon1.cast.exp = MkExpBrackets(MkListOne(MoveExpContents(e)));
1756 e->type = 11;
1757 e->__anon1.typeName = MkTypeName(MkListOne(MkSpecifier(VOID)), QMkPtrDecl((((void *)0))));
1758 }
1759 }
1760 }
1761
1762 static void InstDeclPassDeclaration(struct Declaration *  decl);
1763
1764 static void InstDeclPassSpecifier(struct Specifier * spec, unsigned int byRefTypedObject)
1765 {
1766 switch(spec->type)
1767 {
1768 case 0:
1769 if(spec->__anon1.specifier == TYPED_OBJECT)
1770 {
1771 spec->type = 5;
1772 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 *"));
1773 DeclareStruct(curExternal, "ecere::com::Class", 0, 1);
1774 }
1775 break;
1776 case 1:
1777 break;
1778 case 2:
1779 {
1780 struct Enumerator * e;
1781
1782 if(spec->__anon1.__anon2.list)
1783 {
1784 for(e = (*spec->__anon1.__anon2.list).first; e; e = e->next)
1785 {
1786 }
1787 }
1788 break;
1789 }
1790 case 3:
1791 case 4:
1792 {
1793 if(spec->__anon1.__anon2.definitions)
1794 {
1795 struct ClassDef * def;
1796
1797 for(def = (*spec->__anon1.__anon2.definitions).first; def; def = def->next)
1798 if(def->__anon1.decl)
1799 InstDeclPassDeclaration(def->__anon1.decl);
1800 }
1801 if(spec->__anon1.__anon2.id)
1802 InstDeclPassIdentifier(spec->__anon1.__anon2.id);
1803 break;
1804 }
1805 case 5:
1806 if(spec->__anon1.__anon1.extDecl && spec->__anon1.__anon1.extDecl->type == 0 && spec->__anon1.__anon1.extDecl->__anon1.s)
1807 {
1808 if(!strcmp(spec->__anon1.__anon1.extDecl->__anon1.s, "dllexport"))
1809 {
1810 struct Specifier * prevSpec;
1811
1812 (__ecereNameSpace__ecere__com__eSystem_Delete(spec->__anon1.__anon1.extDecl->__anon1.s), spec->__anon1.__anon1.extDecl->__anon1.s = 0);
1813 for(prevSpec = spec->prev; prevSpec; prevSpec = prevSpec->prev)
1814 if(prevSpec->type == 0 && prevSpec->__anon1.specifier == EXTERN)
1815 break;
1816 if(prevSpec)
1817 {
1818 if(targetPlatform == 1)
1819 spec->__anon1.__anon1.extDecl->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("__declspec(dllexport)");
1820 else
1821 spec->__anon1.__anon1.extDecl->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("__attribute__ ((visibility(\"default\")))");
1822 }
1823 else
1824 {
1825 if(targetPlatform == 1)
1826 spec->__anon1.__anon1.extDecl->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("extern __declspec(dllexport)");
1827 else
1828 spec->__anon1.__anon1.extDecl->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("extern __attribute__ ((visibility(\"default\")))");
1829 }
1830 }
1831 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__"))
1832 {
1833 (__ecereNameSpace__ecere__com__eSystem_Delete(spec->__anon1.__anon1.extDecl->__anon1.s), spec->__anon1.__anon1.extDecl->__anon1.s = 0);
1834 spec->__anon1.__anon1.extDecl->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("ecere_stdcall");
1835 }
1836 }
1837 break;
1838 }
1839 }
1840
1841 void InstDeclPassTypeName(struct TypeName *  type, unsigned int param);
1842
1843 static void InstDeclPassDeclarator(struct Declarator * decl)
1844 {
1845 switch(decl->type)
1846 {
1847 case 0:
1848 if(decl->declarator)
1849 InstDeclPassDeclarator(decl->declarator);
1850 break;
1851 case 1:
1852 {
1853 if(decl->__anon1.identifier)
1854 InstDeclPassIdentifier(decl->__anon1.identifier);
1855 break;
1856 }
1857 case 2:
1858 if(decl->declarator)
1859 InstDeclPassDeclarator(decl->declarator);
1860 break;
1861 case 3:
1862 if(decl->declarator)
1863 InstDeclPassDeclarator(decl->declarator);
1864 break;
1865 case 4:
1866 {
1867 if(decl->declarator)
1868 InstDeclPassDeclarator(decl->declarator);
1869 if(decl->__anon1.function.parameters)
1870 {
1871 struct TypeName * type;
1872
1873 if(decl->declarator)
1874 InstDeclPassDeclarator(decl->declarator);
1875 for(type = (*decl->__anon1.function.parameters).first; type; type = type->next)
1876 {
1877 unsigned int typedObject = 0;
1878 struct Specifier * spec = (((void *)0));
1879
1880 if(type->qualifiers)
1881 {
1882 spec = (struct Specifier *)(*type->qualifiers).first;
1883 if(spec && spec->type == 1 && !strcmp(spec->__anon1.__anon1.name, "class"))
1884 typedObject = 1;
1885 }
1886 InstDeclPassTypeName(type, 1);
1887 if(typedObject)
1888 {
1889 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);
1890
1891 DeclareStruct(curExternal, "ecere::com::Class", 0, 1);
1892 __ecereMethod___ecereNameSpace__ecere__sys__OldList_Insert((&*decl->__anon1.function.parameters), spec->prev, _class);
1893 }
1894 }
1895 }
1896 break;
1897 }
1898 case 5:
1899 case 6:
1900 case 7:
1901 if((decl->type == 6 || decl->type == 7) && decl->__anon1.extended.extended)
1902 {
1903 if(decl->__anon1.extended.extended->type == 0 && decl->__anon1.extended.extended->__anon1.s && !strcmp(decl->__anon1.extended.extended->__anon1.s, "dllexport"))
1904 {
1905 (__ecereNameSpace__ecere__com__eSystem_Delete(decl->__anon1.extended.extended->__anon1.s), decl->__anon1.extended.extended->__anon1.s = 0);
1906 if(targetPlatform == 1)
1907 decl->__anon1.extended.extended->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("extern __declspec(dllexport)");
1908 else
1909 decl->__anon1.extended.extended->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("extern __attribute__ ((visibility(\"default\")))");
1910 }
1911 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__")))
1912 {
1913 (__ecereNameSpace__ecere__com__eSystem_Delete(decl->__anon1.extended.extended->__anon1.s), decl->__anon1.extended.extended->__anon1.s = 0);
1914 decl->__anon1.extended.extended->__anon1.s = __ecereNameSpace__ecere__sys__CopyString("ecere_stdcall");
1915 }
1916 }
1917 if(decl->declarator)
1918 InstDeclPassDeclarator(decl->declarator);
1919 break;
1920 }
1921 }
1922
1923 void InstDeclPassTypeName(struct TypeName * type, unsigned int param)
1924 {
1925 if(type->qualifiers)
1926 {
1927 struct Specifier * spec;
1928
1929 for(spec = (*type->qualifiers).first; spec; spec = spec->next)
1930 {
1931 int result;
1932
1933 if((result = ReplaceClassSpec(type->qualifiers, spec, param)))
1934 ReplaceByInstancePtr(spec, &type->declarator, result);
1935 else
1936 {
1937 struct Symbol * classSym = (spec->type == 1) ? spec->__anon1.__anon1.symbol : (((void *)0));
1938
1939 if(type->classObjectType && (!classSym || (classSym && classSym->__anon1.registered && (classSym->__anon1.registered->type == 4 || classSym->__anon1.registered->type == 2 || classSym->__anon1.registered->type == 3))))
1940 ReplaceByInstancePtr(spec, &type->declarator, 2);
1941 }
1942 InstDeclPassSpecifier(spec, type->declarator && type->declarator->type == 5);
1943 }
1944 }
1945 if(type->declarator)
1946 InstDeclPassDeclarator(type->declarator);
1947 }
1948
1949 static void InstDeclPassExpression(struct Expression *  exp);
1950
1951 static void InstDeclPassInitializer(struct Initializer * init)
1952 {
1953 switch(init->type)
1954 {
1955 case 0:
1956 if(init->__anon1.exp)
1957 {
1958 InstDeclPassExpression(init->__anon1.exp);
1959 AddPointerCast(init->__anon1.exp);
1960 }
1961 break;
1962 case 1:
1963 {
1964 struct Initializer * i;
1965
1966 for(i = (*init->__anon1.list).first; i; i = i->next)
1967 InstDeclPassInitializer(i);
1968 break;
1969 }
1970 }
1971 }
1972
1973 static void InstDeclPassStatement(struct Statement * stmt)
1974 {
1975 switch(stmt->type)
1976 {
1977 case 14:
1978 if(stmt->__anon1.decl)
1979 InstDeclPassDeclaration(stmt->__anon1.decl);
1980 break;
1981 case 0:
1982 InstDeclPassStatement(stmt->__anon1.labeled.stmt);
1983 break;
1984 case 1:
1985 if(stmt->__anon1.caseStmt.exp)
1986 InstDeclPassExpression(stmt->__anon1.caseStmt.exp);
1987 if(stmt->__anon1.caseStmt.stmt)
1988 InstDeclPassStatement(stmt->__anon1.caseStmt.stmt);
1989 break;
1990 case 2:
1991 {
1992 struct Declaration * decl;
1993 struct Statement * s;
1994 struct Context * prevContext = curContext;
1995
1996 if(!stmt->__anon1.compound.isSwitch)
1997 curContext = stmt->__anon1.compound.context;
1998 if(stmt->__anon1.compound.declarations)
1999 {
2000 for(decl = (*stmt->__anon1.compound.declarations).first; decl; decl = decl->next)
2001 InstDeclPassDeclaration(decl);
2002 }
2003 if(stmt->__anon1.compound.statements)
2004 {
2005 for(s = (*stmt->__anon1.compound.statements).first; s; s = s->next)
2006 InstDeclPassStatement(s);
2007 }
2008 curContext = prevContext;
2009 break;
2010 }
2011 case 3:
2012 {
2013 if(stmt->__anon1.expressions)
2014 {
2015 struct Expression * exp;
2016
2017 for(exp = (*stmt->__anon1.expressions).first; exp; exp = exp->next)
2018 InstDeclPassExpression(exp);
2019 }
2020 break;
2021 }
2022 case 4:
2023 {
2024 if(stmt->__anon1.ifStmt.exp)
2025 {
2026 struct Expression * exp;
2027
2028 for(exp = (*stmt->__anon1.ifStmt.exp).first; exp; exp = exp->next)
2029 InstDeclPassExpression(exp);
2030 }
2031 if(stmt->__anon1.ifStmt.stmt)
2032 InstDeclPassStatement(stmt->__anon1.ifStmt.stmt);
2033 if(stmt->__anon1.ifStmt.elseStmt)
2034 InstDeclPassStatement(stmt->__anon1.ifStmt.elseStmt);
2035 break;
2036 }
2037 case 5:
2038 {
2039 struct Expression * exp;
2040
2041 if(stmt->__anon1.switchStmt.exp)
2042 {
2043 for(exp = (*stmt->__anon1.switchStmt.exp).first; exp; exp = exp->next)
2044 InstDeclPassExpression(exp);
2045 }
2046 InstDeclPassStatement(stmt->__anon1.switchStmt.stmt);
2047 break;
2048 }
2049 case 6:
2050 {
2051 struct Expression * exp;
2052
2053 if(stmt->__anon1.whileStmt.exp)
2054 {
2055 for(exp = (*stmt->__anon1.whileStmt.exp).first; exp; exp = exp->next)
2056 InstDeclPassExpression(exp);
2057 }
2058 InstDeclPassStatement(stmt->__anon1.whileStmt.stmt);
2059 break;
2060 }
2061 case 7:
2062 {
2063 if(stmt->__anon1.doWhile.exp)
2064 {
2065 struct Expression * exp;
2066
2067 for(exp = (*stmt->__anon1.doWhile.exp).first; exp; exp = exp->next)
2068 InstDeclPassExpression(exp);
2069 }
2070 if(stmt->__anon1.doWhile.stmt)
2071 InstDeclPassStatement(stmt->__anon1.doWhile.stmt);
2072 break;
2073 }
2074 case 8:
2075 {
2076 struct Expression * exp;
2077
2078 if(stmt->__anon1.forStmt.init)
2079 InstDeclPassStatement(stmt->__anon1.forStmt.init);
2080 if(stmt->__anon1.forStmt.check)
2081 InstDeclPassStatement(stmt->__anon1.forStmt.check);
2082 if(stmt->__anon1.forStmt.increment)
2083 {
2084 for(exp = (*stmt->__anon1.forStmt.increment).first; exp; exp = exp->next)
2085 InstDeclPassExpression(exp);
2086 }
2087 if(stmt->__anon1.forStmt.stmt)
2088 InstDeclPassStatement(stmt->__anon1.forStmt.stmt);
2089 break;
2090 }
2091 case 9:
2092 break;
2093 case 10:
2094 break;
2095 case 11:
2096 break;
2097 case 12:
2098 {
2099 struct Expression * exp;
2100
2101 if(stmt->__anon1.expressions)
2102 {
2103 for(exp = (*stmt->__anon1.expressions).first; exp; exp = exp->next)
2104 InstDeclPassExpression(exp);
2105 AddPointerCast((*stmt->__anon1.expressions).last);
2106 }
2107 break;
2108 }
2109 case 13:
2110 {
2111 struct AsmField * field;
2112
2113 if(stmt->__anon1.asmStmt.inputFields)
2114 {
2115 for(field = (*stmt->__anon1.asmStmt.inputFields).first; field; field = field->next)
2116 if(field->expression)
2117 InstDeclPassExpression(field->expression);
2118 }
2119 if(stmt->__anon1.asmStmt.outputFields)
2120 {
2121 for(field = (*stmt->__anon1.asmStmt.outputFields).first; field; field = field->next)
2122 if(field->expression)
2123 InstDeclPassExpression(field->expression);
2124 }
2125 if(stmt->__anon1.asmStmt.clobberedFields)
2126 {
2127 for(field = (*stmt->__anon1.asmStmt.clobberedFields).first; field; field = field->next)
2128 if(field->expression)
2129 InstDeclPassExpression(field->expression);
2130 }
2131 break;
2132 }
2133 }
2134 }
2135
2136 static void InstDeclPassDeclaration(struct Declaration * decl)
2137 {
2138 switch(decl->type)
2139 {
2140 case 1:
2141 {
2142 if(decl->__anon1.__anon1.specifiers)
2143 {
2144 struct Specifier * spec;
2145
2146 for(spec = (*decl->__anon1.__anon1.specifiers).first; spec; spec = spec->next)
2147 {
2148 int type;
2149
2150 if((type = ReplaceClassSpec(decl->__anon1.__anon1.specifiers, spec, 0)))
2151 {
2152 struct InitDeclarator * d;
2153
2154 if(decl->__anon1.__anon1.declarators)
2155 {
2156 for(d = (*decl->__anon1.__anon1.declarators).first; d; d = d->next)
2157 ReplaceByInstancePtr(spec, &d->declarator, type);
2158 }
2159 }
2160 InstDeclPassSpecifier(spec, 0);
2161 }
2162 }
2163 if(decl->__anon1.__anon1.declarators)
2164 {
2165 struct InitDeclarator * d;
2166
2167 for(d = (*decl->__anon1.__anon1.declarators).first; d; d = d->next)
2168 {
2169 InstDeclPassDeclarator(d->declarator);
2170 if(d->initializer)
2171 InstDeclPassInitializer(d->initializer);
2172 }
2173 }
2174 break;
2175 }
2176 case 0:
2177 {
2178 if(decl->__anon1.__anon1.specifiers)
2179 {
2180 struct Specifier * spec;
2181
2182 for(spec = (*decl->__anon1.__anon1.specifiers).first; spec; spec = spec->next)
2183 {
2184 int type;
2185
2186 if((type = ReplaceClassSpec(decl->__anon1.__anon1.specifiers, spec, 0)))
2187 {
2188 if(decl->__anon1.__anon1.declarators)
2189 {
2190 struct Declarator * d;
2191
2192 for(d = (*decl->__anon1.__anon1.declarators).first; d; d = d->next)
2193 ReplaceByInstancePtr(spec, &d, type);
2194 }
2195 }
2196 InstDeclPassSpecifier(spec, 0);
2197 }
2198 }
2199 if(decl->__anon1.__anon1.declarators)
2200 {
2201 struct Declarator * d;
2202
2203 for(d = (*decl->__anon1.__anon1.declarators).first; d; d = d->next)
2204 InstDeclPassDeclarator(d);
2205 }
2206 break;
2207 }
2208 case 2:
2209 break;
2210 }
2211 }
2212
2213 static void InstDeclPassExpression(struct Expression * exp)
2214 {
2215 switch(exp->type)
2216 {
2217 case 0:
2218 {
2219 if(exp->__anon1.__anon1.identifier)
2220 InstDeclPassIdentifier(exp->__anon1.__anon1.identifier);
2221 break;
2222 }
2223 case 2:
2224 break;
2225 case 3:
2226 break;
2227 case 4:
2228 if(exp->__anon1.op.exp1)
2229 InstDeclPassExpression(exp->__anon1.op.exp1);
2230 if(exp->__anon1.op.exp2)
2231 {
2232 InstDeclPassExpression(exp->__anon1.op.exp2);
2233 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)
2234 {
2235 struct Expression * e = exp->__anon1.op.exp2;
2236
2237 e->__anon1.cast.exp = MkExpBrackets(MkListOne(MoveExpContents(e)));
2238 e->type = 11;
2239 e->__anon1.typeName = MkTypeName(MkListOne(MkSpecifier(VOID)), QMkPtrDecl((((void *)0))));
2240 e = exp->__anon1.op.exp1;
2241 e->__anon1.cast.exp = MkExpBrackets(MkListOne(MoveExpContents(e)));
2242 e->type = 11;
2243 e->__anon1.typeName = MkTypeName(MkListOne(MkSpecifier(VOID)), QMkPtrDecl((((void *)0))));
2244 }
2245 else if(exp->__anon1.op.exp1 && (exp->__anon1.op.op == '=' || exp->__anon1.op.op == EQ_OP || exp->__anon1.op.op == NE_OP))
2246 AddPointerCast(exp->__anon1.op.exp2);
2247 }
2248 break;
2249 case 32:
2250 case 5:
2251 {
2252 struct Expression * e;
2253
2254 for(e = (*exp->__anon1.list).first; e; e = e->next)
2255 InstDeclPassExpression(e);
2256 break;
2257 }
2258 case 6:
2259 {
2260 struct Expression * e;
2261
2262 InstDeclPassExpression(exp->__anon1.index.exp);
2263 for(e = (*exp->__anon1.index.index).first; e; e = e->next)
2264 InstDeclPassExpression(e);
2265 break;
2266 }
2267 case 7:
2268 {
2269 struct Expression * e;
2270
2271 InstDeclPassExpression(exp->__anon1.call.exp);
2272 if(exp->__anon1.call.arguments)
2273 {
2274 for(e = (*exp->__anon1.call.arguments).first; e; e = e->next)
2275 {
2276 unsigned int addCast = 0;
2277
2278 InstDeclPassExpression(e);
2279 AddPointerCast(e);
2280 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)
2281 addCast = 1;
2282 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)
2283 addCast = 1;
2284 if(addCast && (e->type != 11 || !IsVoidPtrCast(e->__anon1.cast.typeName)))
2285 {
2286 e->__anon1.cast.exp = MkExpBrackets(MkListOne(MoveExpContents(e)));
2287 e->type = 11;
2288 e->__anon1.typeName = MkTypeName(MkListOne(MkSpecifier(VOID)), QMkPtrDecl((((void *)0))));
2289 }
2290 }
2291 }
2292 break;
2293 }
2294 case 8:
2295 {
2296 if(exp->__anon1.member.exp)
2297 InstDeclPassExpression(exp->__anon1.member.exp);
2298 break;
2299 }
2300 case 9:
2301 {
2302 if(exp->__anon1.member.exp)
2303 InstDeclPassExpression(exp->__anon1.member.exp);
2304 break;
2305 }
2306 case 10:
2307 InstDeclPassTypeName(exp->__anon1.typeName, 0);
2308 break;
2309 case 11:
2310 {
2311 struct Type * type = exp->expType;
2312
2313 if(type && type->kind == 8 && type->__anon1._class->__anon1.registered && type->__anon1._class->__anon1.registered->type == 1 && !exp->needCast)
2314 {
2315 if(exp->destType && exp->destType->classObjectType == 2 && exp->destType->byReference)
2316 {
2317 FreeTypeName(exp->__anon1.cast.typeName);
2318 exp->__anon1.cast.typeName = MkTypeName(MkListOne(MkSpecifier(VOID)), MkDeclaratorPointer(MkPointer((((void *)0)), MkPointer((((void *)0)), (((void *)0)))), (((void *)0))));
2319 }
2320 else
2321 {
2322 struct Expression * castExp = exp->__anon1.cast.exp;
2323 struct Expression * prev = exp->prev, * next = exp->next;
2324
2325 exp->__anon1.cast.exp = (((void *)0));
2326 FreeExpContents(exp);
2327 FreeType(exp->expType);
2328 FreeType(exp->destType);
2329 *exp = *castExp;
2330 ((castExp ? __extension__ ({
2331 void * __ecerePtrToDelete = (castExp);
2332
2333 __ecereClass_Expression->Destructor ? __ecereClass_Expression->Destructor((void *)__ecerePtrToDelete) : 0, __ecereNameSpace__ecere__com__eSystem_Delete(__ecerePtrToDelete);
2334 }) : 0), castExp = 0);
2335 exp->prev = prev;
2336 exp->next = next;
2337 InstDeclPassExpression(exp);
2338 }
2339 }
2340 else
2341 {
2342 if(exp->expType && exp->expType->kind == 13)
2343 {
2344 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))
2345 exp->__anon1.cast.exp = MkExpCast(MkTypeName(MkListOne(MkSpecifierName("uintptr")), (((void *)0))), exp->__anon1.cast.exp);
2346 }
2347 InstDeclPassTypeName(exp->__anon1.cast.typeName, ((unsigned int)((exp->usage & 0x4) >> 2)));
2348 if(exp->__anon1.cast.exp)
2349 {
2350 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))
2351 exp->__anon1.cast.exp = MkExpCast(MkTypeName(MkListOne(MkSpecifierName("uintptr")), (((void *)0))), exp->__anon1.cast.exp);
2352 InstDeclPassExpression(exp->__anon1.cast.exp);
2353 }
2354 }
2355 break;
2356 }
2357 case 12:
2358 {
2359 struct Expression * e;
2360
2361 InstDeclPassExpression(exp->__anon1.cond.cond);
2362 for(e = (*exp->__anon1.cond.exp).first; e; e = e->next)
2363 InstDeclPassExpression(e);
2364 InstDeclPassExpression(exp->__anon1.cond.elseExp);
2365 break;
2366 }
2367 case 23:
2368 {
2369 InstDeclPassStatement(exp->__anon1.compound);
2370 break;
2371 }
2372 case 34:
2373 {
2374 InstDeclPassExpression(exp->__anon1.vaArg.exp);
2375 break;
2376 }
2377 case 33:
2378 {
2379 InstDeclPassTypeName(exp->__anon1.initializer.typeName, 0);
2380 InstDeclPassInitializer(exp->__anon1.initializer.initializer);
2381 break;
2382 }
2383 }
2384 }
2385
2386 void ProcessInstanceDeclarations()
2387 {
2388 struct External * external;
2389
2390 curContext = globalContext;
2391 for(external = (*ast).first; external; external = external->next)
2392 {
2393 curExternal = external;
2394 if(external->type == 0)
2395 {
2396 struct FunctionDefinition * func = external->__anon1.function;
2397
2398 if(func->specifiers)
2399 {
2400 struct Specifier * spec;
2401
2402 for(spec = (*func->specifiers).first; spec; spec = spec->next)
2403 {
2404 int type;
2405
2406 if((type = ReplaceClassSpec(func->specifiers, spec, 0)))
2407 ReplaceByInstancePtr(spec, &func->declarator, type);
2408 InstDeclPassSpecifier(spec, 0);
2409 }
2410 }
2411 InstDeclPassDeclarator(func->declarator);
2412 if(func->body)
2413 InstDeclPassStatement(func->body);
2414 }
2415 else if(external->type == 1)
2416 {
2417 if(external->__anon1.declaration)
2418 InstDeclPassDeclaration(external->__anon1.declaration);
2419 }
2420 }
2421 TopoSort(ast);
2422 }
2423
2424 void __ecereRegisterModule_pass3(struct __ecereNameSpace__ecere__com__Instance * module)
2425 {
2426 struct __ecereNameSpace__ecere__com__Class __attribute__((unused)) * class;
2427
2428 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("InstDeclPassTypeName", "void InstDeclPassTypeName(TypeName type, bool param)", InstDeclPassTypeName, module, 2);
2429 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("IsVoidPtrCast", "bool IsVoidPtrCast(TypeName typeName)", IsVoidPtrCast, module, 2);
2430 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("TopoSort", "void TopoSort(ecere::sys::OldList * input)", TopoSort, module, 2);
2431 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ProcessInstanceDeclarations", "void ProcessInstanceDeclarations(void)", ProcessInstanceDeclarations, module, 1);
2432 }
2433