+ Some compatibility issues fixed

packages/base/mysql/mysql.pp

@@ -74,6 +74,7 @@ uses mysql_com;
             _type : enum_field_types;
          end;
        MYSQL_FIELD = st_mysql_field;
+       TMYSQL_FIELD = ^MYSQL_FIELD;
        PMYSQL_FIELD = ^MYSQL_FIELD;
   { was #define dname(params) para_def_expr }
   { argument types are unknown }
@@ -112,6 +113,7 @@ in define line 34 *)
 type
        PMYSQL_ROW = ^MYSQL_ROW;
        MYSQL_ROW = ppchar;
+       TMYSQL_ROW = MYSQL_ROW;
     { return data as array of strings  }
 
        PMYSQL_FIELD_OFFSET = ^MYSQL_FIELD_OFFSET;

packages/base/mysql/testdb.pp

@@ -23,7 +23,8 @@ begin
     DataBase:=@Dummy[1];
     end;
   Write ('Connecting to MySQL...');
-  sock :=  mysql_connect(PMysql(@qmysql),nil,nil,nil);
+  mysql_init(PMySQL(@qmysql));
+  sock :=  mysql_real_connect(PMysql(@qmysql),nil,'michael','geen',nil,0,nil,0);
   if sock=Nil then
     begin
     Writeln (stderr,'Couldn''t connect to MySQL.');
@@ -82,7 +83,10 @@ begin
   halt(0);
 end.
   $Log$
-  Revision 1.3  2002-09-07 15:42:53  peter
+  Revision 1.4  2004-09-28 19:08:09  michael
+  + Some compatibility issues fixed
+
+  Revision 1.3  2002/09/07 15:42:53  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/31 11:54:33  marco