浏览代码

* Minor bugfix in $IFOPT

olle 21 年之前
父节点
当前提交
bb684d007d
共有 1 个文件被更改,包括 5 次插入1 次删除
  1. 5 1
      compiler/scanner.pas

+ 5 - 1
compiler/scanner.pas

@@ -308,6 +308,7 @@ implementation
         found : boolean;
         state : char;
       begin
+        found:= false;
         current_scanner.skipspace;
         hs:=current_scanner.readid;
         if (length(hs)>1) then
@@ -3266,7 +3267,10 @@ exit_label:
 end.
 {
   $Log$
-  Revision 1.87  2004-08-22 23:16:06  olle
+  Revision 1.88  2004-09-12 20:46:58  olle
+    * Minor bugfix in $IFOPT
+
+  Revision 1.87  2004/08/22 23:16:06  olle
     + added flag to TMacro denoting mac style compiler variable
     * fixed $DEFINEC
     * improved robustness of macro facility