浏览代码

Fixed zero const issue.

woollybah 9 年之前
父节点
当前提交
0a7eccc0aa
共有 1 个文件被更改,包括 6 次插入1 次删除
  1. 6 1
      expr.bmx

+ 6 - 1
expr.bmx

@@ -426,7 +426,12 @@ Type TConstExpr Extends TExpr
 							b :+ 1
 							b :+ 1
 							i :+ 1
 							i :+ 1
 						Wend
 						Wend
-						value = String.FromBytes(buf, b)
+						
+						If leading0 Then
+							value = "0"
+						Else
+							value = String.FromBytes(buf, b)
+						End If
 					Else
 					Else
 						value = "0"
 						value = "0"
 					End If
 					End If