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

* fixed the varargs warnings of libxml2

Browse Source 
git-svn-id: trunk@12544 -
This commit is contained in:
ivost 2009-01-13 15:36:17 +00:00
parent f05d9eb6d8
commit 3d8388fd22
7 changed files with 12 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/libxml/src/libxml2.pas
View File

@ -275,11 +275,6 @@ begin
ReallocMem(Result, size);
end;
procedure fpcxmlGenericErrorHandler(ctx: pointer; msg: pchar; args: array of const); XMLCDECL;
begin
writeln(msg);
end;
procedure fpcxmlStructuredErrorHandler(userData: pointer; error: xmlErrorPtr); XMLCALL;
begin
writeln('struct error');

6
packages/libxml/src/parser.inc
View File

@ -565,7 +565,7 @@
*
* Display and format a warning messages, callback.
*)
warningSAXFunc = procedure(ctx: pointer; msg: pchar; args: array of const); XMLCDECL;
warningSAXFunc = procedure(ctx: pointer; msg: pchar); XMLCDECL; varargs;
(**
* errorSAXFunc:
@ -575,7 +575,7 @@
*
* Display and format an error messages, callback.
*)
errorSAXFunc = procedure(ctx: pointer; msg: pchar; args: array of const); XMLCDECL;
errorSAXFunc = procedure(ctx: pointer; msg: pchar); XMLCDECL; varargs;
(**
* fatalErrorSAXFunc:
@ -587,7 +587,7 @@
* Note: so far fatalError() SAX callbacks are not used, error()
* get all the callbacks for errors.
*)
fatalErrorSAXFunc = procedure(ctx: pointer; msg: pchar; args: array of const); XMLCDECL;
fatalErrorSAXFunc = procedure(ctx: pointer; msg: pchar); XMLCDECL; varargs;
(**
* isStandaloneSAXFunc:

4
packages/libxml/src/relaxng.inc
View File

@ -22,8 +22,8 @@
(**
* A schemas validation context
*)
xmlRelaxNGValidityErrorFunc = procedure(ctx: pointer; msg: pchar; args: array of const); XMLCDECL;
xmlRelaxNGValidityWarningFunc = procedure(ctx: pointer; msg: pchar; args: array of const); XMLCDECL;
xmlRelaxNGValidityErrorFunc = procedure(ctx: pointer; msg: pchar); XMLCDECL; varargs;
xmlRelaxNGValidityWarningFunc = procedure(ctx: pointer; msg: pchar); XMLCDECL; varargs;
xmlRelaxNGParserCtxt = record end;

4
packages/libxml/src/schematron.inc
View File

@ -36,8 +36,8 @@
(**
* A schemas validation context
*)
xmlSchematronValidityErrorFunc = procedure(ctx: pointer; msg: pchar; args: array of const); XMLCDECL;
xmlSchematronValidityWarningFunc = procedure(ctx: pointer; msg: pchar; args: array of const); XMLCDECL;
xmlSchematronValidityErrorFunc = procedure(ctx: pointer; msg: pchar); XMLCDECL; varargs;
xmlSchematronValidityWarningFunc = procedure(ctx: pointer; msg: pchar); XMLCDECL; varargs;
xmlSchematronParserCtxt = record end;

4
packages/libxml/src/valid.inc
View File

@ -34,7 +34,7 @@
* Callback called when a validity error is found. This is a message
* oriented function similar to an *printf function.
*)
xmlValidityErrorFunc = procedure(ctx: pointer; msg: pchar; args: array of const); XMLCDECL;
xmlValidityErrorFunc = procedure(ctx: pointer; msg: pchar); XMLCDECL; varargs;
(**
* xmlValidityWarningFunc:
@ -47,7 +47,7 @@
* Callback called when a validity warning is found. This is a message
* oriented function similar to an *printf function.
*)
xmlValidityWarningFunc = procedure(ctx: pointer; msg: pchar; args: array of const); XMLCDECL;
xmlValidityWarningFunc = procedure(ctx: pointer; msg: pchar); XMLCDECL; varargs;
(*
* xmlValidCtxt:

2
packages/libxml/src/xmlerror.inc
View File

@ -829,7 +829,7 @@
* Signature of the function to use when there is an error and
* no parsing or validity context available .
*)
xmlGenericErrorFunc = procedure(ctx: pointer; msg: pchar; args: array of const); XMLCDECL;
xmlGenericErrorFunc = procedure(ctx: pointer; msg: pchar); XMLCDECL; varargs;
(**
* xmlStructuredErrorFunc:

4
packages/libxml/src/xmlschemas.inc
View File

@ -86,8 +86,8 @@
(**
* A schemas validation context
*)
xmlSchemaValidityErrorFunc = procedure(ctx: pointer; msg: pchar; args: array of const); XMLCDECL;
xmlSchemaValidityWarningFunc = procedure(ctx: pointer; msg: pchar; args: array of const); XMLCDECL;
xmlSchemaValidityErrorFunc = procedure(ctx: pointer; msg: pchar); XMLCDECL; varargs;
xmlSchemaValidityWarningFunc = procedure(ctx: pointer; msg: pchar); XMLCDECL; varargs;
xmlSchemaParserCtxt = record end;