We planned to upgrade GitLab and Mattermost to the latest version this Friday morning (early). You may experience some downtime!

Commit e1b3752c authored by John van Groningen's avatar John van Groningen

remove unused field dcl_date

parent 68197a96
...@@ -16,7 +16,6 @@ from PmAbcMagic import :: ABCCache, :: ABCOptions ...@@ -16,7 +16,6 @@ from PmAbcMagic import :: ABCCache, :: ABCOptions
, seq_stack :: !Bool // sequential code & stack info? , seq_stack :: !Bool // sequential code & stack info?
, version :: !Int , version :: !Int
, abcOptions :: !ABCOptions , abcOptions :: !ABCOptions
, dcldate :: !DATE
, icldate :: !DATE , icldate :: !DATE
, abcdate :: !DATE , abcdate :: !DATE
, objdate :: !DATE , objdate :: !DATE
......
...@@ -22,7 +22,6 @@ import PmAbcMagic ...@@ -22,7 +22,6 @@ import PmAbcMagic
, seq_stack :: !Bool // sequential code & stack info? , seq_stack :: !Bool // sequential code & stack info?
, version :: !Int // abc - version , version :: !Int // abc - version
, abcOptions :: !ABCOptions , abcOptions :: !ABCOptions
, dcldate :: !DATE
, icldate :: !DATE , icldate :: !DATE
, abcdate :: !DATE , abcdate :: !DATE
, objdate :: !DATE , objdate :: !DATE
...@@ -44,20 +43,18 @@ where ...@@ -44,20 +43,18 @@ where
= ((abccache,acc, info), files) = ((abccache,acc, info), files)
= GetFileInfo1 tp this_path abccache rest acc files = GetFileInfo1 tp this_path abccache rest acc files
GetFileInfo1 tp path abccache Nil acc files GetFileInfo1 tp path abccache Nil acc files
# dclpath = MakeDefPathname path
# iclpath = MakeImpPathname path # iclpath = MakeImpPathname path
// # (abcpath, files) = MakeABCSystemPathname path files // # (abcpath, files) = MakeABCSystemPathname path files
# abcpath = MakeABCSystemPathname path # abcpath = MakeABCSystemPathname path
// # (objpath, files) = MakeObjSystemPathname tp path files // # (objpath, files) = MakeObjSystemPathname tp path files
# objpath = MakeObjSystemPathname tp path # objpath = MakeObjSystemPathname tp path
# (dcldate, files) = FModified dclpath files
# (icldate, files) = FModified iclpath files # (icldate, files) = FModified iclpath files
# (abcdate, files) = FModified abcpath files # (abcdate, files) = FModified abcpath files
# (objdate, files) = FModified objpath files # (objdate, files) = FModified objpath files
| not abcdate.exists | not abcdate.exists
# finfo = { path = iclpath, # finfo = { path = iclpath,
abcpath = abcpath, objpath = objpath, abcpath = abcpath, objpath = objpath,
dcldate = dcldate, icldate = icldate, icldate = icldate,
abcdate = abcdate, objdate = objdate, abcdate = abcdate, objdate = objdate,
sys = False, seq_stack = False, sys = False, seq_stack = False,
version = -1, abcOptions = DefaultABCOptions } version = -1, abcOptions = DefaultABCOptions }
...@@ -67,7 +64,7 @@ where ...@@ -67,7 +64,7 @@ where
= GetABCCompiledInfo False abcpath abccache files = GetABCCompiledInfo False abcpath abccache files
finfo = { path = iclpath, finfo = { path = iclpath,
abcpath = abcpath, objpath = objpath, abcpath = abcpath, objpath = objpath,
dcldate = dcldate, icldate = icldate, icldate = icldate,
abcdate = abcdate, objdate = objdate, abcdate = abcdate, objdate = objdate,
sys = sys, seq_stack = seq_stack, sys = sys, seq_stack = seq_stack,
version = version, abcOptions = abcOptions } version = version, abcOptions = abcOptions }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment