paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 02:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* explicit name imports for win32

Browse Source
This commit is contained in:
peter 2003-01-06 21:37:21 +00:00
parent 22fad8dc71
commit 116d2b3f53
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/test/cg/tprintf.pp
View File

@ -2,15 +2,20 @@
{$mode objfpc} {$mode objfpc}
uses
strings;
{$ifdef win32} {$ifdef win32}
{$linklib msvcrt} {$linklib msvcrt}
procedure printf(const formatstr : pchar; const args : array of const);cdecl; external name 'printf';
procedure sprintf(p : pchar;const formatstr : pchar; const args : array of const);cdecl; external name 'sprintf';
{$else} {$else}
{$linklib c} {$linklib c}
procedure printf(const formatstr : pchar; const args : array of const);cdecl; external;
procedure sprintf(p : pchar;const formatstr : pchar; const args : array of const);cdecl; external;
{$endif} {$endif}
uses
strings;
type type
THandle = longint; THandle = longint;
@ -25,9 +30,6 @@ const
p : pchar = nil; p : pchar = nil;
has_errors : boolean = false; has_errors : boolean = false;
procedure printf(const formatstr : pchar; const args : array of const);cdecl; external;
procedure sprintf(p : pchar;const formatstr : pchar; const args : array of const);cdecl; external;
begin begin
getmem(p,500); getmem(p,500);