release ktcc 0.9.26

git-svn-id: svn://kolibrios.org@6424 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/ktcc/trunk/libc/include/ctype.h

@@ -4,31 +4,31 @@
 ** dependable answers.
 */
 
-#define ALNUM     1
-#define ALPHA     2
-#define CNTRL     4
-#define DIGIT     8
-#define GRAPH    16
-#define LOWER    32
-#define PRINT    64
-#define PUNCT   128
-#define BLANK   256
-#define UPPER   512
-#define XDIGIT 1024
+#define __ALNUM     1
+#define __ALPHA     2
+#define __CNTRL     4
+#define __DIGIT     8
+#define __GRAPH    16
+#define __LOWER    32
+#define __PRINT    64
+#define __PUNCT   128
+#define __BLANK   256
+#define __UPPER   512
+#define __XDIGIT 1024
 
-extern char _is[128];
+extern char __is[128];
 
-#define isalnum(c)(_is[c] & ALNUM ) /* 'a'-'z', 'A'-'Z', '0'-'9' */
-#define isalpha(c)(_is[c] & ALPHA ) /* 'a'-'z', 'A'-'Z' */
-#define iscntrl(c)(_is[c] & CNTRL ) /* 0-31, 127 */
-#define isdigit(c)(_is[c] & DIGIT ) /* '0'-'9' */
-#define isgraph(c)(_is[c] & GRAPH ) /* '!'-'~' */
-#define islower(c)(_is[c] & LOWER ) /* 'a'-'z' */
-#define isprint(c)(_is[c] & PRINT ) /* ' '-'~' */
-#define ispunct(c)(_is[c] & PUNCT ) /* !alnum && !cntrl && !space */
-#define isspace(c)(_is[c] & BLANK ) /* HT, LF, VT, FF, CR, ' ' */
-#define isupper(c)(_is[c] & UPPER ) /* 'A'-'Z' */
-#define isxdigit(c)(_is[c] & XDIGIT) /* '0'-'9', 'a'-'f', 'A'-'F' */
+#define isalnum(c)(__is[c] & __ALNUM ) /* 'a'-'z', 'A'-'Z', '0'-'9' */
+#define isalpha(c)(__is[c] & __ALPHA ) /* 'a'-'z', 'A'-'Z' */
+#define iscntrl(c)(__is[c] & __CNTRL ) /* 0-31, 127 */
+#define isdigit(c)(__is[c] & __DIGIT ) /* '0'-'9' */
+#define isgraph(c)(__is[c] & __GRAPH ) /* '!'-'~' */
+#define islower(c)(__is[c] & __LOWER ) /* 'a'-'z' */
+#define isprint(c)(__is[c] & __PRINT ) /* ' '-'~' */
+#define ispunct(c)(__is[c] & __PUNCT ) /* !alnum && !cntrl && !space */
+#define isspace(c)(__is[c] & __BLANK ) /* HT, LF, VT, FF, CR, ' ' */
+#define isupper(c)(__is[c] & __UPPER ) /* 'A'-'Z' */
+#define isxdigit(c)(__is[c] & __XDIGIT) /* '0'-'9', 'a'-'f', 'A'-'F' */
 
 #define isascii(c) (!((c)&(~0x7f)))
 #define toascii(c) ((c)&0x7f)

programs/develop/ktcc/trunk/libc/include/float.h

@@ -27,7 +27,7 @@
 #define DBL_MAX_10_EXP 308
 
 /* horrible intel long double */
-#ifdef __i386__
+#if defined __i386__ || defined __x86_64__
 
 #define LDBL_MANT_DIG 64
 #define LDBL_DIG 18

programs/develop/ktcc/trunk/libc/include/math.h

@@ -2,7 +2,7 @@
 /* Copyright (C) 1998 DJ Delorie, see COPYING.DJ for details */
 /* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */
 
-extern int stdcall integer(float number);
+//extern int stdcall integer(float number);
 
 extern double   acos(double _x);
 extern double   asin(double _x);
@@ -163,6 +163,11 @@ extern float log1pf(float);
 extern float gammaf_r(float, int *);
 extern float lgammaf_r(float, int *);
 
+double round  (double x);
+long double roundl  (long double x);
+
+
+
 //#endif /* !_POSIX_SOURCE */
 //#endif /* !__STRICT_ANSI__ */
 //#endif /* !__dj_ENFORCE_ANSI_FREESTANDING */

programs/develop/ktcc/trunk/libc/include/stdarg.h

@@ -1,15 +1,75 @@
 #ifndef _STDARG_H
 #define _STDARG_H
 
-typedef char *va_list;
+#ifdef __x86_64__
+#ifndef _WIN64
 
+//This should be in sync with the declaration on our lib/libtcc1.c
+/* GCC compatible definition of va_list. */
+typedef struct {
+    unsigned int gp_offset;
+    unsigned int fp_offset;
+    union {
+        unsigned int overflow_offset;
+        char *overflow_arg_area;
+    };
+    char *reg_save_area;
+} __va_list_struct;
+
+typedef __va_list_struct va_list[1];
+
+void __va_start(__va_list_struct *ap, void *fp);
+void *__va_arg(__va_list_struct *ap, int arg_type, int size, int align);
+
+#define va_start(ap, last) __va_start(ap, __builtin_frame_address(0))
+#define va_arg(ap, type)                                                \
+    (*(type *)(__va_arg(ap, __builtin_va_arg_types(type), sizeof(type), __alignof__(type))))
+#define va_copy(dest, src) (*(dest) = *(src))
+#define va_end(ap)
+
+#else /* _WIN64 */
+typedef char *va_list;
+#define va_start(ap,last) __builtin_va_start(ap,last)
+#define va_arg(ap,type) (ap += 8, sizeof(type)<=8 ? *(type*)ap : **(type**)ap)
+#define va_copy(dest, src) ((dest) = (src))
+#define va_end(ap)
+#endif
+
+#elif __arm__
+typedef char *va_list;
+#define _tcc_alignof(type) ((int)&((struct {char c;type x;} *)0)->x)
+#define _tcc_align(addr,type) (((unsigned)addr + _tcc_alignof(type) - 1) \
+                               & ~(_tcc_alignof(type) - 1))
+#define va_start(ap,last) ap = ((char *)&(last)) + ((sizeof(last)+3)&~3)
+#define va_arg(ap,type) (ap = (void *) ((_tcc_align(ap,type)+sizeof(type)+3) \
+                        &~3), *(type *)(ap - ((sizeof(type)+3)&~3)))
+#define va_copy(dest, src) (dest) = (src)
+#define va_end(ap)
+
+#elif defined(__aarch64__)
+typedef struct {
+    void *__stack;
+    void *__gr_top;
+    void *__vr_top;
+    int   __gr_offs;
+    int   __vr_offs;
+} va_list;
+#define va_start(ap, last) __va_start(ap, last)
+#define va_arg(ap, type) __va_arg(ap, type)
+#define va_end(ap)
+#define va_copy(dest, src) ((dest) = (src))
+
+#else /* __i386__ */
+typedef char *va_list;
 /* only correct for i386 */
 #define va_start(ap,last) ap = ((char *)&(last)) + ((sizeof(last)+3)&~3)
 #define va_arg(ap,type) (ap += (sizeof(type)+3)&~3, *(type *)(ap - ((sizeof(type)+3)&~3)))
+#define va_copy(dest, src) (dest) = (src)
 #define va_end(ap)
+#endif
 
 /* fix a buggy dependency on GCC in libio.h */
 typedef va_list __gnuc_va_list;
 #define _VA_LIST_DEFINED
 
-#endif
+#endif /* _STDARG_H */

programs/develop/ktcc/trunk/libc/include/stdbool.h

@@ -6,5 +6,6 @@
 #define bool	_Bool
 #define true	1
 #define false	0
+#define __bool_true_false_are_defined 1
 
 #endif /* _STDBOOL_H */

programs/develop/ktcc/trunk/libc/include/stddef.h

@@ -1,21 +1,46 @@
 #ifndef _STDDEF_H
 #define _STDDEF_H
 
-#define NULL ((void *)0)
 typedef __SIZE_TYPE__ size_t;
+typedef __PTRDIFF_TYPE__ ssize_t;
 typedef __WCHAR_TYPE__ wchar_t;
 typedef __PTRDIFF_TYPE__ ptrdiff_t;
-#define offsetof(type, field) ((size_t) &((type *)0)->field)
+typedef __PTRDIFF_TYPE__ intptr_t;
+typedef __SIZE_TYPE__ uintptr_t;
 
-/* need to do that because of glibc 2.1 bug (should have a way to test
-   presence of 'long long' without __GNUC__, or TCC should define
-   __GNUC__ ? */
-#if !defined(__int8_t_defined) && !defined(__dietlibc__)
+#ifndef __int8_t_defined
 #define __int8_t_defined
-typedef	char int8_t;
-typedef	short int int16_t;
-typedef	int int32_t;
-typedef long long int int64_t;
+typedef signed char int8_t;
+typedef signed short int int16_t;
+typedef signed int int32_t;
+typedef signed long long int int64_t;
+typedef unsigned char uint8_t;
+typedef unsigned short int uint16_t;
+typedef unsigned int uint32_t;
+typedef unsigned long long int uint64_t;
 #endif
 
+#ifndef NULL
+#define NULL ((void*)0)
+#endif
+
+#define offsetof(type, field) ((size_t)&((type *)0)->field)
+
+void *alloca(size_t size);
+
+#endif
+
+/* Older glibc require a wint_t from <stddef.h> (when requested
+   by __need_wint_t, as otherwise stddef.h isn't allowed to
+   define this type).   Note that this must be outside the normal
+   _STDDEF_H guard, so that it works even when we've included the file
+   already (without requiring wint_t).  Some other libs define _WINT_T
+   if they've already provided that type, so we can use that as guard.
+   TCC defines __WINT_TYPE__ for us.  */
+#if defined (__need_wint_t)
+#ifndef _WINT_T
+#define _WINT_T
+typedef __WINT_TYPE__ wint_t;
+#endif
+#undef __need_wint_t
 #endif

programs/develop/ktcc/trunk/libc/include/stdio.h

@@ -2,14 +2,18 @@
 #define stdio_h
 
 #include "kolibrisys.h"
-
+#include <stdarg.h>
+/* use stdarg.h
 typedef char *va_list;
 #define _roundsize(n)    ( (sizeof(n) + 3) & ~3 )
 #define va_start(ap,v) (ap = (va_list)&v+_roundsize(v))
 #define va_arg(ap,t)    ( *(t *)((ap += _roundsize(t)) - _roundsize(t)) )
 #define va_end(ap) (ap = (va_list)0)
+*/
+#ifndef NULL
+# define NULL ((void*)0)
+#endif
 
-#define NULL ((void*)0)
 int format_print(char *dest, size_t maxlen,const char *fmt0, va_list argp);
 
 typedef struct {
@@ -21,6 +25,9 @@ typedef struct {
   int     mode;
 } FILE;
 
+#define stderr ((FILE*)3) /* works inly for fprintf!!! */
+
+
 #define FILE_OPEN_READ 0
 #define FILE_OPEN_WRITE 1
 #define FILE_OPEN_APPEND 2
@@ -55,5 +62,7 @@ extern int cdecl snprintf(char *dest, size_t size, const char *format,...);
 extern int cdecl sprintf(char *dest,const char *format,...);
 
 #define getc(a) fgetc(a)
+char * fgets ( char * str, int num, FILE * stream );
+int putchar ( int character );
 
 #endif

programs/develop/ktcc/trunk/libc/include/stdlib.h

@@ -21,4 +21,10 @@ extern void* stdcall realloc(void* pointer,dword size);
 extern int rand (void);
 extern void srand (unsigned int seed);
 
+double strtod (const char* str, char** endptr);
+long double strtold (const char* str, char** endptr);
+float strtof (const char* str, char** endptr);
+
+
+#define exit(a) _ksys_exit()
 #endif

programs/develop/ktcc/trunk/libc/include/varargs.h

@@ -1,11 +1,12 @@
+/**
+ * This file has no copyright assigned and is placed in the Public Domain.
+ * This file is part of the w64 mingw-runtime package.
+ * No warranty is given; refer to the file DISCLAIMER within this package.
+ */
 #ifndef _VARARGS_H
 #define _VARARGS_H
 
-#include <stdarg.h>
-
-#define va_dcl
-#define va_alist __va_alist
-#undef va_start
-#define va_start(ap) ap = __builtin_varargs_start
+#error "TinyCC no longer implements <varargs.h>."
+#error "Revise your code to use <stdarg.h>."
 
 #endif