瀏覽代碼

* fixed bootstrapping with 2.0.x

git-svn-id: trunk@3473 -
florian 19 年之前
父節點
當前提交
34176d3d9a
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      rtl/objpas/sysutils/datih.inc

+ 2 - 1
rtl/objpas/sysutils/datih.inc

@@ -78,7 +78,8 @@ const
    }
 
 type
-{$ifndef windows}
+{ windows isn't defined in 2.0.2 (FK) }
+{$if not(defined(windows)) and not(defined(win32))}
    { Win32 reuses the struct from the Windows unit }
    TSystemTime = record
       Year, Month, Day: word;