Subversion Repositories Kolibri OS

Rev

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

Rev 6613 Rev 7107
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2016 Anton Krotov
 2 
    Copyright 2016, 2017 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
Line 4... Line 4...
4 
    This file is part of Compiler.
 4 
    This file is part of Compiler.
5 
 
 5 
 
Line 26... Line 26...
26 
  OS* = H.OS;
 26 
  OS* = H.OS;
27 
  Slash* = H.Slash;
 27 
  Slash* = H.Slash;
28 
  Ext* = ".ob07";
 28 
  Ext* = ".ob07";
29 
  MAX_PATH = 1024;
 29 
  MAX_PATH = 1024;
30 
  MAX_PARAM = 1024;
 30 
  MAX_PARAM = 1024;
31 
  Date* = 1451606400; (* 2016-01-01 *)
 31 
  Date* = 1509580800;  (* 2017-11-02 *)
Line 32... Line 32...
32 
 
 32 
 
Line 33... Line 33...
33 
TYPE
 33 
TYPE
Line 197... Line 197...
197 
BEGIN
 197 
BEGIN
198 
  Unit := newUnit;
 198 
  Unit := newUnit;
199 
  Line := newLine
 199 
  Line := newLine
200 
END UnitLine;
 200 
END UnitLine;
Line 201... Line -...
201 
 
 - 
 
202 
PROCEDURE min*(a, b: INTEGER): INTEGER;
 - 
 
203 
BEGIN
 - 
 
204 
  IF a > b THEN
 - 
 
205 
    a := b
 - 
 
206 
  END
 - 
 
207 
  RETURN a
 - 
 
208 
END min;
 - 
 
209 
 
 201 
 
210 
PROCEDURE Align*(n: INTEGER): INTEGER;
 202 
PROCEDURE Align*(n: INTEGER): INTEGER;
211 
  RETURN (4 - n MOD 4) MOD 4
 203 
  RETURN (4 - n MOD 4) MOD 4
Line 212... Line 204...
212 
END Align;
 204 
END Align;