Bläddra i källkod

* call mysql_init

fpc 20 år sedan
förälder
incheckning
f8849f9396
1 ändrade filer med 1 tillägg och 0 borttagningar
  1. 1 0
      tests/utils/dbtests.pp

+ 1 - 0
tests/utils/dbtests.pp

@@ -72,6 +72,7 @@ begin
 {$ifdef ver1_0}  
   Result:=mysql_connect(@Connection,PChar(Host),PChar(User),PChar(Password))<>Nil;
 {$else}  
+  mysql_init(@Connection);
   Result:=mysql_real_connect(@Connection,PChar(Host),PChar(User),PChar(Password),Nil,0,Nil,0)<>Nil;
 {$endif}  
   If Not Result then