Răsfoiți Sursa

* parameter of tscannerfile.illegal_char renamed from 'c' to 'ch'

Nikolay Nikolov 2 zile în urmă
părinte
comite
afb01acf78
1 a modificat fișierele cu 6 adăugiri și 6 ștergeri
  1. 6 6
      compiler/scanner.pas

+ 6 - 6
compiler/scanner.pas

@@ -213,7 +213,7 @@ interface
           procedure gettokenpos;
           procedure inc_comment_level;
           procedure dec_comment_level;
-          procedure illegal_char(c:char);
+          procedure illegal_char(ch:char);
           procedure end_of_file;
           procedure checkpreprocstack;
           procedure poppreprocstack;
@@ -4298,15 +4298,15 @@ type
       end;
 
 
-    procedure tscannerfile.illegal_char(c:char);
+    procedure tscannerfile.illegal_char(ch:char);
       var
         s : string;
       begin
-        if c in [#32..#255] then
-          s:=''''+c+''''
+        if ch in [#32..#255] then
+          s:=''''+ch+''''
         else
-          s:='#'+tostr(ord(c));
-        Message2(scan_f_illegal_char,s,'$'+hexstr(ord(c),2));
+          s:='#'+tostr(ord(ch));
+        Message2(scan_f_illegal_char,s,'$'+hexstr(ord(ch),2));
       end;