* assume callback is cdecl

git-svn-id: trunk@17966 -

packages/gdbm/src/gdbm.pp

@@ -89,8 +89,7 @@ type
   end;
   PGDBM_FILE = ^TGDBM_FILE;
 
-  TGDBMErrorCallBack = Procedure;
-
+  TGDBMErrorCallBack = Procedure; cdecl;
 
 
 var