forked from KolibriOS/kolibrios
samples upd
git-svn-id: svn://kolibrios.org@6460 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
siemargl
parent
92054a7816
commit
26c74ab3f2
86
programs/develop/ktcc/trunk/libc/math/fmod.c
Normal file
86
programs/develop/ktcc/trunk/libc/math/fmod.c
Normal file
@ -0,0 +1,86 @@
|
||||
#include <math.h>
|
||||
|
||||
double remainder(double numer, double denom)
|
||||
{
|
||||
double res;
|
||||
asm("fldl %2;"
|
||||
"fldl %1;"
|
||||
"fprem1;"
|
||||
"fstpl %0;"
|
||||
"fstp %%st;"
|
||||
: "=m"(res)
|
||||
: "m"(numer), "m"(denom)
|
||||
);
|
||||
return res;
|
||||
}
|
||||
//remainder of 5.3 / 2 is -0.700000
|
||||
//remainder of 18.5 / 4.2 is 1.700000
|
||||
|
||||
|
||||
|
||||
double fmod(double numer, double denom)
|
||||
{
|
||||
double res;
|
||||
asm("fldl %2;"
|
||||
"fldl %1;"
|
||||
"fprem;"
|
||||
"fstpl %0;"
|
||||
"fstp %%st;"
|
||||
: "=m"(res)
|
||||
: "m"(numer), "m"(denom)
|
||||
);
|
||||
return res;
|
||||
}
|
||||
// fmod of 5.3 / 2 is 1.300000
|
||||
// fmod of 18.5 / 4.2 is 1.700000
|
||||
|
||||
|
||||
double modf(double x, double *intpart)
|
||||
{
|
||||
double res, intp;
|
||||
asm("fldl %2;"
|
||||
"fldl %2;"
|
||||
"frndint;"
|
||||
"fstl %1;"
|
||||
"fxch;"
|
||||
"fsubp %%st, %%st(1);"
|
||||
"fstpl %0"
|
||||
: "=m"(res), "=m"(intp)
|
||||
: "m"(x)
|
||||
);
|
||||
*intpart = intp;
|
||||
return res;
|
||||
}
|
||||
|
||||
double ldexp (double x, int expon)
|
||||
// = x * 2^expot
|
||||
{
|
||||
double res;
|
||||
asm("fildl %2;"
|
||||
"fldl %1;"
|
||||
"fscale;"
|
||||
"fstpl %0;"
|
||||
"fstp %%st;"
|
||||
: "=m"(res)
|
||||
: "m"(x), "m"(expon)
|
||||
);
|
||||
|
||||
return res;
|
||||
}
|
||||
|
||||
double frexp (double x, int* expon)
|
||||
{
|
||||
double res;
|
||||
asm("fldl %2;"
|
||||
"fxtract;"
|
||||
"fstpl %0;"
|
||||
"fistpl %1;"
|
||||
"fstp %%st;"
|
||||
: "=m"(res), "=m"(*expon)
|
||||
: "m"(x)
|
||||
);
|
||||
|
||||
// *expon = (int)ex;
|
||||
return res;
|
||||
}
|
||||
// 8.000000 = 0.500000 * 2^ 4
|
||||
68
programs/develop/ktcc/trunk/samples/asm_ex.c
Normal file
68
programs/develop/ktcc/trunk/samples/asm_ex.c
Normal file
@ -0,0 +1,68 @@
|
||||
/* examples for interoperability with assembler
|
||||
|
||||
1. Calling assembler code from .c : see in libc\math any .asm file
|
||||
2. Using inline assembler: see \include\kos32sys1.h and libc\math\fmod.c
|
||||
- https://gcc.gnu.org/onlinedocs/gcc-4.8.5/gcc/Extended-Asm.html
|
||||
- not all constraints from gcc are supported, no "f" or "t" for example
|
||||
- not supported clobberring st registers, must manual add "fstp %%st" at end or similar
|
||||
- need full suffixes for opcodes, fstpl but not fstp
|
||||
|
||||
3. Calling c functions from .asm: see \libc\start\start.asm:99
|
||||
Remember:
|
||||
- small ints always passed as int32, floating point params as 64-bit
|
||||
- returned structs passed on stack with additional hidden 1st param
|
||||
- c functions can use EAX, ECX, EDX without warnings
|
||||
- .c default is cdecl calling convention https://en.wikipedia.org/wiki/X86_calling_conventions
|
||||
- dont use fastcall calling convention, tinycc realized it non-conformant way
|
||||
- tinycc supports only ELF object files
|
||||
|
||||
tcc can be used as a linker
|
||||
*/
|
||||
|
||||
|
||||
|
||||
|
||||
#include <stdio.h>
|
||||
#include <math.h>
|
||||
|
||||
|
||||
main()
|
||||
{
|
||||
int i;
|
||||
for (i = 0; i < 20; i++)
|
||||
{
|
||||
printf("------------------------------------------------------\n");
|
||||
printf ( "remainder of 5.3 / 2 is %f\n", remainder (5.3,2) );
|
||||
printf ( "remainder of 18.5 / 4.2 is %f\n", remainder (18.5,4.2) );
|
||||
//remainder of 5.3 / 2 is -0.700000
|
||||
//remainder of 18.5 / 4.2 is 1.700000
|
||||
|
||||
printf ( "fmod of 5.3 / 2 is %f\n", fmod (5.3,2) );
|
||||
printf ( "fmod of 18.5 / 4.2 is %f\n", fmod (18.5,4.2) );
|
||||
// fmod of 5.3 / 2 is 1.300000
|
||||
// fmod of 18.5 / 4.2 is 1.700000
|
||||
|
||||
double param, fractpart, intpart, result;
|
||||
int n;
|
||||
|
||||
param = 3.14159265;
|
||||
fractpart = modf (param , &intpart);
|
||||
printf ("%f = %f + %f \n", param, intpart, fractpart);
|
||||
//3.141593 = 3.000000 + 0.141593
|
||||
|
||||
param = 0.95;
|
||||
n = 4;
|
||||
result = ldexp (param , n);
|
||||
printf ("%f * 2^%d = %f\n", param, n, result);
|
||||
//0.950000 * 2^4 = 15.200000
|
||||
|
||||
param = 8.0;
|
||||
result = frexp (param , &n);
|
||||
printf ("%f = %f * 2^%d\n", param, result, n);
|
||||
//8.000000 = 0.500000 * 2^4
|
||||
param = 50;
|
||||
result = frexp (param , &n);
|
||||
printf ("%f = %f * 2^%d\n", param, result, n);
|
||||
|
||||
}
|
||||
}
|
||||
@ -4,5 +4,7 @@
|
||||
#define TCC_TARGET_I386
|
||||
#define ONE_SOURCE
|
||||
|
||||
//#define TCC_TARGET_COFF
|
||||
|
||||
//#define COMMIT_4ad186c5ef61_IS_FIXED
|
||||
//#define CONFIG_TCC_BCHECK
|
||||
|
||||
@ -2126,6 +2126,12 @@ ST_FUNC int tcc_parse_args1(TCCState *s, int argc, char **argv)
|
||||
int optind = 0;
|
||||
ParseArgsState *pas = s->parse_args_state;
|
||||
|
||||
/*
|
||||
#ifdef TCC_TARGET_MEOS
|
||||
// siemargl testing
|
||||
s->output_format = TCC_OUTPUT_FORMAT_COFF;
|
||||
#endif
|
||||
*/
|
||||
while (optind < argc) {
|
||||
|
||||
r = argv[optind++];
|
||||
|
||||
@ -61,7 +61,7 @@ errno.h - in stdio
|
||||
limits.h
|
||||
locale.h
|
||||
setjmp.h
|
||||
signall.h
|
||||
signal.h
|
||||
time.h - can use get_tick_count()/100 from kos32sys1.h
|
||||
wchar.h
|
||||
wctype.h
|
||||
@ -70,14 +70,6 @@ wctype.h
|
||||
|
||||
functions absent list:
|
||||
|
||||
math.h
|
||||
frexp
|
||||
ldexp
|
||||
modf
|
||||
fmod
|
||||
|
||||
HUGE_VAL
|
||||
|
||||
stdio.h:
|
||||
remove
|
||||
rename
|
||||
|
||||
@ -348,6 +348,11 @@ static inline void write64le(unsigned char *p, uint64_t x)
|
||||
/* -------------------------------------------- */
|
||||
/* include the target specific definitions */
|
||||
|
||||
#ifdef TCC_TARGET_COFF
|
||||
# include "coff.h"
|
||||
#endif
|
||||
|
||||
|
||||
#define TARGET_DEFS_ONLY
|
||||
#ifdef TCC_TARGET_I386
|
||||
# include "i386-gen.c"
|
||||
@ -362,7 +367,6 @@ static inline void write64le(unsigned char *p, uint64_t x)
|
||||
# include "arm64-gen.c"
|
||||
#endif
|
||||
#ifdef TCC_TARGET_C67
|
||||
# include "coff.h"
|
||||
# include "c67-gen.c"
|
||||
#endif
|
||||
#undef TARGET_DEFS_ONLY
|
||||
|
||||
@ -876,35 +876,35 @@ ST_FUNC int tcc_load_coff(TCCState * s1, int fd)
|
||||
}
|
||||
|
||||
if (fread(&file_hdr, FILHSZ, 1, f) != 1)
|
||||
tcc_error("error reading .out file for input");
|
||||
tcc_error("error 1 reading .out file for input");
|
||||
|
||||
if (fread(&o_filehdr, sizeof(o_filehdr), 1, f) != 1)
|
||||
tcc_error("error reading .out file for input");
|
||||
tcc_error("error 2 reading .out file for input");
|
||||
|
||||
// first read the string table
|
||||
|
||||
if (fseek(f, file_hdr.f_symptr + file_hdr.f_nsyms * SYMESZ, SEEK_SET))
|
||||
tcc_error("error reading .out file for input");
|
||||
tcc_error("error 3 reading .out file for input");
|
||||
|
||||
if (fread(&str_size, sizeof(int), 1, f) != 1)
|
||||
tcc_error("error reading .out file for input");
|
||||
tcc_error("error 4 reading .out file for input");
|
||||
|
||||
|
||||
Coff_str_table = (char *) tcc_malloc(str_size);
|
||||
|
||||
if (fread(Coff_str_table, str_size - 4, 1, f) != 1)
|
||||
tcc_error("error reading .out file for input");
|
||||
tcc_error("error 5 reading .out file for input");
|
||||
|
||||
// read/process all the symbols
|
||||
|
||||
// seek back to symbols
|
||||
|
||||
if (fseek(f, file_hdr.f_symptr, SEEK_SET))
|
||||
tcc_error("error reading .out file for input");
|
||||
tcc_error("error 6 reading .out file for input");
|
||||
|
||||
for (i = 0; i < file_hdr.f_nsyms; i++) {
|
||||
if (fread(&csym, SYMESZ, 1, f) != 1)
|
||||
tcc_error("error reading .out file for input");
|
||||
tcc_error("error 7 reading .out file for input");
|
||||
|
||||
if (csym._n._n_n._n_zeroes == 0) {
|
||||
name = Coff_str_table + csym._n._n_n._n_offset - 4;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user