X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=src%2Fcc65%2Fdatatype.h;h=76bd018e1bf10989c7a772af45393a5c0b272470;hb=aef8789873bd008d42aa50330ca98488fad91b31;hp=07889cb0138ba12a5dd7adecbfe365ffb06fa724;hpb=64dac7e7b7814a0ee5295608f47faae024825058;p=cc65 diff --git a/src/cc65/datatype.h b/src/cc65/datatype.h index 07889cb01..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 */ @@ -42,6 +42,10 @@ /* common */ #include "attrib.h" +#include "inline.h" + +/* cc65 */ +#include "funcdesc.h" @@ -52,11 +56,11 @@ -// Basic data types +/* Basic data types */ enum { T_END = 0x0000, - // Basic types + /* Basic types */ T_TYPE_NONE = 0x0000, T_TYPE_CHAR = 0x0001, T_TYPE_SHORT = 0x0002, @@ -74,7 +78,7 @@ enum { T_TYPE_FUNC = 0x000E, T_MASK_TYPE = 0x001F, - // Type classes + /* Type classes */ T_CLASS_NONE = 0x0000, T_CLASS_INT = 0x0020, T_CLASS_FLOAT = 0x0040, @@ -83,26 +87,26 @@ enum { 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 + /* 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, @@ -137,9 +141,23 @@ 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 []; @@ -177,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 */ @@ -197,8 +218,11 @@ void PrintType (FILE* F, const type* Type); 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 */ @@ -215,8 +239,15 @@ int HasEncode (const type* Type); void CopyEncode (const type* Source, type* Target); /* Copy encoded data from Source to Target */ -type UnqualifiedType (type T); +#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. */ @@ -224,6 +255,17 @@ unsigned SizeOf (const type* Type); 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 */ @@ -232,32 +274,129 @@ type* Indirect (type* Type); * given type points to. */ -int IsTypeChar (const type* T) attribute ((const)); +type* ArrayToPtr (const type* Type); +/* Convert an array to a pointer to it's first element */ + +#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 IsTypeInt (const type* T) attribute ((const)); +#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 IsTypeLong (const type* T) attribute ((const)); +#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 IsTypeFloat (const type* T) attribute ((const)); +#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 IsTypeDouble (const type* T) attribute ((const)); +#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 -int IsTypePtr (const type* Type) attribute ((const)); +#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 -int IsTypeArray (const type* Type) attribute ((const)); +#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 + +#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 IsTypeVoid (const type* Type) attribute ((const)); +#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 IsTypeFunc (const type* Type) attribute ((const)); +#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 IsClassInt (const type* Type) attribute ((const)); /* Return true if this is an integer type */ @@ -281,29 +420,72 @@ 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 with __fastcall__ calling conventions */ +/* Return true if this is a function type or pointer to function with + * __fastcall__ calling conventions + */ -int IsTypeFuncPtr (const type* T) attribute ((const)); -/* Return true if this is a function pointer */ +int IsVariadicFunc (const type* T) attribute ((const)); +/* Return true if this is a function type or pointer to function type with + * variable parameter list + */ -type GetType (const type* T) attribute ((const)); +#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 -type GetClass (const type* T) attribute ((const)); +#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 -type GetSignedness (const type* T) attribute ((const)); +#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 -type GetSizeModifier (const type* T) attribute ((const)); +#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 */ -struct FuncDesc* GetFuncDesc (const type* T) attribute ((const)); +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 */