@@ -489,64 +489,64 @@ object* fn_BIGash (object* args, object* env) {
489
489
}
490
490
491
491
// Symbol names
492
- const char stringBIGbignum[] PROGMEM = " $bignum" ;
493
- const char stringBIGinteger[] PROGMEM = " $integer" ;
494
- const char stringBIGbignumstring[] PROGMEM = " $bignum-string" ;
495
- const char stringBIGstringbignum[] PROGMEM = " $string-bignum" ;
496
- const char stringBIGzerop[] PROGMEM = " $zerop" ;
497
- const char stringBIGdecf[] PROGMEM = " $decf" ;
498
- const char stringBIGincf[] PROGMEM = " $incf" ;
499
- const char stringBIGadd[] PROGMEM = " $+" ;
500
- const char stringBIGsub[] PROGMEM = " $-" ;
501
- const char stringBIGmul[] PROGMEM = " $*" ;
502
- const char stringBIGdiv[] PROGMEM = " $/" ;
503
- const char stringBIGmod[] PROGMEM = " $mod" ;
504
- const char stringBIGequal[] PROGMEM = " $=" ;
505
- const char stringBIGless[] PROGMEM = " $<" ;
506
- const char stringBIGgreater[] PROGMEM = " $>" ;
507
- const char stringBIGlogand[] PROGMEM = " $logand" ;
508
- const char stringBIGlogior[] PROGMEM = " $logior" ;
509
- const char stringBIGlogxor[] PROGMEM = " $logxor" ;
510
- const char stringBIGash[] PROGMEM = " $ash" ;
492
+ const char stringBIGbignum[] = " $bignum" ;
493
+ const char stringBIGinteger[] = " $integer" ;
494
+ const char stringBIGbignumstring[] = " $bignum-string" ;
495
+ const char stringBIGstringbignum[] = " $string-bignum" ;
496
+ const char stringBIGzerop[] = " $zerop" ;
497
+ const char stringBIGdecf[] = " $decf" ;
498
+ const char stringBIGincf[] = " $incf" ;
499
+ const char stringBIGadd[] = " $+" ;
500
+ const char stringBIGsub[] = " $-" ;
501
+ const char stringBIGmul[] = " $*" ;
502
+ const char stringBIGdiv[] = " $/" ;
503
+ const char stringBIGmod[] = " $mod" ;
504
+ const char stringBIGequal[] = " $=" ;
505
+ const char stringBIGless[] = " $<" ;
506
+ const char stringBIGgreater[] = " $>" ;
507
+ const char stringBIGlogand[] = " $logand" ;
508
+ const char stringBIGlogior[] = " $logior" ;
509
+ const char stringBIGlogxor[] = " $logxor" ;
510
+ const char stringBIGash[] = " $ash" ;
511
511
512
512
// Documentation strings
513
- const char docBIGbignum[] PROGMEM = " ($bignum int)\n "
513
+ const char docBIGbignum[] = " ($bignum int)\n "
514
514
" Converts an integer to a bignum and returns it." ;
515
- const char docBIGinteger[] PROGMEM = " ($integer bignum)\n "
515
+ const char docBIGinteger[] = " ($integer bignum)\n "
516
516
" Converts a bignum to an integer and returns it." ;
517
- const char docBIGbignumstring[] PROGMEM = " ($bignum-string bignum [base])\n "
517
+ const char docBIGbignumstring[] = " ($bignum-string bignum [base])\n "
518
518
" Converts a bignum to a string in base 10 (default) or 16 and returns it." ;
519
- const char docBIGstringbignum[] PROGMEM = " ($string-bignum bignum [base])\n "
519
+ const char docBIGstringbignum[] = " ($string-bignum bignum [base])\n "
520
520
" Converts a bignum to a string in the specified base (default 10) and returns it." ;
521
- const char docBIGzerop[] PROGMEM = " ($zerop bignum)\n "
521
+ const char docBIGzerop[] = " ($zerop bignum)\n "
522
522
" Tests whether a bignum is zero, allowing for trailing zeros." ;
523
- const char docBIGadd[] PROGMEM = " ($+ bignum1 bignum2)\n "
523
+ const char docBIGadd[] = " ($+ bignum1 bignum2)\n "
524
524
" Adds two bignums and returns the sum as a new bignum." ;
525
- const char docBIGsub[] PROGMEM = " ($- bignum1 bignum2)\n "
525
+ const char docBIGsub[] = " ($- bignum1 bignum2)\n "
526
526
" Subtracts two bignums and returns the difference as a new bignum." ;
527
- const char docBIGmul[] PROGMEM = " ($* bignum1 bignum2)\n "
527
+ const char docBIGmul[] = " ($* bignum1 bignum2)\n "
528
528
" Multiplies two bignums and returns the product as a new bignum." ;
529
- const char docBIGdiv[] PROGMEM = " ($/ bignum1 bignum2)\n "
529
+ const char docBIGdiv[] = " ($/ bignum1 bignum2)\n "
530
530
" Divides two bignums and returns the quotient as a new bignum." ;
531
- const char docBIGmod[] PROGMEM = " ($mod bignum1 bignum2)\n "
531
+ const char docBIGmod[] = " ($mod bignum1 bignum2)\n "
532
532
" Divides two bignums and returns the remainder as a new bignum." ;
533
- const char docBIGequal[] PROGMEM = " ($= bignum1 bignum2)\n "
533
+ const char docBIGequal[] = " ($= bignum1 bignum2)\n "
534
534
" Returns t if the two bignums are equal." ;
535
- const char docBIGless[] PROGMEM = " ($< bignum1 bignum2)\n "
535
+ const char docBIGless[] = " ($< bignum1 bignum2)\n "
536
536
" Returns t if bignum1 is less than bignum2." ;
537
- const char docBIGgreater[] PROGMEM = " ($> bignum1 bignum2)\n "
537
+ const char docBIGgreater[] = " ($> bignum1 bignum2)\n "
538
538
" Returns t if bignum1 is greater than bignum2." ;
539
- const char docBIGlogand[] PROGMEM = " ($logand bignum bignum)\n "
539
+ const char docBIGlogand[] = " ($logand bignum bignum)\n "
540
540
" Returns the logical AND of two bignums." ;
541
- const char docBIGlogior[] PROGMEM = " ($logior bignum bignum)\n "
541
+ const char docBIGlogior[] = " ($logior bignum bignum)\n "
542
542
" Returns the logical inclusive OR of two bignums." ;
543
- const char docBIGlogxor[] PROGMEM = " ($logxor bignum bignum)\n "
543
+ const char docBIGlogxor[] = " ($logxor bignum bignum)\n "
544
544
" Returns the logical exclusive OR of two bignums." ;
545
- const char docBIGash[] PROGMEM = " ($ash bignum shift)\n "
545
+ const char docBIGash[] = " ($ash bignum shift)\n "
546
546
" Returns bignum shifted by shift bits; positive means left." ;
547
547
548
548
// Symbol lookup table
549
- const tbl_entry_t BignumsTable[] PROGMEM = {
549
+ const tbl_entry_t BignumsTable[] = {
550
550
{ stringBIGbignum, fn_BIGbignum, MINMAX (FUNCTIONS, 1 , 1 ), docBIGbignum },
551
551
{ stringBIGinteger, fn_BIGinteger, MINMAX (FUNCTIONS, 1 , 1 ), docBIGinteger },
552
552
{ stringBIGbignumstring, fn_BIGbignumstring, MINMAX (FUNCTIONS, 1 , 2 ), docBIGbignumstring },
0 commit comments