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
, seq_stack :: !Bool // sequential code & stack info?
, version :: !Int
, abcOptions :: !ABCOptions
, dcldate :: !DATE
, icldate :: !DATE
, abcdate :: !DATE
, objdate :: !DATE
......
......@@ -22,7 +22,6 @@ import PmAbcMagic
, seq_stack :: !Bool // sequential code & stack info?
, version :: !Int // abc - version
, abcOptions :: !ABCOptions
, dcldate :: !DATE
, icldate :: !DATE
, abcdate :: !DATE
, objdate :: !DATE
......@@ -44,20 +43,18 @@ where
= ((abccache,acc, info), files)
= GetFileInfo1 tp this_path abccache rest acc files
GetFileInfo1 tp path abccache Nil acc files
# dclpath = MakeDefPathname path
# iclpath = MakeImpPathname path
// # (abcpath, files) = MakeABCSystemPathname path files
# abcpath = MakeABCSystemPathname path
// # (objpath, files) = MakeObjSystemPathname tp path files
# objpath = MakeObjSystemPathname tp path
# (dcldate, files) = FModified dclpath files
# (icldate, files) = FModified iclpath files
# (abcdate, files) = FModified abcpath files
# (objdate, files) = FModified objpath files
| not abcdate.exists
# finfo = { path = iclpath,
abcpath = abcpath, objpath = objpath,
dcldate = dcldate, icldate = icldate,
icldate = icldate,
abcdate = abcdate, objdate = objdate,
sys = False, seq_stack = False,
version = -1, abcOptions = DefaultABCOptions }
......@@ -67,7 +64,7 @@ where
= GetABCCompiledInfo False abcpath abccache files
finfo = { path = iclpath,
abcpath = abcpath, objpath = objpath,
dcldate = dcldate, icldate = icldate,
icldate = icldate,
abcdate = abcdate, objdate = objdate,
sys = sys, seq_stack = seq_stack,
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