diff options
| author | ivost <ivost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-01-11 00:17:02 +0000 |
|---|---|---|
| committer | ivost <ivost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-01-11 00:17:02 +0000 |
| commit | c911fdc1a85f4faae2d5771d45b4340186aa353b (patch) | |
| tree | 06c8f903e6a14455f6cb71bdb846b439fd188f50 /packages/libxml | |
| parent | e6cdf3f6ba6bd96351bf1b563342f2dafbed0e4f (diff) | |
| download | fpc-c911fdc1a85f4faae2d5771d45b4340186aa353b.tar.gz | |
* added a := operator from String to xmlCharPtr
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@12537 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/libxml')
| -rw-r--r-- | packages/libxml/src/libxml2.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/packages/libxml/src/libxml2.pas b/packages/libxml/src/libxml2.pas index d27d1acbc9..2a753d064c 100644 --- a/packages/libxml/src/libxml2.pas +++ b/packages/libxml/src/libxml2.pas @@ -254,6 +254,8 @@ const {$i xpointer.inc} {$UNDEF FUNCTION} +operator := (const S: String): xmlCharPtr; inline; + implementation procedure fpcxmlFree(mem: pointer); XMLCALL; @@ -307,6 +309,11 @@ begin result := xmlCharPtr(PChar(str)); end; +operator := (const S: String): xmlCharPtr; inline; +begin + Result := xmlCharPtr(PChar(S)); +end; + (* * macros from chvalid.inc |