Skip to content

Commit 769869d

Browse files
remove PROGMEM from extension files
1 parent 9711ac0 commit 769869d

File tree

2 files changed

+48
-48
lines changed

2 files changed

+48
-48
lines changed

bignums.hpp

Lines changed: 37 additions & 37 deletions
Original file line numberDiff line numberDiff line change
@@ -489,64 +489,64 @@ object* fn_BIGash (object* args, object* env) {
489489
}
490490

491491
// 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";
511511

512512
// Documentation strings
513-
const char docBIGbignum[] PROGMEM = "($bignum int)\n"
513+
const char docBIGbignum[] = "($bignum int)\n"
514514
"Converts an integer to a bignum and returns it.";
515-
const char docBIGinteger[] PROGMEM = "($integer bignum)\n"
515+
const char docBIGinteger[] = "($integer bignum)\n"
516516
"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"
518518
"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"
520520
"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"
522522
"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"
524524
"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"
526526
"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"
528528
"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"
530530
"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"
532532
"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"
534534
"Returns t if the two bignums are equal.";
535-
const char docBIGless[] PROGMEM = "($< bignum1 bignum2)\n"
535+
const char docBIGless[] = "($< bignum1 bignum2)\n"
536536
"Returns t if bignum1 is less than bignum2.";
537-
const char docBIGgreater[] PROGMEM = "($> bignum1 bignum2)\n"
537+
const char docBIGgreater[] = "($> bignum1 bignum2)\n"
538538
"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"
540540
"Returns the logical AND of two bignums.";
541-
const char docBIGlogior[] PROGMEM = "($logior bignum bignum)\n"
541+
const char docBIGlogior[] = "($logior bignum bignum)\n"
542542
"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"
544544
"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"
546546
"Returns bignum shifted by shift bits; positive means left.";
547547

548548
// Symbol lookup table
549-
const tbl_entry_t BignumsTable[] PROGMEM = {
549+
const tbl_entry_t BignumsTable[] = {
550550
{ stringBIGbignum, fn_BIGbignum, MINMAX(FUNCTIONS, 1, 1), docBIGbignum },
551551
{ stringBIGinteger, fn_BIGinteger, MINMAX(FUNCTIONS, 1, 1), docBIGinteger },
552552
{ stringBIGbignumstring, fn_BIGbignumstring, MINMAX(FUNCTIONS, 1, 2), docBIGbignumstring },

extensions.hpp

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -25,8 +25,8 @@ object* fn_now (object* args, object* env) {
2525
return cons(hours, cons(minutes, cons(seconds, nil)));
2626
}
2727

28-
const char stringnow[] PROGMEM = "now";
29-
const char docnow[] PROGMEM = "(now [hh mm ss])\n"
28+
const char stringnow[] = "now";
29+
const char docnow[] = "(now [hh mm ss])\n"
3030
"Sets the current time, or with no arguments returns the current time\n"
3131
"as a list of three integers (hh mm ss).";
3232

@@ -48,8 +48,8 @@ object* fn_gensym (object* args, object* env) {
4848
return result;
4949
}
5050

51-
const char stringgensym[] PROGMEM = "gensym";
52-
const char docgensym[] PROGMEM = "(gensym [prefix])\n"
51+
const char stringgensym[] = "gensym";
52+
const char docgensym[] = "(gensym [prefix])\n"
5353
"Returns a new symbol, optionally beginning with prefix (which must be a string).\n"
5454
"The returned symbol is guaranteed to not conflict with any existing bound symbol.";
5555

@@ -58,8 +58,8 @@ object* fn_intern (object* args, object* env) {
5858
return buftosymbol(cstring(checkstring(first(args)), b, BUFFERSIZE));
5959
}
6060

61-
const char stringintern[] PROGMEM = "intern";
62-
const char docintern[] PROGMEM = "(intern string)\n"
61+
const char stringintern[] = "intern";
62+
const char docintern[] = "(intern string)\n"
6363
"Creates a symbol, with the same name as the string.\n"
6464
"Unlike gensym, the returned symbol is not modified from the string in any way,\n"
6565
"and so it may be bound.";
@@ -77,8 +77,8 @@ object* fn_sizeof (object* args, object* env) {
7777
return number(count);
7878
}
7979

80-
const char stringsizeof[] PROGMEM = "sizeof";
81-
const char docsizeof[] PROGMEM = "(sizeof obj)\n"
80+
const char stringsizeof[] = "sizeof";
81+
const char docsizeof[] = "(sizeof obj)\n"
8282
"Returns the number of Lisp cells the object occupies in memory.";
8383

8484
void destructure (object* structure, object* data, object** env) {
@@ -106,13 +106,13 @@ object* sp_destructuring_bind (object* args, object* env) {
106106
return result;
107107
}
108108

109-
const char stringdestructuringbind[] PROGMEM = "destructuring-bind";
110-
const char docdestructuringbind[] PROGMEM = "(destructuring-bind structure data [forms*])\n\n"
109+
const char stringdestructuringbind[] = "destructuring-bind";
110+
const char docdestructuringbind[] = "(destructuring-bind structure data [forms*])\n\n"
111111
"Recursively assigns the datums of `data` to the symbols named in `structure`,\n"
112112
"and then evaluates forms in that new environment.";
113113

114114
// Symbol lookup table
115-
const tbl_entry_t ExtensionsTable[] PROGMEM = {
115+
const tbl_entry_t ExtensionsTable[] = {
116116
{ stringnow, fn_now, MINMAX(FUNCTIONS, 0, 3), docnow },
117117
{ stringgensym, fn_gensym, MINMAX(FUNCTIONS, 0, 1), docgensym },
118118
{ stringintern, fn_intern, MINMAX(FUNCTIONS, 1, 1), docintern },

0 commit comments

Comments
 (0)
pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy