/**************************************************************************/ /* COFF.H */ /* COFF data structures and related definitions used by the linker */ /**************************************************************************/ /*------------------------------------------------------------------------*/ /* COFF FILE HEADER */ /*------------------------------------------------------------------------*/ struct filehdr { unsigned short f_magic; /* magic number */ unsigned short f_nscns; /* number of sections */ long f_timdat; /* time & date stamp */ long f_symptr; /* file pointer to symtab */ long f_nsyms; /* number of symtab entries */ unsigned short f_opthdr; /* sizeof(optional hdr) */ unsigned short f_flags; /* flags */ unsigned short f_TargetID; /* for C6x = 0x0099 */ }; /*------------------------------------------------------------------------*/ /* File header flags */ /*------------------------------------------------------------------------*/ #define F_RELFLG 0x01 /* relocation info stripped from file */ #define F_EXEC 0x02 /* file is executable (no unresolved refs) */ #define F_LNNO 0x04 /* line nunbers stripped from file */ #define F_LSYMS 0x08 /* local symbols stripped from file */ #define F_GSP10 0x10 /* 34010 version */ #define F_GSP20 0x20 /* 34020 version */ #define F_SWABD 0x40 /* bytes swabbed (in names) */ #define F_AR16WR 0x80 /* byte ordering of an AR16WR (PDP-11) */ #define F_LITTLE 0x100 /* byte ordering of an AR32WR (vax) */ #define F_BIG 0x200 /* byte ordering of an AR32W (3B, maxi) */ #define F_PATCH 0x400 /* contains "patch" list in optional header */ #define F_NODF 0x400 #define F_VERSION (F_GSP10 | F_GSP20) #define F_BYTE_ORDER (F_LITTLE | F_BIG) #define FILHDR struct filehdr //#define FILHSZ sizeof(FILHDR) #define FILHSZ 22 // above rounds to align on 4 bytes which causes problems #define COFF_C67_MAGIC 0x00c2 /*------------------------------------------------------------------------*/ /* Macros to recognize magic numbers */ /*------------------------------------------------------------------------*/ #define ISMAGIC(x) (((unsigned short)(x))==(unsigned short)magic) #define ISARCHIVE(x) ((((unsigned short)(x))==(unsigned short)ARTYPE)) #define BADMAGIC(x) (((unsigned short)(x) & 0x8080) && !ISMAGIC(x)) /*------------------------------------------------------------------------*/ /* OPTIONAL FILE HEADER */ /*------------------------------------------------------------------------*/ typedef struct aouthdr { short magic; /* see magic.h */ short vstamp; /* version stamp */ long tsize; /* text size in bytes, padded to FW bdry*/ long dsize; /* initialized data " " */ long bsize; /* uninitialized data " " */ long entrypt; /* entry pt. */ long text_start; /* base of text used for this file */ long data_start; /* base of data used for this file */ } AOUTHDR; #define AOUTSZ sizeof(AOUTHDR) /*----------------------------------------------------------------------*/ /* When a UNIX aout header is to be built in the optional header, */ /* the following magic numbers can appear in that header: */ /* */ /* AOUT1MAGIC : default : readonly sharable text segment */ /* AOUT2MAGIC: : writable text segment */ /* PAGEMAGIC : : configured for paging */ /*----------------------------------------------------------------------*/ #define AOUT1MAGIC 0410 #define AOUT2MAGIC 0407 #define PAGEMAGIC 0413 /*------------------------------------------------------------------------*/ /* COMMON ARCHIVE FILE STRUCTURES */ /* */ /* ARCHIVE File Organization: */ /* _______________________________________________ */ /* |__________ARCHIVE_MAGIC_STRING_______________| */ /* |__________ARCHIVE_FILE_MEMBER_1______________| */ /* | | */ /* | Archive File Header "ar_hdr" | */ /* |.............................................| */ /* | Member Contents | */ /* | 1. External symbol directory | */ /* | 2. Text file | */ /* |_____________________________________________| */ /* |________ARCHIVE_FILE_MEMBER_2________________| */ /* | "ar_hdr" | */ /* |........................
discard """
  output: '''0'''
"""

# bug #206
template optimizeOut{testFunc(a, b)}(a: int, b: int{alias}): untyped = 0

proc testFunc(a, b: int): int = result = a + b
var testVar = 1
echo testFunc(testVar, testVar)


template ex{a = b + c}(a : int{noalias}, b, c : int) =
  a = b
  inc a, b
  echo "came here"

