paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 14:19:31 +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';
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;