kernel: some formatting

gap-system · Aug 27, 2018 · 94242b8 · 94242b8
1 parent 144858a
commit 94242b8
Show file tree

Hide file tree

Showing 5 changed files with 11 additions and 14 deletions.
diff --git a/src/compiler.c b/src/compiler.c
@@ -2502,7 +2502,7 @@ CVar CompListTildeExpr (
 
  /* remember the old value of '~' */
  tilde = CVAR_TEMP( NewTemp( "tilde" ) );
- Emit( "%c = STATE( Tilde );\n", tilde );
+ Emit( "%c = STATE(Tilde);\n", tilde );
 
  /* create the list value */
  list = CompListExpr1( expr );
@@ -2718,19 +2718,19 @@ CVar CompRecTildeExpr (
 
  /* remember the old value of '~' */
  tilde = CVAR_TEMP( NewTemp( "tilde" ) );
- Emit( "%c = STATE( Tilde );\n", tilde );
+ Emit( "%c = STATE(Tilde);\n", tilde );
 
  /* create the record value */
  rec = CompRecExpr1( expr );
 
  /* assign the record value to the variable '~' */
- Emit( "STATE( Tilde ) = %c;\n", rec );
+ Emit( "STATE(Tilde) = %c;\n", rec );
 
  /* evaluate the subexpressions into the record value */
  CompRecExpr2( rec, expr );
 
  /* restore the old value of '~' */
- Emit( "STATE( Tilde ) = %c;\n", tilde );
+ Emit( "STATE(Tilde) = %c;\n", tilde );
  if ( IS_TEMP_CVAR( tilde ) ) FreeTemp( TEMP_CVAR( tilde ) );
 
  /* return the record value */

diff --git a/src/error.c b/src/error.c
@@ -255,14 +255,12 @@ Obj FuncCALL_WITH_CATCH(Obj self, Obj func, volatile Obj args)
  SWITCH_TO_OLD_LVARS(currLVars);
  STATE(CurrStat) = currStat;
  SetRecursionDepth(recursionDepth);
-#ifdef HPCGAP
  STATE(Tilde) = tilde;
+#ifdef HPCGAP
  PopRegionLocks(lockSP);
  TLS(currentRegion) = savedRegion;
  if (TLS(CurrentHashLock))
  HashUnlock(TLS(CurrentHashLock));
-#else
- STATE(Tilde) = tilde;
 #endif
  }
  else {

diff --git a/src/exprs.c b/src/exprs.c
@@ -959,7 +959,7 @@ Obj EvalListTildeExpr (
  Obj tilde; /* old value of tilde */
 
  /* remember the old value of '~' */
- tilde = STATE( Tilde );
+ tilde = STATE(Tilde);
 
  /* create the list value */
  list = ListExpr1(expr, 1);
@@ -1309,7 +1309,7 @@ Obj EvalRecTildeExpr (
  Obj tilde; /* old value of tilde */
 
  /* remember the old value of '~' */
- tilde = STATE( Tilde );
+ tilde = STATE(Tilde);
 
  /* create the record value */
  rec = RecExpr1( expr );

diff --git a/src/intrprtr.c b/src/intrprtr.c
@@ -2056,7 +2056,7 @@ void IntrListExprBegin (
  /* if this is an outmost list, save it for reference in '~' */
  /* (and save the old value of '~' on the values stack) */
  if ( top ) {
- old = STATE( Tilde );
+ old = STATE(Tilde);
  if ( old != 0 ) { PushObj( old ); }
  else { PushVoidObj(); }
  STATE(Tilde) = list;
@@ -2270,10 +2270,10 @@ void IntrRecExprBegin (
  /* if this is an outmost record, save it for reference in '~' */
  /* (and save the old value of '~' on the values stack) */
  if ( top ) {
- old = STATE( Tilde );
+ old = STATE(Tilde);
  if ( old != 0 ) { PushObj( old ); }
  else { PushVoidObj(); }
- STATE( Tilde ) = record;
+ STATE(Tilde) = record;
  }
 
  /* push the record */

diff --git a/src/read.c b/src/read.c
@@ -1080,8 +1080,7 @@ static void ReadRecExpr (
  nr++;
  }
 
- }
- while ( STATE(Symbol) == S_COMMA );
+ } while (STATE(Symbol) == S_COMMA);
 
  /* ')' */
  Match( S_RPAREN, ")", follow );