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 |