Rev 7696 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7696 | Rev 7983 | ||
---|---|---|---|
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-2019, Anton Krotov |
4 | Copyright (c) 2018-2020, Anton Krotov |
5 | All rights reserved. |
5 | All rights reserved. |
Line 6... | Line 6... | ||
6 | *) |
6 | *) |
Line 7... | Line 7... | ||
7 | 7 | ||
Line 8... | Line 8... | ||
8 | MODULE ERRORS; |
8 | MODULE ERRORS; |
9 | 9 | ||
10 | IMPORT C := CONSOLE, UTILS, mConst := CONSTANTS; |
10 | IMPORT C := CONSOLE, UTILS; |
Line 71... | Line 71... | ||
71 | | 41: str := "not enough floating point registers; simplify expression" |
71 | | 41: str := "not enough floating point registers; simplify expression" |
72 | | 42: str := "out of range 0..255" |
72 | | 42: str := "out of range 0..255" |
73 | | 43: str := "expression is not an integer" |
73 | | 43: str := "expression is not an integer" |
74 | | 44: str := "out of range 0..MAXSET" |
74 | | 44: str := "out of range 0..MAXSET" |
75 | | 45: str := "division by zero" |
75 | | 45: str := "division by zero" |
76 | | 46: str := "integer division by zero" |
76 | | 46: str := "IV out of range" |
77 | | 47: str := "'OF' or ',' expected" |
77 | | 47: str := "'OF' or ',' expected" |
78 | | 48: str := "undeclared identifier" |
78 | | 48: str := "undeclared identifier" |
79 | | 49: str := "type expected" |
79 | | 49: str := "type expected" |
80 | | 50: str := "recursive type definition" |
80 | | 50: str := "recursive type definition" |
81 | | 51: str := "illegal value of constant" |
81 | | 51: str := "illegal value of constant" |
Line 135... | Line 135... | ||
135 | |105: str := "access to intermediate variables not allowed" |
135 | |105: str := "access to intermediate variables not allowed" |
136 | |106: str := "qualified identifier expected" |
136 | |106: str := "qualified identifier expected" |
137 | |107: str := "too large parameter of CHR" |
137 | |107: str := "too large parameter of CHR" |
138 | |108: str := "a variable or a procedure expected" |
138 | |108: str := "a variable or a procedure expected" |
139 | |109: str := "expression should be constant" |
139 | |109: str := "expression should be constant" |
140 | - | ||
- | 140 | |110: str := "out of range 0..65535" |
|
141 | |111: str := "record [noalign] cannot have a base type" |
141 | |111: str := "record [noalign] cannot have a base type" |
142 | |112: str := "record [noalign] cannot be a base type" |
142 | |112: str := "record [noalign] cannot be a base type" |
143 | |113: str := "result type of procedure should not be REAL" |
143 | |113: str := "result type of procedure should not be REAL" |
144 | |114: str := "identifiers 'lib_init' and 'version' are reserved" |
144 | |114: str := "identifiers 'lib_init' and 'version' are reserved" |
145 | |115: str := "recursive constant definition" |
145 | |115: str := "recursive constant definition" |
146 | |116: str := "procedure too deep nested" |
146 | |116: str := "procedure too deep nested" |
Line 147... | Line 147... | ||
147 | 147 | ||
148 | |120: str := "too many formal parameters" |
- | |
- | 148 | |120: str := "too many formal parameters" |
|
149 | 149 | |121: str := "multiply defined handler" |
|
150 | |122: str := "negative divisor" |
150 | |122: str := "bad divisor" |
151 | |123: str := "illegal flag" |
151 | |123: str := "illegal flag" |
152 | |124: str := "unknown flag" |
152 | |124: str := "unknown flag" |
153 | |125: str := "flag not supported" |
153 | |125: str := "flag not supported" |
154 | END; |
154 | END; |
Line 182... | Line 182... | ||
182 | END Error5; |
182 | END Error5; |
Line 183... | Line 183... | ||
183 | 183 | ||
184 | 184 | ||
185 | PROCEDURE WrongRTL* (ProcName: ARRAY OF CHAR); |
185 | PROCEDURE WrongRTL* (ProcName: ARRAY OF CHAR); |
186 | BEGIN |
186 | BEGIN |
Line 187... | Line 187... | ||
187 | Error5("procedure ", mConst.RTL_NAME, ".", ProcName, " not found") |
187 | Error5("procedure ", UTILS.RTL_NAME, ".", ProcName, " not found") |
188 | END WrongRTL; |
188 | END WrongRTL; |
Line 207... | Line 207... | ||
207 | |202: Error1("too many relocations") |
207 | |202: Error1("too many relocations") |
208 | |203: Error1("size of program is too large") |
208 | |203: Error1("size of program is too large") |
209 | |204: Error1("size of variables is too large") |
209 | |204: Error1("size of variables is too large") |
210 | |205: Error1("not enough parameters") |
210 | |205: Error1("not enough parameters") |
211 | |206: Error1("bad parameter |
211 | |206: Error1("bad parameter |
212 | |207: Error3('inputfile name extension must be "', mConst.FILE_EXT, '"') |
212 | |207: Error3('inputfile name extension must be "', UTILS.FILE_EXT, '"') |
213 | END |
213 | END |
214 | END Error; |
214 | END Error; |
Line 215... | Line 215... | ||
215 | 215 |