equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1988 by Claus Gittinger |
2 COPYRIGHT (c) 1988 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
5999 ! |
5997 ! |
6000 |
5998 |
6001 epochEndOSTime |
5999 epochEndOSTime |
6002 "private interface for timestamp to ask the OS what the maximum time |
6000 "private interface for timestamp to ask the OS what the maximum time |
6003 (in milliseconds since the Unix epoch, 1.1.1970) is. |
6001 (in milliseconds since the Unix epoch, 1.1.1970) is. |
6004 Unix systems will return 0x7FFFFFFF here; other OS's may return a higher number to indicate, |
6002 32bit Unix systems will return 0x7FFFFFFF here; other OS's may return a higher number to indicate, |
6005 that they can deal with timestamps after 2038 (especially: win32 will do so). |
6003 that they can deal with timestamps after 2038 (especially: win32 will do so). |
6006 Notice that timestamp is prepared to compensate for any OS limitation by computing the timeInfo |
6004 Notice that timestamp is prepared to compensate for any OS limitation by computing the timeInfo |
6007 components itself. |
6005 components itself. |
6008 So it is usually (except for a little performane) no problem to return a reange too small here." |
6006 So it is usually (except for a little performance) no problem to return a reange too small here." |
6009 |
6007 |
6010 ^ 16r7FFFFFFF * 1000 |
6008 ^ (SmallInteger maxVal * 2 + 1) * 1000 |
6011 ! |
6009 ! |
6012 |
6010 |
6013 epochStartOSTime |
6011 epochStartOSTime |
6014 "private interface for timestamp to ask the OS what the minimum time |
6012 "private interface for timestamp to ask the OS what the minimum time |
6015 (in milliseconds since the Unix epoch, 1.1.1970) is. |
6013 (in milliseconds since the Unix epoch, 1.1.1970) is. |