6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-07-26 23:29:08 +00:00
Code Issues Projects Releases Wiki Activity

Slight adjustment to FPSTR_FLEX formatting

Browse Source
This commit is contained in:
David Schmenk 2023-02-25 10:29:30 -08:00
parent 177c621364
commit f4ce23a3cf
4 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/PLASMA2.2mg
View File

Binary file not shown.

8
src/libsrc/fpstr.pla
View File

@ -233,15 +233,15 @@ export def ext2str(ext, str, intdigits, fracdigits, format)
//
// Underflow
//
dp = -fracdigits
dp = -fracdigits - 1
fin
fin
if format & FPSTR_FLEX and (dp <= -fracdigits or dp >= (format & FPSTR_FIXED ?? intdigits :: numdigits))
if format & FPSTR_FLEX and (dp < -fracdigits or dp > (format & FPSTR_FIXED ?? intdigits :: numdigits))
//
// Print as exponent if over/underflow fixed digits
//
if numdigits < 8; numdigits = 8; fin
return ext2str(ext, str, 1, numdigits - 8, FPSTR_EXP | (format & FPSTR_STRIP))
if numdigits < 7; numdigits = 7; fin
return ext2str(ext, str, 1, numdigits - 7, FPSTR_EXP | (format & FPSTR_STRIP))
fin
//
// Convert as floating point

4
src/samplesrc/fppow.pla
View File

@ -4,7 +4,7 @@ include "inc/fpstr.plh"
var xT[t_extended]
char sT[32] // extra space
byte str = "123456789.123456789E+80"
byte str = "123456789.123456789"
byte i
// mul div
@ -19,7 +19,7 @@ def test(iM, iD)#0
puti(iM); putc('/'); puti(iD)
if iD<10; putc(' '); fin
puts("=>")
ext2str(@xT,@sT,6,9,FPSTR_FLEX|FPSTR_FIXED) // fixed
ext2str(@xT,@sT,9,9,FPSTR_FLEX|FPSTR_FIXED) // fixed
puts(@sT); putc('[')
puti( sT); putc(']')
putln

5
src/toolsrc/parse.pla
View File

@ -1299,7 +1299,8 @@ end
def parse_module#0
init_idglobal
init_idlocal
puts("Data+Code buffer size = "); puti(codebufsz); putln
puts("Data+Code buffer size = "); puti(codebufsz); putln; putln
puts(@relfile);
if nextln
//
// Compile module
@ -1310,7 +1311,7 @@ def parse_module#0
emit_codeseg
puti(codeptr - codebuff); puts(@bytesln)
while parse_defs; nextln; loop
puts("INIT:")
puts("INIT:");
entrypoint = codeptr
prevstmnt = 0
init_idlocal