mirror of
https://github.com/cc65/cc65.git
synced 2024-09-28 10:55:43 +00:00
add code for fnegeax, and tests for it
This commit is contained in:
parent
f89b382d6f
commit
f587e6eaf9
@ -10,6 +10,7 @@
|
|||||||
.import ___cbmkernal_feaxint
|
.import ___cbmkernal_feaxint
|
||||||
.import ___cbmkernal_feaxlong
|
.import ___cbmkernal_feaxlong
|
||||||
.import ___cbmkernal_fbnegeax
|
.import ___cbmkernal_fbnegeax
|
||||||
|
.import ___cbmkernal_fnegeax
|
||||||
.import ___cbmkernal_ftosaddeax
|
.import ___cbmkernal_ftosaddeax
|
||||||
.import ___cbmkernal_ftossubeax
|
.import ___cbmkernal_ftossubeax
|
||||||
.import ___cbmkernal_ftosdiveax
|
.import ___cbmkernal_ftosdiveax
|
||||||
@ -30,6 +31,7 @@
|
|||||||
.export feaxint := ___cbmkernal_feaxint
|
.export feaxint := ___cbmkernal_feaxint
|
||||||
.export feaxlong := ___cbmkernal_feaxlong
|
.export feaxlong := ___cbmkernal_feaxlong
|
||||||
.export fbnegeax := ___cbmkernal_fbnegeax
|
.export fbnegeax := ___cbmkernal_fbnegeax
|
||||||
|
.export fnegeax := ___cbmkernal_fnegeax
|
||||||
.export ftosaddeax := ___cbmkernal_ftosaddeax
|
.export ftosaddeax := ___cbmkernal_ftosaddeax
|
||||||
.export ftossubeax := ___cbmkernal_ftossubeax
|
.export ftossubeax := ___cbmkernal_ftossubeax
|
||||||
.export ftosdiveax := ___cbmkernal_ftosdiveax
|
.export ftosdiveax := ___cbmkernal_ftosdiveax
|
||||||
|
@ -193,11 +193,9 @@ ___cbmkernal_fbnegeax:
|
|||||||
jsr __ftoi
|
jsr __ftoi
|
||||||
jmp bnegax
|
jmp bnegax
|
||||||
|
|
||||||
.if 0 = 1
|
|
||||||
.export ___cbmkernal_fnegeax
|
.export ___cbmkernal_fnegeax
|
||||||
___cbmkernal_fnegeax:
|
___cbmkernal_fnegeax:
|
||||||
jmp __fneg
|
jmp __fneg
|
||||||
.endif
|
|
||||||
|
|
||||||
;--------------------------------------------------------------
|
;--------------------------------------------------------------
|
||||||
; math ops
|
; math ops
|
||||||
|
@ -77,6 +77,29 @@ fbnegeax:
|
|||||||
ldx #0
|
ldx #0
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
.import _float32_mul
|
||||||
|
; arg0: a/x/sreg/sreg+1
|
||||||
|
.export fnegeax
|
||||||
|
fnegeax:
|
||||||
|
pha
|
||||||
|
; txa
|
||||||
|
; pha
|
||||||
|
lda sreg+1
|
||||||
|
eor #$80 ; sign bit
|
||||||
|
sta sreg+1
|
||||||
|
; lda sreg+0
|
||||||
|
; eor #$ff ; sign bit
|
||||||
|
; sta sreg+0
|
||||||
|
; txa
|
||||||
|
; eor #$ff ; sign bit
|
||||||
|
; tax
|
||||||
|
; pla
|
||||||
|
; tax
|
||||||
|
pla
|
||||||
|
; eor #$ff ; sign bit
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
.import _float32_add
|
.import _float32_add
|
||||||
.import _float32_sub
|
.import _float32_sub
|
||||||
.import _float32_mul
|
.import _float32_mul
|
||||||
|
106
test/val/float-bnegate.c
Normal file
106
test/val/float-bnegate.c
Normal file
@ -0,0 +1,106 @@
|
|||||||
|
|
||||||
|
// test basic arithmetic operations
|
||||||
|
// WIP WIP WIP
|
||||||
|
|
||||||
|
#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 = 12.34f;
|
||||||
|
float fp2; // non initialized
|
||||||
|
float fp3, fp4 = 55.55f;
|
||||||
|
|
||||||
|
char buf[0x20];
|
||||||
|
char buf2[0x20];
|
||||||
|
char buf3[0x20];
|
||||||
|
|
||||||
|
unsigned long l1,l2;
|
||||||
|
|
||||||
|
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("(ok)");
|
||||||
|
printf("\n");
|
||||||
|
} else {
|
||||||
|
printf(" (failed)\n");
|
||||||
|
result++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
void test2(long n, long val)
|
||||||
|
{
|
||||||
|
if (n == val) {
|
||||||
|
// printf("(ok)");
|
||||||
|
printf("\n");
|
||||||
|
} else {
|
||||||
|
printf(" (failed)\n");
|
||||||
|
result++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
int main(void)
|
||||||
|
{
|
||||||
|
float fp2 = 43.21f;
|
||||||
|
|
||||||
|
printf("float-binary negate (not)\n");
|
||||||
|
printf("fp1:0x%08lx [0x414570a4] %s (12.340000)\n", *((uint32_t*)&fp1), _ftostr(buf, fp1));
|
||||||
|
printf("fp2:0x%08lx [0x422cd70a] %s (43.209999)\n", *((uint32_t*)&fp2), _ftostr(buf, fp2));
|
||||||
|
|
||||||
|
fp1 = 0.0f;
|
||||||
|
fp2 = !fp1;
|
||||||
|
var_sint = !fp1;
|
||||||
|
fp3 = !fp2;
|
||||||
|
printf("fp2 0x%08lx [0x3f800000] %s (!0=1) %d", *((uint32_t*)&fp2), _ftostr(buf, fp2), var_sint);
|
||||||
|
test1(fp2, "3f800000");
|
||||||
|
printf("fp3 0x%08lx [0x00000000] %s (!1=0)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
|
||||||
|
test1(fp3, "00000000");
|
||||||
|
|
||||||
|
fp1 = 12.6f;
|
||||||
|
fp2 = !fp1;
|
||||||
|
var_sint = !fp1;
|
||||||
|
fp3 = !fp2;
|
||||||
|
printf("fp2 0x%08lx [0x00000000] %s (!12.6f=0) %d", *((uint32_t*)&fp2), _ftostr(buf, fp2), var_sint);
|
||||||
|
test1(fp2, "00000000");
|
||||||
|
printf("fp3 0x%08lx [0x3f800000] %s (!0=1)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
|
||||||
|
test1(fp3, "3f800000");
|
||||||
|
|
||||||
|
fp1 = -12.6f;
|
||||||
|
fp2 = !fp1;
|
||||||
|
var_sint = !fp1;
|
||||||
|
fp3 = !fp2;
|
||||||
|
printf("fp2 0x%08lx [0x00000000] %s (!-12.6f=0) %d", *((uint32_t*)&fp2), _ftostr(buf, fp2), var_sint);
|
||||||
|
test1(fp2, "00000000");
|
||||||
|
printf("fp3 0x%08lx [0x3f800000] %s (!0=1)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
|
||||||
|
test1(fp3, "3f800000");
|
||||||
|
|
||||||
|
printf("float-binary negate (res:%d)\n", result);
|
||||||
|
return result;
|
||||||
|
}
|
@ -16,9 +16,10 @@
|
|||||||
|
|
||||||
#include <_float.h>
|
#include <_float.h>
|
||||||
|
|
||||||
float fp1 = 12.34f;
|
float fp1 = 1.0f;
|
||||||
float fp2; // non initialized
|
float fp2 = 200.0f; // aliased by variable in main
|
||||||
float fp3, fp4 = 55.55f;
|
float fp3 = 3.0f;
|
||||||
|
float fp4 = 4.0f;
|
||||||
|
|
||||||
char buf[0x20];
|
char buf[0x20];
|
||||||
char buf2[0x20];
|
char buf2[0x20];
|
||||||
@ -68,39 +69,41 @@ void test2(long n, long val)
|
|||||||
|
|
||||||
int main(void)
|
int main(void)
|
||||||
{
|
{
|
||||||
float fp2 = 43.21f;
|
float fp2 = 2.00f;
|
||||||
|
|
||||||
printf("float-binary negate (not)\n");
|
printf("float negate (minus)\n");
|
||||||
printf("fp1:0x%08lx [0x414570a4] %s (12.340000)\n", *((uint32_t*)&fp1), _ftostr(buf, fp1));
|
|
||||||
printf("fp2:0x%08lx [0x422cd70a] %s (43.209999)\n", *((uint32_t*)&fp2), _ftostr(buf, fp2));
|
|
||||||
|
|
||||||
fp1 = 0.0f;
|
printf("fp1:0x%08lx [0x3f800000] %s (1.0)", *((uint32_t*)&fp1), _ftostr(buf, fp1));
|
||||||
fp2 = !fp1;
|
test1(fp1, "3f800000");
|
||||||
var_sint = !fp1;
|
printf("fp2:0x%08lx [0x40000000] %s (2.0)", *((uint32_t*)&fp2), _ftostr(buf, fp2));
|
||||||
fp3 = !fp2;
|
test1(fp2, "40000000");
|
||||||
printf("fp2 0x%08lx [0x3f800000] %s (!0=1) %d", *((uint32_t*)&fp2), _ftostr(buf, fp2), var_sint);
|
|
||||||
test1(fp2, "3f800000");
|
var_sint = -fp1;
|
||||||
printf("fp3 0x%08lx [0x00000000] %s (!1=0)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
|
fp3 = -fp2;
|
||||||
test1(fp3, "00000000");
|
fp2 = -fp1;
|
||||||
|
printf("fp2 0x%08lx [0xbf800000] %s (-1.0) %d", *((uint32_t*)&fp2), _ftostr(buf, fp2), var_sint);
|
||||||
|
test1(fp2, "bf800000");
|
||||||
|
printf("fp3 0x%08lx [0xc0000000] %s (-2.0)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
|
||||||
|
test1(fp3, "c0000000");
|
||||||
|
|
||||||
fp1 = 12.6f;
|
fp1 = 12.6f;
|
||||||
fp2 = !fp1;
|
fp2 = -fp1;
|
||||||
var_sint = !fp1;
|
var_sint = -fp1;
|
||||||
fp3 = !fp2;
|
fp3 = -fp2;
|
||||||
printf("fp2 0x%08lx [0x00000000] %s (!12.6f=0) %d", *((uint32_t*)&fp2), _ftostr(buf, fp2), var_sint);
|
printf("fp2 0x%08lx [0xc149999a] %s (-12.6) %d", *((uint32_t*)&fp2), _ftostr(buf, fp2), var_sint);
|
||||||
test1(fp2, "00000000");
|
test1(fp2, "c149999a");
|
||||||
printf("fp3 0x%08lx [0x3f800000] %s (!0=1)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
|
printf("fp3 0x%08lx [0x4149999a] %s (12.6)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
|
||||||
test1(fp3, "3f800000");
|
test1(fp3, "4149999a");
|
||||||
|
|
||||||
fp1 = -12.6f;
|
fp1 = -12.6f;
|
||||||
fp2 = !fp1;
|
fp2 = -fp1;
|
||||||
var_sint = !fp1;
|
var_sint = -fp1;
|
||||||
fp3 = !fp2;
|
fp3 = -fp2;
|
||||||
printf("fp2 0x%08lx [0x00000000] %s (!-12.6f=0) %d", *((uint32_t*)&fp2), _ftostr(buf, fp2), var_sint);
|
printf("fp2 0x%08lx [0x4149999a] %s (12.6) %d", *((uint32_t*)&fp2), _ftostr(buf, fp2), var_sint);
|
||||||
test1(fp2, "00000000");
|
test1(fp2, "4149999a");
|
||||||
printf("fp3 0x%08lx [0x3f800000] %s (!0=1)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
|
printf("fp3 0x%08lx [0xc149999a] %s (-12.6)", *((uint32_t*)&fp3), _ftostr(buf, fp3));
|
||||||
test1(fp3, "3f800000");
|
test1(fp3, "c149999a");
|
||||||
|
|
||||||
printf("float-misc (res:%d)\n", result);
|
printf("float minus (res:%d)\n", result);
|
||||||
return result;
|
return result;
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user