tsl

更新动态库
2023-07-11 16:05:14 +08:00
parent 33f5e8a47d
commit dfc015ea12
5 changed files with 13 additions and 2 deletions
@@ -227,6 +227,7 @@ type tslparser = class(tslparserbase) //
                while true do
                begin
                    ctoken(tk,tp,pos);
+                    if ifnil(tk) then break;
                    if tk=")" then 
                    begin
                        r["inheritedendpos"] := pos;
@@ -280,11 +281,12 @@ type tslparser = class(tslparserbase) //
                    while true do
                    begin
                        ctoken(tk,tp,pos);
+                        if ifnil(tk) then break;
                        if tp=TT_IDE then
                        begin
                            pu[length(pu)]:= tk;
                        end else
-                        if tk=";" then break;
+                            if tk=";" then break;
                    end
                    r["uses"]:= array("row":row,"beg":usb,"end":pos,"info":pu);
                end else
@@ -499,6 +501,7 @@ type tslparser = class(tslparserbase) //
        if tk <> "(" then fn := tk;
        while true do
        begin
+            if ifnil(tk) then break;
            if tk="begin" then
            begin
                //return parserstatement();