diff options
author | dos-reis <gdr@axiomatics.org> | 2011-11-24 00:14:26 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-11-24 00:14:26 +0000 |
commit | 39c21d65868a04d915dc03b283839e221f37d498 (patch) | |
tree | 18be8d5a88a3e02dda7acc79a93a6f588871d0fb /src/interp/define.boot | |
parent | 3726db8810fbc954aa8782dd9b4b638f132c0aec (diff) | |
download | open-axiom-39c21d65868a04d915dc03b283839e221f37d498.tar.gz |
* interp/define.boot ($CheckVectorList): Remove.
(compDefineFunctor1): Do not bind it.
(reportOnFunctorCompilation): Do not call displayMissingFunctions.
(displayMissingFunctions): Remove as useless.
* interp/functor.boot (SetFunctionSlots): Do not set slot in the
first vector of $catvecList.
* interp/nruncomp.boot (buildFunctor): Remove makeCatvecCode,
emptyVector, domainShell. Do not call NRTcheckVector.
(NRTcheckVector): Remove as useless.
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 75e356db..9bddd837 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -64,7 +64,6 @@ $forceAdd := false $functionStats := nil $functorStats := nil -$CheckVectorList := [] $functorTarget := nil $condAlist := [] $uncondAlist := [] @@ -1373,7 +1372,6 @@ compDefineFunctor1(df is ['DEF,form,signature,body], --Set in doIt, accessed in the compiler - compNoStacking $functorForm: local := nil $functorLocalParameters: local := nil - $CheckVectorList: local := nil $getDomainCode: local := nil -- code for getting views $insideFunctorIfTrue: local:= true $genSDVar: local:= 0 @@ -1512,7 +1510,6 @@ compFunctorBody(db,body,m,e) == T reportOnFunctorCompilation() == - displayMissingFunctions() if $semanticErrorStack then sayBrightly '" " displaySemanticErrors() if $warningStack then sayBrightly '" " @@ -1525,25 +1522,6 @@ reportOnFunctorCompilation() == sayBrightly '" " 'done -displayMissingFunctions() == - null $CheckVectorList => nil - loc := nil -- list of local operation signatures - exp := nil -- list of exported operation signatures - for [[op,sig,:.],:pred] in $CheckVectorList | not pred repeat - not symbolMember?(op,$formalArgList) and getXmode(op,$e) is ['Mapping,:.] => - loc := [[op,sig],:loc] - exp := [[op,sig],:exp] - if loc then - sayBrightly ['"%l",:bright '" Missing Local Functions:"] - for [op,sig] in loc for i in 1.. repeat - sayBrightly ['" [",i,'"]",:bright op, - ": ",:formatUnabbreviatedSig sig] - if exp then - sayBrightly ['"%l",:bright '" Missing Exported Functions:"] - for [op,sig] in exp for i in 1.. repeat - sayBrightly ['" [",i,'"]",:bright op, - ": ",:formatUnabbreviatedSig sig] - --% domain view code makeFunctorArgumentParameters(argl,sigl,target) == |