Subversion Repositories Kolibri OS

Rev

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

Rev 7110 Rev 7209
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2016, 2017 Anton Krotov
 2 
    Copyright 2016, 2017, 2018 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
4 
    This program is free software: you can redistribute it and/or modify
 4 
    This program is free software: you can redistribute it and/or modify
5 
    it under the terms of the GNU Lesser General Public License as published by
 5 
    it under the terms of the GNU Lesser General Public License as published by
6 
    the Free Software Foundation, either version 3 of the License, or
 6 
    the Free Software Foundation, either version 3 of the License, or
Line 245... Line 245...
245 
            END
 245 
            END
246 
        ELSE
 246 
        ELSE
247 
            res := 0
 247 
            res := 0
248 
        END
 248 
        END
249 
    END;
 249 
    END;
250 
    IF res # 0 THEN
 250 
    IF (res # 0) & (size <= MAX_SIZE) THEN
251 
        zeromem(ASR(size, 2) - 1, res)
 251 
        zeromem(ASR(size, 2) - 1, res)
252 
    END
 252 
    END
253 
    RETURN res
 253 
    RETURN res
254 
END __NEW;
 254 
END __NEW;