| /programs/develop/ktcc/trunk/libc.obj/source/Tupfile.lua |
|---|
| 32,13 → 32,11 |
| "string/memmove.s" |
| } |
| OBJS = {} |
| OBJS = {"libc.c"} |
| tup.append_table(OBJS, |
| tup.foreach_rule(GAS_SRC, "as --32 %f -o %o", "%B.o") |
| ) |
| table.insert(OBJS, "libc.c"); |
| tup.rule(OBJS, "kos32-tcc" .. CFLAGS .. INCLUDES .. " -o %o %f " .. " && strip %o --strip-unneeded " , "libc.o") |
| tup.rule(OBJS, "kos32-tcc" .. CFLAGS .. INCLUDES .. " %f -o %o " .. " && strip %o --strip-unneeded " , "libc.o") |
| tup.rule("libc.o", "objconv -fcoff32 %f %o " .. tup.getconfig("KPACK_CMD"), "%B.obj") |
| /programs/develop/ktcc/trunk/libc.obj/source/libc.c |
|---|
| 1,5 → 1,6 |
| #include <setjmp.h> |
| #include "libtcc1/libtcc1.c" |
| #include "ctype/is.c" |
| #include "ctype/tolower.c" |
| #include "ctype/toupper.c" |
| 80,7 → 81,6 |
| #include "string/strstr.c" |
| #include "string/strtok.c" |
| #include "string/strxfrm.c" |
| #include "stdlib/abs.c" |
| #include "stdlib/assert.c" |
| #include "stdlib/atof.c" |
| 288,5 → 288,5 |
| { "difftime", &difftime }, |
| { "basename", &basename }, |
| { "dirname", &dirname }, |
| NULL, |
| NULL |
| }; |
| /programs/develop/ktcc/trunk/libc.obj/source/math/tan.s |
|---|
| 1,5 → 1,7 |
| /* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */ |
| .global tan; |
| tan.L0: |
| .quad 0xffffffffffffffff |
| 10,7 → 12,7 |
| fstp %st(0) |
| sahf |
| jnp tan.L1 |
| /* fstp %st(0) - if exception, there is nothing on the stack */ |
| fstp %st(0) /*- if exception, there is nothing on the stack */ |
| fldl tan.L0 |
| tan.L1: |
| ret |