paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 11:10:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

- reverted r11751, 11755 and 11759 because

Browse Source 
a) they should not be necessary and only hide the symptoms of a not
      understood bug on some platforms
   b) doing so breaks things on some other platforms

git-svn-id: trunk@11951 -
This commit is contained in:
Jonas Maebe 2008-10-23 14:22:00 +00:00
parent acf20fe7db
commit 0cad00fbdb
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-xml/src/xmlread.pp
View File

@ -964,7 +964,7 @@ begin
Move(OldBuf^, FCharBuf^, Remainder);
BytesRead := FStream.Read(FAllocated[Slack-4], FCapacity);
FCharBufEnd := FAllocated + (Slack-4) + BytesRead;
Unaligned(PWideChar(FCharBufEnd)^) := #0;
PWideChar(FCharBufEnd)^ := #0;
end;
{ TXMLFileInputSource }
@ -3000,9 +3000,9 @@ begin
Inc(FNesting);
if FNesting >= Length(FValidator) then
SetLength(FValidator, FNesting * 2);
unaligned(FValidator[FNesting].FElementDef) := aElDef;
unaligned(FValidator[FNesting].FCurCP) := nil;
unaligned(FValidator[FNesting].FFailed) := False;
FValidator[FNesting].FElementDef := aElDef;
FValidator[FNesting].FCurCP := nil;
FValidator[FNesting].FFailed := False;
UpdateConstraints;
end;