diff --git a/gap/cmat.gd b/gap/cmat.gd index 8a69bb8..3e6f170 100644 --- a/gap/cmat.gd +++ b/gap/cmat.gd @@ -77,7 +77,6 @@ DeclareOperation( "EntryOfMatrixProduct", # Greasing: ############################################################################# -DeclareGlobalVariable( "CVEC_SpreadTabCache" ); DeclareGlobalFunction( "CVEC_MakeSpreadTab" ); DeclareGlobalFunction( "CVEC_OptimizeGreaseHint" ); diff --git a/gap/cmat.gi b/gap/cmat.gi index af7ec57..8cdee32 100644 --- a/gap/cmat.gi +++ b/gap/cmat.gi @@ -1326,7 +1326,7 @@ InstallMethod( ChooseHashFunction, "for cmats", # Greasing: ############################################################################# -InstallValue( CVEC_SpreadTabCache, [] ); +BindGlobal( "CVEC_SpreadTabCache", [] ); InstallGlobalFunction( CVEC_MakeSpreadTab, function(p,d,l,bitsperel) # Make up the spreadtab (EXTRACT values are 2^bitsperel-adic diff --git a/gap/cvec.gd b/gap/cvec.gd index 45deb72..44890b9 100644 --- a/gap/cvec.gd +++ b/gap/cvec.gd @@ -35,12 +35,6 @@ DeclareFilter( "IsCVecRepOverPrimeField" ); ## Information about the base fields: ############################################################################# -DeclareGlobalVariable( "CVEC_q" ); -DeclareGlobalVariable( "CVEC_F" ); -DeclareGlobalVariable( "CVEC_lens" ); -DeclareGlobalVariable( "CVEC_classes" ); -DeclareGlobalVariable( "CVEC_BestGreaseTab" ); - DeclareGlobalFunction( "CVEC_NewCVecClass" ); DeclareGlobalFunction( "CVEC_NewCVecClassSameField" ); @@ -110,8 +104,6 @@ DeclareOperation( "CVecNumber", [IsInt, IsPosInt, IsPosInt, IsPosInt] ); DeclareGlobalFunction( "CVEC_New" ); -DeclareGlobalVariable( "CVEC_CharactersForDisplay" ); - DeclareGlobalFunction( "CVEC_HandleScalar" ); DeclareOperation( "Memory", [IsCVecRep] ); diff --git a/gap/cvec.gi b/gap/cvec.gi index 8063557..49f02ac 100644 --- a/gap/cvec.gi +++ b/gap/cvec.gi @@ -21,20 +21,20 @@ SetInfoLevel(InfoCVec,1); ############################################################################# # A set holding all q's for which we have cvec classes: -InstallValue( CVEC_q, [] ); +BindGlobal( "CVEC_q", [] ); # A list holding field infos: -InstallValue( CVEC_F, [] ); +BindGlobal( "CVEC_F", [] ); # A list holding lengths of vectors existing for each q: -InstallValue( CVEC_lens, [] ); +BindGlobal( "CVEC_lens", [] ); # A list holding cvec classes (which are pairs [fieldinfo,len]) -InstallValue( CVEC_classes, [] ); +BindGlobal( "CVEC_classes", [] ); ############################################################################# ## Administration of field info and cvec class data: ############################################################################# -InstallValue( CVEC_BestGreaseTab, +BindGlobal( "CVEC_BestGreaseTab", [ , # q=1 8, # q=2 5, # q=3 @@ -375,7 +375,7 @@ function(v) return res; end); -InstallValue( CVEC_CharactersForDisplay, +BindGlobal( "CVEC_CharactersForDisplay", ".123456789abcdefghijklmnopqrstuvwxyz" ); InstallMethod( Display, "for a cvec", [IsCVecRep],