var x = 5
x = x + x
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2025-02-09 23:06:09 +0000
---------------------------------*/ #define SYMNMLEN 8 /* Number of characters in a symbol name */ #define FILNMLEN 14 /* Number of characters in a file name */ #define DIMNUM 4 /* Number of array dimensions in auxiliary entry */ struct syment { union { char _n_name[SYMNMLEN]; /* old COFF version */ struct { long _n_zeroes; /* new == 0 */ long _n_offset; /* offset into string table */ } _n_n; char *_n_nptr[2]; /* allows for overlaying */ } _n; long n_value; /* value of symbol */ short n_scnum; /* section number */ unsigned short n_type; /* type and derived type */ char n_sclass; /* storage class */ char n_numaux; /* number of aux. entries */ }; #define n_name _n._n_name #define n_nptr _n._n_nptr[1] #define n_zeroes _n._n_n._n_zeroes #define n_offset _n._n_n._n_offset /*------------------------------------------------------------------------*/ /* Relocatable symbols have a section number of the */ /* section in which they are defined. Otherwise, section */ /* numbers have the following meanings: */ /*------------------------------------------------------------------------*/ #define N_UNDEF 0 /* undefined symbol */ #define N_ABS -1 /* value of symbol is absolute */ #define N_DEBUG -2 /* special debugging symbol */ #define N_TV (unsigned short)-3 /* needs transfer vector (preload) */ #define P_TV (unsigned short)-4 /* needs transfer vector (postload) */ /*------------------------------------------------------------------------*/ /* The fundamental type of a symbol packed into the low */ /* 4 bits of the word. */ /*------------------------------------------------------------------------*/ #define _EF ".ef" #define T_NULL 0 /* no type info */ #define T_ARG 1 /* function argument (only used by compiler) */ #define T_CHAR 2 /* character */ #define T_SHORT 3 /* short integer */ #define T_INT 4 /* integer */ #define T_LONG 5 /* long integer */ #define T_FLOAT 6 /* floating point */ #define T_DOUBLE 7 /* double word */ #define T_STRUCT 8 /* structure */ #define T_UNION 9 /* union */ #define T_ENUM 10 /* enumeration */ #define T_MOE 11 /* member of enumeration */ #define T_UCHAR 12 /* unsigned character */ #define T_USHORT 13 /* unsigned short */ #define T_UINT 14 /* unsigned integer */ #define T_ULONG 15 /* unsigned long */ /*------------------------------------------------------------------------*/ /* derived types are: */ /*------------------------------------------------------------------------*/ #define DT_NON 0 /* no derived type */ #define DT_PTR 1 /* pointer */ #define DT_FCN 2 /* function */ #define DT_ARY 3 /* array */ #define MKTYPE(basic, d1,d2,d3,d4,d5,d6) \ ((basic) | ((d1) << 4) | ((d2) << 6) | ((d3) << 8) |\ ((d4) << 10) | ((d5) << 12) | ((d6) << 14)) /*------------------------------------------------------------------------*/ /* type packing constants and macros */ /*------------------------------------------------------------------------*/ #define N_BTMASK_COFF 017 #define N_TMASK_COFF 060 #define N_TMASK1_COFF 0300 #define N_TMASK2_COFF 0360 #define N_BTSHFT_COFF 4 #define N_TSHIFT_COFF 2 #define BTYPE_COFF(x) ((x) & N_BTMASK_COFF) #define ISINT(x) (((x) >= T_CHAR && (x) <= T_LONG) || \ ((x) >= T_UCHAR && (x) <= T_ULONG) || (x) == T_ENUM) #define ISFLT_COFF(x) ((x) == T_DOUBLE || (x) == T_FLOAT) #define ISPTR_COFF(x) (((x) & N_TMASK_COFF) == (DT_PTR << N_BTSHFT_COFF)) #define ISFCN_COFF(x) (((x) & N_TMASK_COFF) == (DT_FCN << N_BTSHFT_COFF)) #define ISARY_COFF(x) (((x) & N_TMASK_COFF) == (DT_ARY << N_BTSHFT_COFF)) #define ISTAG_COFF(x) ((x)==C_STRTAG || (x)==C_UNTAG || (x)==C_ENTAG) #define INCREF_COFF(x) ((((x)&~N_BTMASK_COFF)<>N_TSHIFT_COFF)&~N_BTMASK_COFF)|((x)&N_BTMASK_COFF)) /*------------------------------------------------------------------------*/ /* AUXILIARY SYMBOL ENTRY */ /*------------------------------------------------------------------------*/ union auxent { struct { long x_tagndx; /* str, un, or enum tag indx */ union { struct { unsigned short x_lnno; /* declaration line number */ unsigned short x_size; /* str, union, array size */ } x_lnsz; long x_fsize; /* size of function */ } x_misc; union { struct /* if ISFCN, tag, or .bb */ { long x_lnnoptr; /* ptr to fcn line # */ long x_endndx; /* entry ndx past block end */ } x_fcn; struct /* if ISARY, up to 4 dimen. */ { unsigned short x_dimen[DIMNUM]; } x_ary; } x_fcnary; unsigned short x_regcount; /* number of registers used by func */ } x_sym; struct { char x_fname[FILNMLEN]; } x_file; struct { long x_scnlen; /* section length */ unsigned short x_nreloc; /* number of relocation entries */ unsigned short x_nlinno; /* number of line numbers */ } x_scn; }; #define SYMENT struct syment #define SYMESZ 18 /* sizeof(SYMENT) */ #define AUXENT union auxent #define AUXESZ 18 /* sizeof(AUXENT) */ /*------------------------------------------------------------------------*/ /* NAMES OF "SPECIAL" SYMBOLS */ /*------------------------------------------------------------------------*/ #define _STEXT ".text" #define _ETEXT "etext" #define _SDATA ".data" #define _EDATA "edata" #define _SBSS ".bss" #define _END "end" #define _CINITPTR "cinit" /*--------------------------------------------------------------------------*/ /* ENTRY POINT SYMBOLS */ /*--------------------------------------------------------------------------*/ #define _START "_start" #define _MAIN "_main" /* _CSTART "_c_int00" (defined in params.h) */ #define _TVORIG "_tvorig" #define _TORIGIN "_torigin" #define _DORIGIN "_dorigin" #define _SORIGIN "_sorigin"