paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 21:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added a := operator from String to xmlCharPtr

Browse Source 
git-svn-id: trunk@12537 -
This commit is contained in:
ivost 2009-01-11 00:17:02 +00:00
parent d8827829d6
commit 2295667674
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -254,6 +254,8 @@ const
{$i xpointer.inc} {$i xpointer.inc}
{$UNDEF FUNCTION} {$UNDEF FUNCTION}
operator := (const S: String): xmlCharPtr; inline;
implementation implementation
procedure fpcxmlFree(mem: pointer); XMLCALL; procedure fpcxmlFree(mem: pointer); XMLCALL;
@ -307,6 +309,11 @@ begin
result := xmlCharPtr(PChar(str)); result := xmlCharPtr(PChar(str));
end; end;
operator := (const S: String): xmlCharPtr; inline;
begin
Result := xmlCharPtr(PChar(S));
end;
(* (*
* macros from chvalid.inc * macros from chvalid.inc