Subversion Repositories Kolibri OS

Rev

Rev 8097 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8097 Rev 8859
Line 1... Line 1...
1 
(*
 1 
(*
2 
    BSD 2-Clause License
 2 
    BSD 2-Clause License
Line 3... Line 3...
3 
 
 3 
 
4 
    Copyright (c) 2018-2020, Anton Krotov
 4 
    Copyright (c) 2018-2021, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 23... Line 23...
23 
BEGIN
 23 
BEGIN
24 
    C.String("  warning ("); C.Int(line); C.String(":"); C.Int(col); C.String(") ");
 24 
    C.String("  warning ("); C.Int(line); C.String(":"); C.Int(col); C.String(") ");
25 
    CASE warning OF
 25 
    CASE warning OF
26 
    |0: C.StringLn("passing a string value as a fixed array")
 26 
    |0: C.StringLn("passing a string value as a fixed array")
27 
    |1: C.StringLn("endless FOR loop")
 27 
    |1: C.StringLn("endless FOR loop")
- 
 
 28 
    |2: C.StringLn("identifier too long")
28 
    END
 29 
    END
29 
END WarningMsg;
 30 
END WarningMsg;
Line 30... Line 31...
30 
 
 31 
 
Line 41... Line 42...
41 
    |  1: str := "missing 'H' or 'X'"
 42 
    |  1: str := "missing 'H' or 'X'"
42 
    |  2: str := "missing scale"
 43 
    |  2: str := "missing scale"
43 
    |  3: str := "unclosed string"
 44 
    |  3: str := "unclosed string"
44 
    |  4: str := "illegal character"
 45 
    |  4: str := "illegal character"
45 
    |  5: str := "string too long"
 46 
    |  5: str := "string too long"
46 
    |  6: str := "identifier too long"
 - 
 
- 
 
 47 
 
47 
    |  7: str := "number too long"
 48 
    |  7: str := "number too long"
48 
    |  8..12: str := "number too large"
 49 
    |  8..12: str := "number too large"
49 
    | 13: str := "real numbers not supported"
 50 
    | 13: str := "real numbers not supported"
Line 50... Line 51...
50 
 
 51