Subversion Repositories Kolibri OS

Rev

Rev 7696 | Go to most recent revision | 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