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

* fixed bug with xmlxsdparser.pas (typo). It was introduced by r16873

Browse Source 
git-svn-id: trunk@16878 -
This commit is contained in:
ivost 2011-02-04 19:26:48 +00:00
parent 7cb1c8b586
commit b31c87a134
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/libxml/src/xmlxsdparser.pas
View File

@ -24,10 +24,15 @@ resourcestring
SXsdParserError = 'parsing "%s" as "%s" failed'; SXsdParserError = 'parsing "%s" as "%s" failed';
type type
{$IFDEF MSWINDOWS}
PBoolean = System.PBoolean;
// PBoolean is redefined by windows unit, so redefine it here again!
{$ENDIF}
TXsdTimezoneType = ( TXsdTimezoneType = (
tzUNKNOWN, tzUnknown,
tzLOCAL, tzLocal,
tzUTC tzUtc
); );
PXsdTimezone = ^TXsdTimezone; PXsdTimezone = ^TXsdTimezone;
@ -422,7 +427,7 @@ begin
case GetTimeZoneInformation(TZInfo) of case GetTimeZoneInformation(TZInfo) of
1: Offset := -TZInfo.Bias - TZInfo.StandardBias; 1: Offset := -TZInfo.Bias - TZInfo.StandardBias;
2: Offset := -TZInfo.Bias - TZInfo.DaylightBias; 2: Offset := -TZInfo.Bias - TZInfo.DaylightBias;
else Result.Kind := tz; else Result.Kind := tzUnknown;
end; end;
{$ENDIF} {$ENDIF}
Result.Hour := Offset div 60; Result.Hour := Offset div 60;