Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
e1b3752c
Commit
e1b3752c
authored
Jan 21, 2009
by
John van Groningen
Browse files
remove unused field dcl_date
parent
68197a96
Changes
2
Hide whitespace changes
Inline
Side-by-side
Pm/PmFileInfo.dcl
View file @
e1b3752c
...
...
@@ -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
...
...
Pm/PmFileInfo.icl
View file @
e1b3752c
...
...
@@ -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
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment