Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-compiler-and-rts
compiler
Commits
fb5e7960
Commit
fb5e7960
authored
May 08, 2001
by
Ronny Wichers Schreur
🏘
Browse files
added VI_Labelled_Empty and VI_LocalLetVar to VarInfo
parent
42c69944
Changes
2
Hide whitespace changes
Inline
Side-by-side
frontend/syntax.dcl
View file @
fb5e7960
...
@@ -545,6 +545,8 @@ cIsALocalVar :== False
...
@@ -545,6 +545,8 @@ cIsALocalVar :== False
// MdM
// MdM
VI_CPSLocalExprVar
!
Int
/* MdM - the index of the variable as generated by the theorem prover */
VI_CPSLocalExprVar
!
Int
/* MdM - the index of the variable as generated by the theorem prover */
// ... MdM
// ... MdM
|
VI_Labelled_Empty
{#
Char
}
// RWS debugging
|
VI_LocalLetVar
// RWS, mark Let vars during case transformation
::
ExtendedVarInfo
=
EVI_VarType
!
AType
::
ExtendedVarInfo
=
EVI_VarType
!
AType
...
@@ -702,6 +704,7 @@ cNonRecursiveAppl :== False
...
@@ -702,6 +704,7 @@ cNonRecursiveAppl :== False
/* for converting case into function patterns the following auxiliary constuctors are used */
/* for converting case into function patterns the following auxiliary constuctors are used */
|
EI_Default
!
Expression
!
AType
!
ExprInfoPtr
|
EI_Default
!
Expression
!
AType
!
ExprInfoPtr
|
EI_DefaultFunction
!
SymbIdent
![
Expression
]
|
EI_DefaultFunction
!
SymbIdent
![
Expression
]
|
EI_Extended
!
ExtendedExprInfo
!
ExprInfo
|
EI_Extended
!
ExtendedExprInfo
!
ExprInfo
...
@@ -709,6 +712,7 @@ cNonRecursiveAppl :== False
...
@@ -709,6 +712,7 @@ cNonRecursiveAppl :== False
::
ExtendedExprInfo
::
ExtendedExprInfo
=
EEI_ActiveCase
!
ActiveCaseInfo
=
EEI_ActiveCase
!
ActiveCaseInfo
::
ActiveCaseInfo
=
::
ActiveCaseInfo
=
{
aci_params
::
![
FreeVar
]
{
aci_params
::
![
FreeVar
]
,
aci_opt_unfolder
::
!(
Optional
SymbIdent
)
,
aci_opt_unfolder
::
!(
Optional
SymbIdent
)
...
...
frontend/syntax.icl
View file @
fb5e7960
...
@@ -6,6 +6,7 @@ import scanner, general, Heap, typeproperties, utilities
...
@@ -6,6 +6,7 @@ import scanner, general, Heap, typeproperties, utilities
SupportGenerics
:==
False
SupportGenerics
:==
False
PA_BUG
on
off
:==
on
PA_BUG
on
off
:==
on
switch_import_syntax
one_point_three
two_point_zero
:==
one_point_three
switch_import_syntax
one_point_three
two_point_zero
:==
one_point_three
SwitchFusion
fuse
dont_fuse
:==
dont_fuse
SwitchFusion
fuse
dont_fuse
:==
dont_fuse
...
@@ -527,6 +528,8 @@ cIsALocalVar :== False
...
@@ -527,6 +528,8 @@ cIsALocalVar :== False
// MdM
// MdM
VI_CPSLocalExprVar
!
Int
/* MdM - the index of the variable as generated by the theorem prover */
VI_CPSLocalExprVar
!
Int
/* MdM - the index of the variable as generated by the theorem prover */
// ... MdM
// ... MdM
|
VI_Labelled_Empty
{#
Char
}
// RWS debugging
|
VI_LocalLetVar
// RWS, mark Let vars during case transformation
::
ExtendedVarInfo
=
EVI_VarType
!
AType
::
ExtendedVarInfo
=
EVI_VarType
!
AType
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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