浏览代码

* fixed previous commit

git-svn-id: trunk@3195 -
Jonas Maebe 19 年之前
父节点
当前提交
76937d5222
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/globals.pas

+ 1 - 1
compiler/globals.pas

@@ -1976,7 +1976,7 @@ end;
         hs : string;
       begin
         result:=false;
-        if (hs = '') then
+        if (s = '') then
           exit;
         hs:=upper(s);
         if (hs = 'DEFAULT') then