paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 09:18:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

AggPas: Simplified XML parsing code and removed horrible gotos. Patch from Anton Kavalenka, issue #40997.

Browse Source 
This change also allows to workaround the following FPC 3.3.1 issue:
https://gitlab.com/freepascal.org/fpc/source/-/issues/40765
This commit is contained in:
Maxim Ganetsky 2024-06-23 17:40:56 +03:00
parent 83675a15d8
commit 04a06d06cc
1 changed files with 16 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
components/aggpas/expat-pas/xmlparse.inc
View File

@ -872,33 +872,15 @@ end;
{ poolCopyString }
function poolCopyString(pool : STRING_POOL_ptr; s : XML_Char_ptr ) : XML_Char_ptr;
label
_w0 ;
begin
goto _w0;
while s^ <> XML_Char(0 ) do
begin
_w0:
if poolAppendChar(pool ,s^ ) = 0 then
begin
result:=NIL;
exit;
end;
repeat
if (poolAppendChar(pool, s^)=0) then
exit(nil);
inc(ptrcomp(s ) ,sizeof(XML_Char ) );
end;
until s^ = XML_Char(0 );
s := pool.start;
poolFinish(pool);
result:=s;
end;
{ poolAppendString {..}
@ -1376,10 +1358,6 @@ var
da : DEFAULT_ATTRIBUTE_ptr;
p : TAG_ptr;
label
_w0 ,_w1 ;
begin
uri:=nil;
dtd:=parser.m_dtd; { save one level of indirection }
@ -1796,26 +1774,16 @@ begin
while s^ <> XML_T(':' ) do
inc(ptrcomp(s ) ,sizeof(XML_Char ) );
goto _w0;
while s^ <> XML_Char(0 ) do { copies null terminator }
begin
_w0:
repeat
c:=s^;
if poolAppendChar(@parser.m_tempPool ,s^ ) = 0 then
begin
result:=XML_ERROR_NO_MEMORY;
exit;
end;
uriHash:=CHAR_HASH(uriHash ,c );
inc(ptrcomp(s ) ,sizeof(XML_Char ) );
end;
until s^ = XML_Char(0 );
{ Check hash table for duplicate of expanded name (uriName).
Derived from code in lookup(HASH_TABLE *table, ...). }
@ -1866,23 +1834,14 @@ begin
s:=b.prefix.name;
goto _w1;
while s^ <> XML_Char(0 ) do
begin
_w1:
repeat
if poolAppendChar(@parser.m_tempPool ,s^ ) = 0 then
begin
result:=XML_ERROR_NO_MEMORY;
exit;
end;
inc(ptrcomp(s ) ,sizeof(XML_Char ) );
end;
until s^ = XML_Char(0 );
end;
{ store expanded name in attribute list }