KolibriOS/kolibrios
13
4
Fork 12
Code Issues 78 Pull Requests 5 Projects Releases Activity

libc.obj set "tan" as global

Browse Source 
git-svn-id: svn://kolibrios.org@9846 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
turbocat 2022-06-19 19:27:38 +00:00
parent 03b266bde4
commit cf7da98be8
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
programs/develop/ktcc/trunk/libc.obj/source/Tupfile.lua
View File

@ -32,13 +32,11 @@ GAS_SRC = {
"string/memmove.s" "string/memmove.s"
} }
OBJS = {} OBJS = {"libc.c"}
tup.append_table(OBJS, tup.append_table(OBJS,
tup.foreach_rule(GAS_SRC, "as --32 %f -o %o", "%B.o") tup.foreach_rule(GAS_SRC, "as --32 %f -o %o", "%B.o")
) )
table.insert(OBJS, "libc.c"); tup.rule(OBJS, "kos32-tcc" .. CFLAGS .. INCLUDES .. " %f -o %o " .. " && strip %o --strip-unneeded " , "libc.o")
tup.rule(OBJS, "kos32-tcc" .. CFLAGS .. INCLUDES .. " -o %o %f " .. " && strip %o --strip-unneeded " , "libc.o")
tup.rule("libc.o", "objconv -fcoff32 %f %o " .. tup.getconfig("KPACK_CMD"), "%B.obj") tup.rule("libc.o", "objconv -fcoff32 %f %o " .. tup.getconfig("KPACK_CMD"), "%B.obj")

4
programs/develop/ktcc/trunk/libc.obj/source/libc.c
View File

@ -1,5 +1,6 @@
#include <setjmp.h> #include <setjmp.h>
#include "libtcc1/libtcc1.c"
#include "ctype/is.c" #include "ctype/is.c"
#include "ctype/tolower.c" #include "ctype/tolower.c"
#include "ctype/toupper.c" #include "ctype/toupper.c"
@ -80,7 +81,6 @@
#include "string/strstr.c" #include "string/strstr.c"
#include "string/strtok.c" #include "string/strtok.c"
#include "string/strxfrm.c" #include "string/strxfrm.c"
#include "stdlib/abs.c" #include "stdlib/abs.c"
#include "stdlib/assert.c" #include "stdlib/assert.c"
#include "stdlib/atof.c" #include "stdlib/atof.c"
@ -288,5 +288,5 @@ ksys_dll_t EXPORTS[] = {
{ "difftime", &difftime }, { "difftime", &difftime },
{ "basename", &basename }, { "basename", &basename },
{ "dirname", &dirname }, { "dirname", &dirname },
NULL, NULL
}; };

4
programs/develop/ktcc/trunk/libc.obj/source/math/tan.s
View File

@ -1,5 +1,7 @@
/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */ /* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
.global tan;
tan.L0: tan.L0:
.quad 0xffffffffffffffff .quad 0xffffffffffffffff
@ -10,7 +12,7 @@ tan:
fstp %st(0) fstp %st(0)
sahf sahf
jnp tan.L1 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 fldl tan.L0
tan.L1: tan.L1:
ret ret