mirror of
https://github.com/cc65/cc65.git
synced 2024-07-09 16:29:09 +00:00
152 lines
4.7 KiB
C
152 lines
4.7 KiB
C
|
|
// test minimal float support.
|
|
// this should test everything that does NOT require linking a library
|
|
// - float literals in code are recognized as such
|
|
// - float variables are converted into the float binary format
|
|
// - taking address from float and assigning via pointer works
|
|
|
|
#ifdef CONIO
|
|
#include <conio.h>
|
|
#define WAIT() cgetc()
|
|
#else
|
|
#define WAIT()
|
|
#endif
|
|
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <stdint.h>
|
|
#include <string.h>
|
|
|
|
#include <_float.h>
|
|
|
|
float fp1 = 42.01002f;
|
|
float fp2; // non initialized
|
|
float *fp_p; // non initialized
|
|
|
|
uintptr_t p;
|
|
|
|
float fp3;
|
|
float fp4 = 23.12f;
|
|
|
|
char buf[0x20];
|
|
|
|
signed char var_schar;
|
|
unsigned char var_uchar;
|
|
signed int var_sint;
|
|
unsigned int var_uint;
|
|
signed long var_slong;
|
|
unsigned long var_ulong;
|
|
|
|
int result = 0;
|
|
|
|
// returns 1 if value in f matches the string
|
|
// the string is a hex value without leading "0x"
|
|
int compare(float f, char *str)
|
|
{
|
|
char temp[12];
|
|
sprintf(temp, "%08lx", *((uint32_t*)&f));
|
|
return (strcmp(temp, str) == 0) ? 1 : 0;
|
|
}
|
|
|
|
void test1(float f, char *str)
|
|
{
|
|
if (compare(f, str)) {
|
|
printf("\n");
|
|
} else {
|
|
printf(" (failed)\n");
|
|
result++;
|
|
}
|
|
}
|
|
|
|
void references(void) {
|
|
float fp2 = 23.1234f;
|
|
|
|
printf("fp2:0x%08lx [exp:0x41b8fcb9] %s (23.1234)", *((uint32_t*)&fp2), _ftostr(buf, fp2));
|
|
test1(fp2, "41b8fcb9");
|
|
printf("fp4:0x%08lx [exp:0x41b8f5c3] %s (23.12)", *((uint32_t*)&fp4), _ftostr(buf, fp4));
|
|
test1(fp4, "41b8f5c3");
|
|
|
|
printf("(global) get address, read via ptr\n");
|
|
// get address of global (works)
|
|
p = (uintptr_t)&fp1;
|
|
fp_p = (float*)p;
|
|
// read fp via pointer and assign local
|
|
fp2 = *fp_p;
|
|
|
|
printf("fp1:0x%08lx [exp:0x42280a43] %s (42.01002)", *((uint32_t*)&fp1), _ftostr(buf, fp1));
|
|
test1(fp1, "42280a43");
|
|
printf("fp2:0x%08lx [exp:0x42280a43] %s (42.01002)", *((uint32_t*)&fp2), _ftostr(buf, fp2));
|
|
test1(fp2, "42280a43");
|
|
|
|
printf("(local) get address, read via ptr\n");
|
|
fp2 = 23.1234f;
|
|
|
|
// get address of local
|
|
p = (uintptr_t)&fp2;
|
|
fp_p = (float*)p;
|
|
// read fp via pointer and assign global
|
|
fp3 = *fp_p;
|
|
|
|
printf("fp2:0x%08lx [exp:0x41b8fcb9] %s (23.1234)", *((uint32_t*)&fp2), _ftostr(buf, fp2));
|
|
test1(fp2, "41b8fcb9");
|
|
printf("fp3:0x%08lx [exp:0x41b8fcb9] %s (23.1234)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
|
|
test1(fp3, "41b8fcb9");
|
|
}
|
|
|
|
void testprinting(void)
|
|
{
|
|
static float a,b;
|
|
printf("\ntestprinting:\n\n");
|
|
|
|
a = 1.0f; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
b = 0.10f;
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
printf("\n");
|
|
|
|
a = 0.00012f; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
b = 10.0f;
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
printf("\n");
|
|
|
|
a = 40000.0f; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
b = 10.0f;
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
printf("\n");
|
|
|
|
a = -40000.0f; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
b = 10.0f;
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
a = b * a; printf("0x%08lx %s\n", *((uint32_t*)&a), _ftostr(buf, a) );
|
|
printf("\n");
|
|
}
|
|
|
|
int main(void)
|
|
{
|
|
printf("float-minimal\n");
|
|
|
|
printf("sizeof (float): %d\n", (int)sizeof(float));
|
|
|
|
references();
|
|
WAIT();
|
|
testprinting();
|
|
WAIT();
|
|
|
|
printf("float-minimal (res:%d)\n", result);
|
|
return result;
|
|
}
|