Commit 8afa931c authored by John van Groningen's avatar John van Groningen

remove unused field 'date' of record 'ModInfo'

parent 8fc17ac4
......@@ -134,7 +134,6 @@ ModInfoAndNameTable =
, SimpleOption "DclOpen" (\a->a.info.defopen) (\v a->{a & info.defopen=v})
, GroupedOption "Icl" EditWdOptionsTable (\a->a.info.impeo) (\v a->{a & info.impeo=v})
, SimpleOption "IclOpen" (\a->a.info.impopen) (\v a->{a & info.impopen=v})
, SimpleOption "LastModified" (\a->a.info.date) (\v a->{a & info.date=v})
, ListOption "NeededObjFiles" ObjectFile "" (\a->a.info.abcLinkInfo.linkObjFileNames)
(\v a->{a & info.abcLinkInfo.linkObjFileNames=v})
, ListOption "NeededLibraries" Library "" (\a->a.info.abcLinkInfo.linkLibraryNames)
......@@ -160,7 +159,6 @@ where
impeo = {eo=DefaultEditOptions,pos_size=NoWindowPosAndSize},
defopen = False,
impopen = False,
date = NoDate,
abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil} }
DefaultEditOptions :: EditOptions;
DefaultEditOptions =
......
......@@ -115,7 +115,6 @@ PR_NewProject main_module_file_name eo compilerOptions cgo ao prjpaths linkOptio
, compilerOptions = compilerOptions
, defopen = False
, impopen = True
, date = NoDate
, abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil}
}
, src = True
......@@ -194,7 +193,6 @@ where
impeo = impeo,
defopen = False,
impopen = False,
date = NoDate,
abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil} },
src = True,
abc = True }
......@@ -213,14 +211,8 @@ PR_ClearDependencies project=:{inflist=Nil}
PR_ClearDependencies project=:{inflist=il=:(root :! rest)}
= {project & saved = False, inflist = root` :! Nil, built = False}
where
root` =
{ InfListItem
| root
& info =
{ root.InfListItem.info
& date = NoDate
, abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil}}}
root` = {InfListItem | root & info.abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil}}
PR_SetRoot :: !String !EditWdOptions !CompilerOptions !Project -> Project;
PR_SetRoot root eo co project=:{inflist=Nil}
= project;
......@@ -235,7 +227,6 @@ PR_SetRoot newroot eo compilerOptions project=:{prjpaths}
compilerOptions = compilerOptions,
defopen = False, /* nonsense, we don't know this! */
impopen = True,
date = NoDate,
abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil} },
src = True,
abc = True
......@@ -374,7 +365,7 @@ PR_SetPaths def defs new project=:{Project | built,inflist=infl=:((root=:{InfLis
SetDcl_and_Icl_and_ABCModified :: !InfListItem -> (!InfListItem,!Bool);
SetDcl_and_Icl_and_ABCModified itm=:{InfListItem | info=minfo=:{dir}}
| unchanged = ({itm & src=False}, True);
= ({itm & info = {minfo & dir="", date=NoDate}, src=False},False);
= ({itm & info = {minfo & dir=""}, src=False},False);
where
unchanged = StringOccurs dir defs || StringOccurs dir prjpaths1;
......@@ -675,7 +666,6 @@ where
, impeo = {eo=DefaultEditOptions,pos_size=NoWindowPosAndSize}
, defopen = False
, impopen = False
, date = NoDate
, abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil}
}
where
......
......@@ -151,7 +151,6 @@ instance fromString Output
, impeo :: !EditWdOptions // implementation module edit options
, defopen :: !Bool // definition module is open
, impopen :: !Bool // implementation module is open
, date :: !DATE // ???
, abcLinkInfo :: !ABCLinkInfo // found dependant libs and objs
}
......
......@@ -3,7 +3,7 @@ implementation module PmTypes
// The types for the Project Manager
import StdBool, StdInt
import UtilStrictLists, UtilDate
import UtilStrictLists
from UtilNewlinesFile import :: NewlineConvention(..)
import PmCompilerOptions
from StdPathname import :: Pathname
......@@ -111,7 +111,6 @@ where
, impeo :: !EditWdOptions // edit options imp module
, defopen :: !Bool // dcl open?
, impopen :: !Bool // icl open?
, date :: !DATE // last scan date of file???
, abcLinkInfo :: !ABCLinkInfo
}
......
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