Some fixes

1996-11-19 09:12:36 +00:00
parent d0587ef3ab
commit 322c1c1b4c
2 changed files with 10 additions and 2 deletions
--- a/lang/m2/comp/LLlex.c
+++ b/lang/m2/comp/LLlex.c
@@ -528,7 +528,15 @@ lexwarning(W_ORDINARY, "character constant out of range");
 					CheckForLet();
 					return tk->tk_symb = INTEGER;
 				}
-				if (ch == 'D' && base == 10) {
+				if (options['l']) {
+					if (base != 10) {
+						LoadChar(ch);
+						if (ch != 'D') {
+							PushBack();
+						}
+					}
+				}
+				if (ch == 'D' && (options['l'] || base == 10)) {
 				    if (options['l']) {
 					/* Local extension: LONGCARD exists,
 					   so internally also longintorcard_type