paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 12:26:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* dom.pp: fixed one possible reason of crashing in Delphi 2009

Browse Source 
* xmlutils.pp: clean up

git-svn-id: trunk@13604 -
This commit is contained in:
sergei 2009-08-29 18:11:08 +00:00
parent f853ac4c63
commit e9e6439345
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-xml/src/dom.pp
View File

@ -3217,7 +3217,7 @@ begin
if Pointer(FCurrBlock) = Pointer(FCurrExtent) + sizeof(TExtent) then
AddExtent(FCurrExtentSize * 2);
Result := FCurrBlock;
Dec(PChar(FCurrBlock), FElementSize);
Dec(PAnsiChar(FCurrBlock), FElementSize);
end;
AClass.InitInstance(Result);
Result.FPool := Self; // mark as used

11
packages/fcl-xml/src/xmlutils.pp
View File

@ -55,7 +55,7 @@ type
FBucketCount: LongWord;
FBucket: PPHashItem;
FOwnsObjects: Boolean;
function Lookup(Key: PWideChar; KeyLength: Integer; var Found: Boolean; CanCreate: Boolean): PHashItem;
function Lookup(Key: PWideChar; KeyLength: Integer; out Found: Boolean; CanCreate: Boolean): PHashItem;
procedure Resize(NewCapacity: LongWord);
public
constructor Create(InitSize: Integer; OwnObjects: Boolean);
@ -73,7 +73,6 @@ type
{ another hash, for detecting duplicate namespaced attributes without memory allocations }
PWideString = ^WideString;
PExpHashEntry = ^TExpHashEntry;
TExpHashEntry = record
rev: LongWord;
@ -129,7 +128,7 @@ begin
Result := Xml11Pg;
end;
function IsXml11Char(Value: PWideChar; var Index: Integer): Boolean; overload;
function IsXml11Char(Value: PWideChar; var Index: Integer): Boolean;
begin
if (Value[Index] >= #$D800) and (Value[Index] <= #$DB7F) then
begin
@ -140,7 +139,7 @@ begin
Result := False;
end;
function IsXml11Char(const Value: WideString; var Index: Integer): Boolean; overload;
function IsXml11Char(const Value: WideString; var Index: Integer): Boolean;
begin
if (Value[Index] >= #$D800) and (Value[Index] <= #$DB7F) then
begin
@ -156,7 +155,7 @@ begin
Result := IsXmlName(PWideChar(Value), Length(Value), Xml11);
end;
function IsXmlName(Value: PWideChar; Len: Integer; Xml11: Boolean = False): Boolean; overload;
function IsXmlName(Value: PWideChar; Len: Integer; Xml11: Boolean = False): Boolean;
var
Pages: PByteArray;
I: Integer;
@ -424,7 +423,7 @@ begin
end;
function THashTable.Lookup(Key: PWideChar; KeyLength: Integer;
var Found: Boolean; CanCreate: Boolean): PHashItem;
out Found: Boolean; CanCreate: Boolean): PHashItem;
var
Entry: PPHashItem;
h: LongWord;