ObjectifyWithAttributes: return the object

gap-system · Jan 23, 2018 · d5e14fd · d5e14fd
1 parent 483ec5c
commit d5e14fd
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 12 deletions.
diff --git a/hpcgap/lib/type1.g b/hpcgap/lib/type1.g
@@ -901,6 +901,7 @@ BIND_GLOBAL( "ObjectifyWithAttributes", function (arg)
         fi;
         Setter(extra[i])(obj,extra[i+1]);
     od;
+    return obj;
 end );
 
 

diff --git a/hpcgap/src/c_type1.c b/hpcgap/src/c_type1.c
@@ -1,7 +1,7 @@
 #ifndef AVOID_PRECOMPILED
 /* C file produced by GAC */
 #include <src/compiled.h>
-#define FILE_CRC  "-108827285"
+#define FILE_CRC  "16520229"
 
 /* global variables used in handlers */
 static GVar G_NAME__FUNC;
@@ -3493,10 +3493,10 @@ static Obj  HdlrFunc31 (
  }
  /* od */
 
- /* return; */
+ /* return obj; */
  RES_BRK_CURR_STAT();
  SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
+ return l_obj;
 
  /* return; */
  RES_BRK_CURR_STAT();
@@ -4326,15 +4326,15 @@ static Obj  HdlrFunc1 (
           fi;
           Setter( extra[i] )( obj, extra[i + 1] );
       od;
-      return;
+      return obj;
   end ); */
  t_1 = GF_BIND__GLOBAL;
  t_2 = MakeString( "ObjectifyWithAttributes" );
  t_3 = NewFunction( NameFunc[31], -1, 0, HdlrFunc31 );
  SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
  t_4 = NewBag( T_BODY, sizeof(BodyHeader) );
  SET_STARTLINE_BODY(t_4, 839);
- SET_ENDLINE_BODY(t_4, 904);
+ SET_ENDLINE_BODY(t_4, 905);
  SET_FILENAME_BODY(t_4, FileName);
  SET_BODY_FUNC(t_3, t_4);
  CHANGED_BAG( STATE(CurrLVars) );
@@ -4734,7 +4734,7 @@ static Int InitLibrary ( StructInitInfo * module )
 static StructInitInfo module = {
  .type        = MODULE_STATIC,
  .name        = "GAPROOT/lib/type1.g",
- .crc         = -108827285,
+ .crc         = 16520229,
  .initKernel  = InitKernel,
  .initLibrary = InitLibrary,
  .postRestore = PostRestore,

diff --git a/lib/type1.g b/lib/type1.g
@@ -875,6 +875,7 @@ BIND_GLOBAL( "ObjectifyWithAttributes", function (arg)
         fi;
         Setter(extra[i])(obj,extra[i+1]);
     od;
+    return obj;
 end );
 
 

diff --git a/src/c_type1.c b/src/c_type1.c
@@ -1,7 +1,7 @@
 #ifndef AVOID_PRECOMPILED
 /* C file produced by GAC */
 #include <src/compiled.h>
-#define FILE_CRC  "38895215"
+#define FILE_CRC  "-46504902"
 
 /* global variables used in handlers */
 static GVar G_NAME__FUNC;
@@ -3290,10 +3290,10 @@ static Obj  HdlrFunc31 (
  }
  /* od */
 
- /* return; */
+ /* return obj; */
  RES_BRK_CURR_STAT();
  SWITCH_TO_OLD_FRAME(oldFrame);
- return 0;
+ return l_obj;
 
  /* return; */
  RES_BRK_CURR_STAT();
@@ -4090,15 +4090,15 @@ static Obj  HdlrFunc1 (
           fi;
           Setter( extra[i] )( obj, extra[i + 1] );
       od;
-      return;
+      return obj;
   end ); */
  t_1 = GF_BIND__GLOBAL;
  t_2 = MakeString( "ObjectifyWithAttributes" );
  t_3 = NewFunction( NameFunc[31], -1, 0, HdlrFunc31 );
  SET_ENVI_FUNC( t_3, STATE(CurrLVars) );
  t_4 = NewBag( T_BODY, sizeof(BodyHeader) );
  SET_STARTLINE_BODY(t_4, 813);
- SET_ENDLINE_BODY(t_4, 878);
+ SET_ENDLINE_BODY(t_4, 879);
  SET_FILENAME_BODY(t_4, FileName);
  SET_BODY_FUNC(t_3, t_4);
  CHANGED_BAG( STATE(CurrLVars) );
@@ -4459,7 +4459,7 @@ static Int InitLibrary ( StructInitInfo * module )
 static StructInitInfo module = {
  .type        = MODULE_STATIC,
  .name        = "GAPROOT/lib/type1.g",
- .crc         = 38895215,
+ .crc         = -46504902,
  .initKernel  = InitKernel,
  .initLibrary = InitLibrary,
  .postRestore = PostRestore,