diff options
| author | ivost <ivost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-02-04 19:26:48 +0000 |
|---|---|---|
| committer | ivost <ivost@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-02-04 19:26:48 +0000 |
| commit | ad9881e41f56b391773a69a4c3863e0554b2fe7f (patch) | |
| tree | 97522593c9c618bcecfcdecc01846561ee7c4f6f /packages/libxml | |
| parent | 821c3f39a60f4fab63f89e64133424f3848b79a5 (diff) | |
| download | fpc-ad9881e41f56b391773a69a4c3863e0554b2fe7f.tar.gz | |
* fixed bug with xmlxsdparser.pas (typo). It was introduced by r16873
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16878 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/libxml')
| -rw-r--r-- | packages/libxml/src/xmlxsdparser.pas | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/packages/libxml/src/xmlxsdparser.pas b/packages/libxml/src/xmlxsdparser.pas index 847cf9a284..9a2750e7ab 100644 --- a/packages/libxml/src/xmlxsdparser.pas +++ b/packages/libxml/src/xmlxsdparser.pas @@ -24,10 +24,15 @@ resourcestring SXsdParserError = 'parsing "%s" as "%s" failed'; type +{$IFDEF MSWINDOWS} + PBoolean = System.PBoolean; + // PBoolean is redefined by windows unit, so redefine it here again! +{$ENDIF} + TXsdTimezoneType = ( - tzUNKNOWN, - tzLOCAL, - tzUTC + tzUnknown, + tzLocal, + tzUtc ); PXsdTimezone = ^TXsdTimezone; @@ -422,7 +427,7 @@ begin case GetTimeZoneInformation(TZInfo) of 1: Offset := -TZInfo.Bias - TZInfo.StandardBias; 2: Offset := -TZInfo.Bias - TZInfo.DaylightBias; - else Result.Kind := tz; + else Result.Kind := tzUnknown; end; {$ENDIF} Result.Hour := Offset div 60; |
