Ver Fonte

* Workaround for compiler bug (not recognizing implicit function calls), fix missing semilcolon now being caught by compiler

michael há 7 anos atrás
pai
commit
fbbb273a36
1 ficheiros alterados com 2 adições e 2 exclusões
  1. 2 2
      packages/fcl-db/db.pas

+ 2 - 2
packages/fcl-db/db.pas

@@ -4656,7 +4656,7 @@ begin
 {$ifdef dsdebug}
       Writeln ('Trying to do it');
 {$endif dsdebug}
-      P;
+      P();
       exit;
     except
       On E : EDatabaseError do
@@ -4708,7 +4708,7 @@ begin
   If AValue=FDataProxy then
     exit;
   if Assigned(FDataProxy) then
-    FDataProxy.RemoveFreeNotification(Self)
+    FDataProxy.RemoveFreeNotification(Self);
   FDataProxy:=AValue;
   if Assigned(FDataProxy) then
     FDataProxy.FreeNotification(Self)