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

* 64 bit fixes

Browse Source
This commit is contained in:
florian 2004-11-02 23:33:32 +00:00
parent d9267aafdf
commit 0dbbb1aac0
3 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/base/mysql/mysql3.pp
View File

@ -156,11 +156,11 @@ st_mysql = Record
{$ifndef use_mysql_321}
server_status : cardinal;
{$endif}
thread_id : cardinal; { Id for connection in server }
thread_id : ptruint; { Id for connection in server }
affected_rows : my_ulonglong;
insert_id : my_ulonglong; { id if insert on table with NEXTNR }
extra_info : my_ulonglong; { Used by mysqlshow }
packet_length : cardinal;
packet_length : sizeint;
status : mysql_status;
fields : PMYSQL_FIELD;
field_alloc : TMEM_ROOT;
@ -186,7 +186,7 @@ st_mysql_res = record
field_alloc : TMEM_ROOT;
row : TMYSQL_ROW; { If unbuffered read }
current_row : TMYSQL_ROW; { buffer to current row }
lengths : pcardinal; { column lengths of current row }
lengths : psizeint; { column lengths of current row }
handle : PMYSQL; { for unbuffered reads }
eof : my_bool; { Used my mysql_fetch_row }
end;
@ -208,7 +208,7 @@ Function mysql_insert_id(mysql : PMYSQL): my_ulonglong;
Function mysql_errno(mysql : PMYSQL) : Cardinal;
Function mysql_info(mysql : PMYSQL): Pchar;
Function mysql_reload(mysql : PMYSQL) : Longint;
Function mysql_thread_id(mysql : PMYSQL) : Cardinal;
Function mysql_thread_id(mysql : PMYSQL) : ptruint;
Function mysql_error(mysql : PMYSQL) : pchar;
{ Original functions }
@ -368,7 +368,7 @@ begin
mysql_reload:=mysql_refresh(mysql,REFRESH_GRANT)
end;
Function mysql_thread_id(mysql : PMysql) : Cardinal;
Function mysql_thread_id(mysql : PMysql) : ptruint;
begin
mysql_thread_id:=mysql^.thread_id
@ -378,7 +378,10 @@ end.
{
$Log$
Revision 1.1 2004-09-30 19:34:47 michael
Revision 1.2 2004-11-02 23:33:32 florian
* 64 bit fixes
Revision 1.1 2004/09/30 19:34:47 michael
+ Split everything in version 3 and version 4
Revision 1.1 2004/09/28 18:38:23 michael

9
packages/base/mysql/mysql3_com.pp
View File

@ -29,7 +29,7 @@ Const mysqllib = 'mysqlclient';
Common definition between mysql server & client
}
{$packrecords 4}
{$packrecords c}
{ Extra types introduced for pascal }
Type
pbyte = ^byte;
@ -154,7 +154,7 @@ st_net = record
{$ifndef use_mysql_321}
no_send_ok : my_bool;
{$endif}
remain_in_buf,r_length, buf_length, where_b : cardinal; //DT
remain_in_buf,r_length, buf_length, where_b : ptruint; //DT
{$ifndef use_mysql_321}
return_status : ^Cardinal;
reading_or_writing : my_bool;
@ -290,7 +290,10 @@ function get_tty_password(opt_message: pchar) : pchar;stdcall;external;
end.
$Log$
Revision 1.1 2004-09-30 19:34:47 michael
Revision 1.2 2004-11-02 23:33:32 florian
* 64 bit fixes
Revision 1.1 2004/09/30 19:34:47 michael
+ Split everything in version 3 and version 4
Revision 1.1 2004/09/28 18:38:23 michael

7
packages/base/mysql/testdb3.pp
View File

@ -24,7 +24,7 @@ begin
DataBase:=@Dummy[1];
end;
Write ('Connecting to MySQL...');
sock := mysql_connect(PMysql(@qmysql),nil,'michael','geen');
sock := mysql_connect(PMysql(@qmysql),'cvs.freepascal.org','michael','geen');
if sock=Nil then
begin
Writeln (stderr,'Couldn''t connect to MySQL.');
@ -83,7 +83,10 @@ begin
halt(0);
end.
$Log$
Revision 1.1 2004-09-30 19:34:47 michael
Revision 1.2 2004-11-02 23:33:32 florian
* 64 bit fixes
Revision 1.1 2004/09/30 19:34:47 michael
+ Split everything in version 3 and version 4
Revision 1.4 2004/09/28 19:08:09 michael