X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=src%2Fcc65%2Fdatatype.h;h=76bd018e1bf10989c7a772af45393a5c0b272470;hb=aef8789873bd008d42aa50330ca98488fad91b31;hp=a9838c642797a5da26a37c42633dde72d1b73b4f;hpb=77e8bffa81d947d2d726c9ee2efffaf1e945a16d;p=cc65 diff --git a/src/cc65/datatype.h b/src/cc65/datatype.h index a9838c642..76bd018e1 100644 --- a/src/cc65/datatype.h +++ b/src/cc65/datatype.h @@ -6,10 +6,10 @@ /* */ /* */ /* */ -/* (C) 1998 Ullrich von Bassewitz */ -/* Wacholderweg 14 */ -/* D-70597 Stuttgart */ -/* EMail: uz@musoftware.de */ +/* (C) 1998-2002 Ullrich von Bassewitz */ +/* Wacholderweg 14 */ +/* D-70597 Stuttgart */ +/* EMail: uz@musoftware.de */ /* */ /* */ /* This software is provided 'as-is', without any expressed or implied */ @@ -40,6 +40,13 @@ #include +/* common */ +#include "attrib.h" +#include "inline.h" + +/* cc65 */ +#include "funcdesc.h" + /*****************************************************************************/ @@ -49,26 +56,29 @@ -// Basic data types -enum type_t { - T_NONE = 0x0000, +/* Basic data types */ +enum { + T_END = 0x0000, - // Basic types + /* Basic types */ T_TYPE_NONE = 0x0000, T_TYPE_CHAR = 0x0001, - T_TYPE_INT = 0x0002, - T_TYPE_ENUM = 0x0003, - T_TYPE_FLOAT = 0x0004, - T_TYPE_DOUBLE = 0x0005, - T_TYPE_VOID = 0x0006, - T_TYPE_STRUCT = 0x0007, - T_TYPE_UNION = 0x0008, - T_TYPE_ARRAY = 0x0009, - T_TYPE_PTR = 0x000A, - T_TYPE_FUNC = 0x000B, + T_TYPE_SHORT = 0x0002, + T_TYPE_INT = 0x0003, + T_TYPE_LONG = 0x0004, + T_TYPE_LONGLONG = 0x0005, + T_TYPE_ENUM = 0x0006, + T_TYPE_FLOAT = 0x0007, + T_TYPE_DOUBLE = 0x0008, + T_TYPE_VOID = 0x0009, + T_TYPE_STRUCT = 0x000A, + T_TYPE_UNION = 0x000B, + T_TYPE_ARRAY = 0x000C, + T_TYPE_PTR = 0x000D, + T_TYPE_FUNC = 0x000E, T_MASK_TYPE = 0x001F, - // Type classes + /* Type classes */ T_CLASS_NONE = 0x0000, T_CLASS_INT = 0x0020, T_CLASS_FLOAT = 0x0040, @@ -77,81 +87,51 @@ enum type_t { T_CLASS_FUNC = 0x00A0, T_MASK_CLASS = 0x00E0, - // Type signedness + /* Type signedness */ T_SIGN_NONE = 0x0000, T_SIGN_UNSIGNED = 0x0100, T_SIGN_SIGNED = 0x0200, T_MASK_SIGN = 0x0300, - // Type size modifiers + /* Type size modifiers */ T_SIZE_NONE = 0x0000, T_SIZE_SHORT = 0x0400, T_SIZE_LONG = 0x0800, T_SIZE_LONGLONG = 0x0C00, T_MASK_SIZE = 0x0C00, - // Type qualifiers + /* Type qualifiers */ T_QUAL_NONE = 0x0000, T_QUAL_CONST = 0x1000, T_QUAL_VOLATILE = 0x2000, T_MASK_QUAL = 0x3000, - // Types - T_CHAR = T_TYPE_CHAR | T_CLASS_INT | T_SIGN_UNSIGNED | T_SIZE_NONE, - T_SCHAR = T_TYPE_CHAR | T_CLASS_INT | T_SIGN_SIGNED | T_SIZE_NONE, - T_UCHAR = T_TYPE_CHAR | T_CLASS_INT | T_SIGN_UNSIGNED | T_SIZE_NONE, - T_SHORT = T_TYPE_INT | T_CLASS_INT | T_SIGN_SIGNED | T_SIZE_SHORT, - T_USHORT = T_TYPE_INT | T_CLASS_INT | T_SIGN_UNSIGNED | T_SIZE_SHORT, - T_INT = T_TYPE_INT | T_CLASS_INT | T_SIGN_SIGNED | T_SIZE_NONE, - T_UINT = T_TYPE_INT | T_CLASS_INT | T_SIGN_UNSIGNED | T_SIZE_NONE, - T_LONG = T_TYPE_INT | T_CLASS_INT | T_SIGN_SIGNED | T_SIZE_LONG, - T_ULONG = T_TYPE_INT | T_CLASS_INT | T_SIGN_UNSIGNED | T_SIZE_LONG, - T_LONGLONG = T_TYPE_INT | T_CLASS_INT | T_SIGN_SIGNED | T_SIZE_LONGLONG, - T_ULONGLONG = T_TYPE_INT | T_CLASS_INT | T_SIGN_UNSIGNED | T_SIZE_LONGLONG, - T_ENUM = T_TYPE_ENUM | T_CLASS_INT | T_SIGN_SIGNED | T_SIZE_NONE, - T_FLOAT = T_TYPE_FLOAT | T_CLASS_FLOAT | T_SIGN_NONE | T_SIZE_NONE, - T_DOUBLE = T_TYPE_DOUBLE | T_CLASS_FLOAT | T_SIGN_NONE | T_SIZE_NONE, - T_VOID = T_TYPE_VOID | T_CLASS_NONE | T_SIGN_NONE | T_SIZE_NONE, - T_STRUCT = T_TYPE_STRUCT | T_CLASS_STRUCT | T_SIGN_NONE | T_SIZE_NONE, - T_UNION = T_TYPE_UNION | T_CLASS_STRUCT | T_SIGN_NONE | T_SIZE_NONE, - T_ARRAY = T_TYPE_ARRAY | T_CLASS_PTR | T_SIGN_NONE | T_SIZE_NONE, - T_PTR = T_TYPE_PTR | T_CLASS_PTR | T_SIGN_NONE | T_SIZE_NONE, - T_FUNC = T_TYPE_FUNC | T_CLASS_FUNC | T_SIGN_NONE | T_SIZE_NONE, + /* Types */ + T_CHAR = T_TYPE_CHAR | T_CLASS_INT | T_SIGN_UNSIGNED | T_SIZE_NONE, + T_SCHAR = T_TYPE_CHAR | T_CLASS_INT | T_SIGN_SIGNED | T_SIZE_NONE, + T_UCHAR = T_TYPE_CHAR | T_CLASS_INT | T_SIGN_UNSIGNED | T_SIZE_NONE, + T_SHORT = T_TYPE_SHORT | T_CLASS_INT | T_SIGN_SIGNED | T_SIZE_SHORT, + T_USHORT = T_TYPE_SHORT | T_CLASS_INT | T_SIGN_UNSIGNED | T_SIZE_SHORT, + T_INT = T_TYPE_INT | T_CLASS_INT | T_SIGN_SIGNED | T_SIZE_NONE, + T_UINT = T_TYPE_INT | T_CLASS_INT | T_SIGN_UNSIGNED | T_SIZE_NONE, + T_LONG = T_TYPE_LONG | T_CLASS_INT | T_SIGN_SIGNED | T_SIZE_LONG, + T_ULONG = T_TYPE_LONG | T_CLASS_INT | T_SIGN_UNSIGNED | T_SIZE_LONG, + T_LONGLONG = T_TYPE_LONGLONG | T_CLASS_INT | T_SIGN_SIGNED | T_SIZE_LONGLONG, + T_ULONGLONG = T_TYPE_LONGLONG | T_CLASS_INT | T_SIGN_UNSIGNED | T_SIZE_LONGLONG, + T_ENUM = T_TYPE_ENUM | T_CLASS_INT | T_SIGN_SIGNED | T_SIZE_NONE, + T_FLOAT = T_TYPE_FLOAT | T_CLASS_FLOAT | T_SIGN_NONE | T_SIZE_NONE, + T_DOUBLE = T_TYPE_DOUBLE | T_CLASS_FLOAT | T_SIGN_NONE | T_SIZE_NONE, + T_VOID = T_TYPE_VOID | T_CLASS_NONE | T_SIGN_NONE | T_SIZE_NONE, + T_STRUCT = T_TYPE_STRUCT | T_CLASS_STRUCT | T_SIGN_NONE | T_SIZE_NONE, + T_UNION = T_TYPE_UNION | T_CLASS_STRUCT | T_SIGN_NONE | T_SIZE_NONE, + T_ARRAY = T_TYPE_ARRAY | T_CLASS_PTR | T_SIGN_NONE | T_SIZE_NONE, + T_PTR = T_TYPE_PTR | T_CLASS_PTR | T_SIGN_NONE | T_SIZE_NONE, + T_FUNC = T_TYPE_FUNC | T_CLASS_FUNC | T_SIGN_NONE | T_SIZE_NONE, }; -/* Data types */ -#define T_END 0x0000 -#define T_CHAR 0x0011 -#define T_INT 0x0012 -#define T_SHORT 0x0013 -#define T_LONG 0x0014 -#define T_ENUM 0x0015 -#define T_UCHAR 0x0019 -#define T_UINT 0x001A -#define T_USHORT 0x001B -#define T_ULONG 0x001C - -#define T_FLOAT 0x0025 -#define T_DOUBLE 0x0026 - -#define T_VOID 0x0001 /* void parameter list */ -#define T_FUNC 0x0002 /* Function */ - -#define T_UNSIGNED 0x0008 /* Class */ -#define T_INTEGER 0x0010 /* Class */ -#define T_REAL 0x0020 /* Class */ -#define T_POINTER 0x0040 /* Class */ -#define T_PTR 0x0049 -#define T_ARRAY 0x004A -#define T_STRUCT 0x0080 -#define T_UNION 0x0081 -#define T_SMASK 0x003F - - - /* Forward for a symbol entry */ struct SymEntry; @@ -161,17 +141,31 @@ typedef unsigned short type; /* Maximum length of a type string */ #define MAXTYPELEN 30 -/* type elements needed for Encode/Decode */ +/* Type elements needed for Encode/Decode */ #define DECODE_SIZE 5 +/* Special encodings for element counts of an array */ +#define UNSPECIFIED -1L /* Element count was not specified */ +#define FLEXIBLE 0L /* Flexible array struct member */ + +/* Sizes */ +#define SIZEOF_CHAR 1 +#define SIZEOF_SHORT 2 +#define SIZEOF_INT 2 +#define SIZEOF_LONG 4 +#define SIZEOF_LONGLONG 8 +#define SIZEOF_FLOAT 4 +#define SIZEOF_DOUBLE 4 +#define SIZEOF_PTR 2 + /* Predefined type strings */ +extern type type_uchar []; extern type type_int []; extern type type_uint []; extern type type_long []; extern type type_ulong []; extern type type_void []; -extern type type_pschar []; -extern type type_puchar []; +extern type type_size_t []; @@ -184,9 +178,6 @@ extern type type_puchar []; unsigned TypeLen (const type* Type); /* Return the length of the type string */ -int TypeCmp (const type* T1, const type* T2); -/* Compare two type strings */ - type* TypeCpy (type* Dest, const type* Src); /* Copy a type string */ @@ -204,6 +195,9 @@ type* TypeAlloc (unsigned Len); void TypeFree (type* Type); /* Free a type string */ +int SignExtendChar (int C); +/* Do correct sign extension of a character */ + type GetDefaultChar (void); /* Return the default char type (signed/unsigned) depending on the settings */ @@ -213,14 +207,22 @@ type* GetCharArrayType (unsigned Len); type* GetImplicitFuncType (void); /* Return a type string for an inplicitly declared function */ +type* PointerTo (const type* T); +/* Return a type string that is "pointer to T". The type string is allocated + * on the heap and may be freed after use. + */ + void PrintType (FILE* F, const type* Type); /* Output translation of type array. */ void PrintRawType (FILE* F, const type* Type); /* Print a type string in raw format (for debugging) */ +void PrintFuncSig (FILE* F, const char* Name, type* Type); +/* Print a function signature. */ + void Encode (type* Type, unsigned long Val); -/* Encode an unsigned long into a type array */ +/* Encode Val into the given type string */ void EncodePtr (type* Type, void* P); /* Encode a pointer into a type array */ @@ -237,12 +239,33 @@ int HasEncode (const type* Type); void CopyEncode (const type* Source, type* Target); /* Copy encoded data from Source to Target */ +#if defined(HAVE_INLINE) +INLINE type UnqualifiedType (type T) +/* Return the unqalified type */ +{ + return (T & ~T_MASK_QUAL); +} +#else +# define UnqualifiedType(T) ((T) & ~T_MASK_QUAL) +#endif + unsigned SizeOf (const type* Type); /* Compute size of object represented by type array. */ unsigned PSizeOf (const type* Type); /* Compute size of pointer object. */ +unsigned CheckedSizeOf (const type* T); +/* Return the size of a data type. If the size is zero, emit an error and + * return some valid size instead (so the rest of the compiler doesn't have + * to work with invalid sizes). + */ +unsigned CheckedPSizeOf (const type* T); +/* Return the size of a data type that is pointed to by a pointer. If the + * size is zero, emit an error and return some valid size instead (so the + * rest of the compiler doesn't have to work with invalid sizes). + */ + unsigned TypeOf (const type* Type); /* Get the code generator base type of the object */ @@ -251,42 +274,218 @@ type* Indirect (type* Type); * given type points to. */ -int IsVoid (const type* Type); -/* Return true if this is a void type */ - -int IsPtr (const type* Type); -/* Return true if this is a pointer type */ +type* ArrayToPtr (const type* Type); +/* Convert an array to a pointer to it's first element */ -int IsChar (const type* Type); +#if defined(HAVE_INLINE) +INLINE int IsTypeChar (const type* T) /* Return true if this is a character type */ +{ + return (T[0] & T_MASK_TYPE) == T_TYPE_CHAR; +} +#else +# define IsTypeChar(T) (((T)[0] & T_MASK_TYPE) == T_TYPE_CHAR) +#endif -int IsInt (const type* Type); -/* Return true if this is an integer type */ +#if defined(HAVE_INLINE) +INLINE int IsTypeInt (const type* T) +/* Return true if this is an int type (signed or unsigned) */ +{ + return (T[0] & T_MASK_TYPE) == T_TYPE_INT; +} +#else +# define IsTypeInt(T) (((T)[0] & T_MASK_TYPE) == T_TYPE_INT) +#endif -int IsLong (const type* Type); +#if defined(HAVE_INLINE) +INLINE int IsTypeLong (const type* T) /* Return true if this is a long type (signed or unsigned) */ +{ + return (T[0] & T_MASK_TYPE) == T_TYPE_LONG; +} +#else +# define IsTypeLong(T) (((T)[0] & T_MASK_TYPE) == T_TYPE_LONG) +#endif -int IsUnsigned (const type* Type); -/* Return true if this is an unsigned type */ +#if defined(HAVE_INLINE) +INLINE int IsTypeFloat (const type* T) +/* Return true if this is a float type */ +{ + return (T[0] & T_MASK_TYPE) == T_TYPE_FLOAT; +} +#else +# define IsTypeFloat(T) (((T)[0] & T_MASK_TYPE) == T_TYPE_FLOAT) +#endif -int IsStruct (const type* Type); +#if defined(HAVE_INLINE) +INLINE int IsTypeDouble (const type* T) +/* Return true if this is a double type */ +{ + return (T[0] & T_MASK_TYPE) == T_TYPE_DOUBLE; +} +#else +# define IsTypeDouble(T) (((T)[0] & T_MASK_TYPE) == T_TYPE_DOUBLE) +#endif + +#if defined(HAVE_INLINE) +INLINE int IsTypePtr (const type* T) +/* Return true if this is a pointer type */ +{ + return ((T[0] & T_MASK_TYPE) == T_TYPE_PTR); +} +#else +# define IsTypePtr(T) (((T)[0] & T_MASK_TYPE) == T_TYPE_PTR) +#endif + +#if defined(HAVE_INLINE) +INLINE int IsTypeStruct (const type* T) /* Return true if this is a struct type */ +{ + return ((T[0] & T_MASK_TYPE) == T_TYPE_STRUCT); +} +#else +# define IsTypeStruct(T) (((T)[0] & T_MASK_TYPE) == T_TYPE_STRUCT) +#endif + +#if defined(HAVE_INLINE) +INLINE int IsTypeUnion (const type* T) +/* Return true if this is a union type */ +{ + return ((T[0] & T_MASK_TYPE) == T_TYPE_UNION); +} +#else +# define IsTypeUnion(T) (((T)[0] & T_MASK_TYPE) == T_TYPE_UNION) +#endif -int IsFunc (const type* Type); -/* Return true if this is a function type */ +#if defined(HAVE_INLINE) +INLINE int IsTypeArray (const type* T) +/* Return true if this is an array type */ +{ + return ((T[0] & T_MASK_TYPE) == T_TYPE_ARRAY); +} +#else +# define IsTypeArray(T) (((T)[0] & T_MASK_TYPE) == T_TYPE_ARRAY) +#endif -int IsFastCallFunc (const type* Type); -/* Return true if this is a function type with __fastcall__ calling conventions */ +#if defined(HAVE_INLINE) +INLINE int IsTypeVoid (const type* T) +/* Return true if this is a void type */ +{ + return (T[0] & T_MASK_TYPE) == T_TYPE_VOID; +} +#else +# define IsTypeVoid(T) (((T)[0] & T_MASK_TYPE) == T_TYPE_VOID) +#endif -int IsFuncPtr (const type* Type); +#if defined(HAVE_INLINE) +INLINE int IsTypeFunc (const type* T) +/* Return true if this is a function class */ +{ + return ((T[0] & T_MASK_TYPE) == T_TYPE_FUNC); +} +#else +# define IsTypeFunc(T) (((T)[0] & T_MASK_TYPE) == T_TYPE_FUNC) +#endif + +#if defined(HAVE_INLINE) +INLINE int IsTypeFuncPtr (const type* T) /* Return true if this is a function pointer */ +{ + return ((T[0] & T_MASK_TYPE) == T_TYPE_PTR && (T[1] & T_MASK_TYPE) == T_TYPE_FUNC); +} +#else +# define IsTypeFuncPtr(T) \ + ((((T)[0] & T_MASK_TYPE) == T_TYPE_PTR) && (((T)[1] & T_MASK_TYPE) == T_TYPE_FUNC)) +#endif -int IsArray (const type* Type); -/* Return true if this is an array type */ +int IsClassInt (const type* Type) attribute ((const)); +/* Return true if this is an integer type */ + +int IsClassFloat (const type* Type) attribute ((const)); +/* Return true if this is a float type */ + +int IsClassPtr (const type* Type) attribute ((const)); +/* Return true if this is a pointer type */ + +int IsClassStruct (const type* Type) attribute ((const)); +/* Return true if this is a struct type */ + +int IsSignUnsigned (const type* Type) attribute ((const)); +/* Return true if this is an unsigned type */ + +int IsQualConst (const type* T) attribute ((const)); +/* Return true if the given type has a const memory image */ -struct FuncDesc* GetFuncDesc (const type* Type); +int IsQualVolatile (const type* T) attribute ((const)); +/* Return true if the given type has a volatile type qualifier */ + +int IsFastCallFunc (const type* T) attribute ((const)); +/* Return true if this is a function type or pointer to function with + * __fastcall__ calling conventions + */ + +int IsVariadicFunc (const type* T) attribute ((const)); +/* Return true if this is a function type or pointer to function type with + * variable parameter list + */ + +#if defined(HAVE_INLINE) +INLINE type GetType (const type* T) +/* Get the raw type */ +{ + return (T[0] & T_MASK_TYPE); +} +#else +# define GetType(T) ((T)[0] & T_MASK_TYPE) +#endif + +#if defined(HAVE_INLINE) +INLINE type GetClass (const type* T) +/* Get the class of a type string */ +{ + return (T[0] & T_MASK_CLASS); +} +#else +# define GetClass(T) ((T)[0] & T_MASK_CLASS) +#endif + +#if defined(HAVE_INLINE) +INLINE type GetSignedness (const type* T) +/* Get the sign of a type */ +{ + return (T[0] & T_MASK_SIGN); +} +#else +# define GetSignedness(T) ((T)[0] & T_MASK_SIGN) +#endif + +#if defined(HAVE_INLINE) +INLINE type GetSizeModifier (const type* T) +/* Get the size modifier of a type */ +{ + return (T[0] & T_MASK_SIZE); +} +#else +# define GetSizeModifier(T) ((T)[0] & T_MASK_SIZE) +#endif + +type GetQualifier (const type* T) attribute ((const)); +/* Get the qualifier from the given type string */ + +FuncDesc* GetFuncDesc (const type* T) attribute ((const)); /* Get the FuncDesc pointer from a function or pointer-to-function type */ +type* GetFuncReturn (type* T) attribute ((const)); +/* Return a pointer to the return type of a function or pointer-to-function type */ + +long GetElementCount (const type* T); +/* Get the element count of the array specified in T (which must be of + * array type). + */ + +type* GetElementType (type* T); +/* Return the element type of the given array type. */ + /* End of datatype.h */