blob: 5a14af97d5f00bc9f845e9610ac8992a310f7696 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
unit uprintf3;
{$mode macpas}
interface
{$calling mwpascal}
{$ifdef WINDOWS}
const
{$ifdef wince}
CrtLib = 'coredll.dll';
{$else}
CrtLib = 'msvcrt.dll';
{$endif}
procedure printf(const formatstr : pchar; ...); external CrtLib name 'printf';
procedure sprintf(p : pchar;const formatstr : pchar; ...); external CrtLib name 'sprintf';
const
int64prefix='I64';
{$else}
{$linklib c}
procedure printf(const formatstr : pchar; ...); external;
procedure sprintf(p : pchar;const formatstr : pchar; ...); external;
const
int64prefix='ll';
{$endif}
end.
|
