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

remove unused field 'date' of record 'ModInfo'

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