浏览代码

fixed derrons endrem at end of file bug report ?topic=103112

nitrologic 10 年之前
父节点
当前提交
ad61acaac1
共有 2 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      maxide.bmx
  2. 二进制
      monk.bmx

+ 1 - 1
maxide.bmx

@@ -4343,7 +4343,7 @@ Type TOpenCode Extends TToolPanel
 			If pos>src.length Exit	'fixed endrem on lastline overrun
 			p=src.FindLast("rem",src.length-pos)
 			If p=-1 Exit						
-			If isntalphanumeric(src[p+3]) And IsFirstCharOnLine(src,p) Return p			
+			If ( p>=src.length-3 Or isntalphanumeric(src[p+3]) ) And IsFirstCharOnLine(src,p) Return p			
 			pos=p-1
 		Wend
 		Return -1

二进制
monk.bmx