Subversion Repositories Kolibri OS

Rev

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

Rev 7597 Rev 7693
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, Anton Krotov
 4 
    Copyright (c) 2018, 2019, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 134... Line 134...
134 
 
 134 
 
135 
 
 135 
 
136 
    PROCEDURE SetNumberOfRelocations (VAR section: SH; NumberOfRelocations: INTEGER);
 136 
    PROCEDURE SetNumberOfRelocations (VAR section: SH; NumberOfRelocations: INTEGER);
137 
    BEGIN
 137 
    BEGIN
138 
        IF NumberOfRelocations >= 65536 THEN
 138 
        IF NumberOfRelocations >= 65536 THEN
139 
            ERRORS.error1("too many relocations")
 139 
            ERRORS.Error(202)
140 
        END;
 140 
        END;