Просмотр исходного кода

Fix the ~ is NOR rather than NOT

Jinyang He 2 лет назад
Родитель
Сommit
65f38d8133
1 измененных файлов с 8 добавлено и 1 удалено
  1. 8 1
      compiler/raatt.pas

+ 8 - 1
compiler/raatt.pas

@@ -828,13 +828,20 @@ unit raatt;
                  exit;
                  exit;
                end;
                end;
 
 
-             '!', '~' :
+             '!' :
                begin
                begin
                  actasmtoken:=AS_NOT;
                  actasmtoken:=AS_NOT;
                  c:=current_scanner.asmgetchar;
                  c:=current_scanner.asmgetchar;
                  exit;
                  exit;
                end;
                end;
 
 
+             '~' :
+               begin
+                 actasmtoken:=AS_NOR;
+                 c:=current_scanner.asmgetchar;
+                 exit;
+               end;
+
              '@' :
              '@' :
                begin
                begin
                  actasmtoken:=AS_AT;
                  actasmtoken:=AS_AT;