Subversion Repositories Kolibri OS

Rev

Rev 8859 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8859 Rev 9847
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-2021, Anton Krotov
 4 
    Copyright (c) 2018-2022, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 152... Line 152...
152 
    |121: str := "multiply defined handler"
 152 
    |121: str := "multiply defined handler"
153 
    |122: str := "bad divisor"
 153 
    |122: str := "bad divisor"
154 
    |123: str := "illegal flag"
 154 
    |123: str := "illegal flag"
155 
    |124: str := "unknown flag"
 155 
    |124: str := "unknown flag"
156 
    |125: str := "flag not supported"
 156 
    |125: str := "flag not supported"
- 
 
 157 
    |126: str := "type of formal parameter should not be REAL"
157 
    END;
 158 
    END;
158 
    C.StringLn(str);
 159 
    C.StringLn(str);
159 
    C.String("  file:  ");  C.StringLn(fname);
 160 
    C.String("  file:  ");  C.StringLn(fname);
160 
    UTILS.Exit(1)
 161 
    UTILS.Exit(1)
161 
END ErrorMsg;
 162 
END ErrorMsg;