syntaxAlchemist/ldmc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

move code size benchmark to separate directory

Browse source
This commit is contained in:
Michael Sippel 2025-02-16 17:25:23 +01:00
parent cea1f36e63
commit 24e28e7bb5
Signed by: senvas
GPG key ID: F96CF119C34B64A6
6 changed files with 13 additions and 71 deletions
morphisms/morphism-base
digit.morphism-base

67
morphisms/morphism-base/digit.morphism-base
View file

@ -1,67 +0,0 @@
morph_digit_as_char_to_uint8 (Radix:ℤ)
<Digit Radix> ~ Char ~ Ascii ~ x86.UInt8
--> <Digit Radix> ~ x86.UInt8
```
if( *src >= '0' && *src <= '9' )
*dst = *src - '0';
else if( *src >= 'a' && *src <= 'f')
*dst = 0xa + *src - 'a';
else if( *src >= 'A' && *src <= 'F')
*dst = 0xa + *src - 'A';
else
return -1;
if( *dst < Radix ) {
return 0;
} else {
return -1;
}
```
morph_digit_as_char_to_uint64 (Radix:ℤ)
<Digit Radix> ~ Char ~ Ascii ~ x86.UInt8
--> <Digit Radix> ~ x86.UInt64
```
if( *src >= '0' && *src <= '9' )
*dst = *src - '0';
else if( *src >= 'a' && *src <= 'f')
*dst = 0xa + *src - 'a';
else if( *src >= 'A' && *src <= 'F')
*dst = 0xa + *src - 'A';
else
return -1;
if( *dst < Radix ) {
return 0;
} else {
return -1;
}
```
morph_digit_as_uint8_to_char (Radix:ℤ_16)
<Digit Radix> ~ x86.UInt8
--> <Digit Radix> ~ Char ~ Ascii ~ x86.UInt8
```
if ( *src < 10 )
*dst = *src + '0';
else if( *dst < 16 )
*dst = *src - 0xa + 'a';
else
return -1;
return 0;
```
morph_digit_as_uint64_to_char (Radix:ℤ_16)
<Digit Radix> ~ x86.UInt64
--> <Digit Radix> ~ Char ~ Ascii ~ x86.UInt8
```
if ( *src < 10 )
*dst = *src + '0';
else if( *dst < 16 )
*dst = *src - 0xa + 'a';
else
return -1;
return 0;
```