Skip to content

Commit 76107e3

Browse files
authored
Merge pull request #435 from mkilgore/replace-const-element
Redo CONST evaluation and use the element string directly.
2 parents 0122c6c + 5850025 commit 76107e3

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

58 files changed

+4206
-2621
lines changed

source/global/constants.bas

+3
Original file line numberDiff line numberDiff line change
@@ -60,3 +60,6 @@ CONST KEY_TAB = 9
6060
DIM SHARED CHR_QUOTE AS STRING: CHR_QUOTE = CHR$(34)
6161
DIM SHARED CHR_TAB AS STRING: CHR_TAB = CHR$(9)
6262
DIM SHARED CRLF AS STRING: CRLF = CHR$(13) + CHR$(10) 'carriage return+line feed
63+
64+
DIM SHARED OS_BITS AS LONG
65+
OS_BITS = 64: IF INSTR(_OS$, "[32BIT]") THEN OS_BITS = 32

source/ide/ide_methods.bas

+2-1
Original file line numberDiff line numberDiff line change
@@ -5461,8 +5461,9 @@ FUNCTION ide2 (ignore)
54615461
retval$ = ideinputbox$("Math Evaluator", "#Enter expression", mathEvalExpr$, "", 60, 0, 0)
54625462
result = 0
54635463
IF LEN(retval$) THEN
5464+
Dim num As ParseNum
54645465
mathEvalExpr$ = retval$
5465-
ev0$ = Evaluate_Expression$(retval$)
5466+
ev0$ = Evaluate_Expression$(retval$, num)
54665467
ev$ = ev0$
54675468
mathEvalError%% = INSTR(ev$, "ERROR") > 0
54685469
IF mathEvalError%% = 0 AND mathEvalHEX%% THEN ev$ = "&H" + HEX$(VAL(ev$))

0 commit comments

Comments
 (0)