Rev 7696 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7696 | Rev 7983 | ||
|---|---|---|---|
| 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, 2020, Anton Krotov |
| 5 | All rights reserved. |
5 | All rights reserved. |
| Line 6... | Line 6... | ||
| 6 | *) |
6 | *) |
| Line 316... | Line 316... | ||
| 316 | PROCEDURE GetTickCount* (): INTEGER; |
316 | PROCEDURE GetTickCount* (): INTEGER; |
| 317 | RETURN K.sysfunc2(26, 9) * 10 |
317 | RETURN K.sysfunc2(26, 9) * 10 |
| 318 | END GetTickCount; |
318 | END GetTickCount; |
| Line -... | Line 319... | ||
| - | 319 | ||
| - | 320 | ||
| - | 321 | PROCEDURE dllentry* (hinstDLL, fdwReason, lpvReserved: INTEGER): INTEGER; |
|
| - | 322 | RETURN 0 |
|
| - | 323 | END dllentry; |
|
| - | 324 | ||
| - | 325 | ||
| - | 326 | PROCEDURE sofinit*; |
|
| - | 327 | END sofinit; |
|
| 319 | 328 | ||