Get rid of PrintObjFull

It was unused since 1998-04-09
hulpke · Nov 24, 2017 · 64ccbd4 · 64ccbd4
1 parent 365fb0e
commit 64ccbd4
Show file tree

Hide file tree

Showing 5 changed files with 1 addition and 11 deletions.
diff --git a/src/calls.h b/src/calls.h
@@ -513,8 +513,7 @@ extern Obj ArgStringToList(const Char *nams_c);
 **
 *F  PrintFunction( <func> )   . . . . . . . . . . . . . . .  print a function
 **
-**  'PrintFunction' prints  the   function  <func> in  abbreviated  form   if
-**  'PrintObjFull' is false.
+**  'PrintFunction' prints  the   function  <func> .
 */
 extern void PrintFunction (
     Obj                 func );

diff --git a/src/gapstate.h b/src/gapstate.h
@@ -149,7 +149,6 @@ typedef struct GAPState {
     Obj PrintObjThis;
     Int PrintObjIndex;
     Int PrintObjDepth;
-    Int PrintObjFull;
 #if defined(HPCGAP)
     Obj   PrintObjThissObj;
     Obj * PrintObjThiss;

diff --git a/src/objects.c b/src/objects.c
@@ -898,8 +898,6 @@ Obj FuncMakeImmutable( Obj self, Obj obj)
 
 /* TL: Int PrintObjIndex; */
 
-/* TL: Int PrintObjFull; */
-
 /* TL: Int PrintObjDepth; */
 
 #define MAXPRINTDEPTH 1024L

diff --git a/src/objects.h b/src/objects.h
@@ -702,8 +702,6 @@ extern void PrintObj (
 /* TL: extern Int  PrintObjIndex; */
 /* TL: extern Int  PrintObjDepth; */
 
-/* TL: extern Int  PrintObjFull; */
-
 extern void (* PrintObjFuncs[LAST_REAL_TNUM+1]) ( Obj obj );
 
 

diff --git a/src/streams.c b/src/streams.c
@@ -786,9 +786,7 @@ static Obj PRINT_OR_APPEND_TO(Obj args, int append)
             PrintString1(arg);
         }
         else if ( TNUM_OBJ(arg) == T_FUNCTION ) {
-            STATE(PrintObjFull) = 1;
             PrintFunction( arg );
-            STATE(PrintObjFull) = 0;
         }
         else {
             memcpy( readJmpError, STATE(ReadJmpError), sizeof(syJmp_buf) );
@@ -848,9 +846,7 @@ static Obj PRINT_OR_APPEND_TO_STREAM(Obj args, int append)
                 PrintString1(arg);
             }
             else if ( TNUM_OBJ( arg ) == T_FUNCTION ) {
-                STATE(PrintObjFull) = 1;
                 PrintFunction( arg );
-                STATE(PrintObjFull) = 0;
             }
             else {
                 PrintObj( arg );