Explorar el Código

* Fix AV when parsing list

Michaël Van Canneyt hace 2 semanas
padre
commit
501226c0f4
Se han modificado 1 ficheros con 4 adiciones y 1 borrados
  1. 4 1
      packages/fcl-md/src/markdown.processors.pas

+ 4 - 1
packages/fcl-md/src/markdown.processors.pas

@@ -642,7 +642,10 @@ var
 begin
   lOldLastList:=FLastList;
   if inList(aParent.blocks, true, FMarker, Findent, 2, lList) then
-    lList.lastIndent:=FIndent
+    begin
+    lList.lastIndent:=FIndent;
+    FLastList:=lList;
+    end
   else
     begin
     lList:=TMarkDownListBlock.Create(aParent,aLine.LineNo);