forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixup 9f22e42fff and 0923410ffc

This commit is contained in:
Basile Burg 2020-03-11 12:44:06 +01:00
parent 9f22e42fff
commit 0730394875
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/u_dlang.pas
View File

@ -1071,7 +1071,6 @@ var
t: PLexToken; t: PLexToken;
i: integer; i: integer;
p: integer = 0; p: integer = 0;
s: integer = 0;
begin begin
result := Point(0,0); result := Point(0,0);
i := getIndexOfTokenAt(tokens, caretPos) + 1; i := getIndexOfTokenAt(tokens, caretPos) + 1;

5
src/u_synmemo.pas
View File

@ -538,6 +538,7 @@ var
a: string; a: string;
b: string; b: string;
i: integer = 0; i: integer = 0;
j: integer = 0;
x: integer; x: integer;
y: integer; y: integer;
r: TStringRange = (ptr:nil; pos:0; len: 0); r: TStringRange = (ptr:nil; pos:0; len: 0);
@ -588,11 +589,13 @@ begin
// so fix the formatting and go back. // so fix the formatting and go back.
else if r.empty() then else if r.empty() then
begin begin
if i > 128 then if j > 128 then
exit; exit;
b := '%FIX% ' + b; b := '%FIX% ' + b;
j += 1;
goto FIXED_AUTO; goto FIXED_AUTO;
end; end;
j := 0;
// func args // func args
while not r.empty do while not r.empty do
begin begin