paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 04:10:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ put conditional define around UNIX port display for win32

Browse Source
This commit is contained in:
michael 1999-05-12 09:17:27 +00:00
parent bc903063c1
commit 0455538346
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/mysql/testdb.pp
View File

@ -32,8 +32,10 @@ begin
end;
Writeln ('Done.');
Writeln ('Connection data:');
{$ifdef linux}
writeln ('Mysql_port : ',mysql_port);
writeln ('Mysql_unix_port : ',mysql_unix_port);
{$endif}
writeln ('Host info : ',mysql_get_host_info(sock));
writeln ('Server info : ',mysql_stat(sock));
writeln ('Client info : ',mysql_get_client_info);