OpenCores
URL https://opencores.org/ocsvn/forwardcom/forwardcom/trunk

Subversion Repositories forwardcom

Compare Revisions

  • This comparison shows the changes necessary to convert path
    /forwardcom/libraries
    from Rev 119 to Rev 120
    Reverse comparison

Rev 119 → Rev 120

/atoi_light.as
0,0 → 1,77
/********************************* atoi_light.as *****************************
* Author: Agner Fog
* date created: 2018-03-23
* Last modified: 2021-05-16
* Version: 1.11
* Project: ForwardCom library libc_light.li
* Description: atoi: convert string to integer
* This version is for CPUs with limited capabilities
* C declaration: int64_t atoi(const char * str)
*
* Copyright 2018-2021 GNU General Public License http://www.gnu.org/licenses
*****************************************************************************/
 
code section execute align = 4 // code section
 
_atoi function public reguse = 3, 0
_atol function public reguse = 3, 0
 
if (int64 r0 == 0) {jump EMPTYEND} // NULL pointer
 
int64 sp -= 3*8 // save r2 - r4
int64 [sp] = r2
int64 [sp+8] = r3
int64 [sp+0x10] = r4
 
int r1 = 0 // state: 0: after whitespace
// 1: after +/-
// 2: after digit
int64 r2 = 0 // value
int r3 = 0 // sign
int8 r4 = [r0] // read first character from string
// loop through string until terminating zero
while (int8+ r4 != 0) {
if (uint8+ r4 <= ' ') { // whitespace
if (int r1 != 0) {jump ERROREND} // space not allowed if state != 0. end of number
jump NEXT // else
}
if (uint8+ r4 <= '-') { // '+' or '-'
if (int r1 != 0) {jump ERROREND} // sign not allowed if state != 0. end of number
int r1 = 1 // state = 1
if (uint8+ r4 == '-') {
int8+ r3 = 1 // sign
jump NEXT // else
}
if (uint8+ r4 != '+') {
jump ERROREND // anything else than '+'. end of number
}
}
else {
int8+ r4 -= '0' // subtract ASCII '0'
if (uint8+ r4 > 9) {jump ERROREND} // anything else than 0-9. end of number
//int64 r2 *= 10
// multiply value by 10 without using mul instruction
int64 r1 = r2 << 3 // value * 8
int64 r2 <<= 1 // value * 2
int64 r2 += r1 // value * 10
int64 r2 += r4 // + digit
int r1 = 2 // state = 2
}
NEXT:
int64 r0++ // point to next character
int8 r4 = [r0] // read next character from string
}
ERROREND: // jump here when a character that cannot be part of the string is met
int64 r0 = r3 ? -r2 : r2 // change sign if r3
 
int64 r2 = [sp] // restore r2 - r4
int64 r3 = [sp+8]
int64 r4 = [sp+0x10]
int64 sp += 3*8
 
EMPTYEND:
return
 
_atoi end
 
code end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.