mirror of
git://git.gnupg.org/gnupg.git
synced 2025-04-17 15:44:34 +02:00
gpgscm: Drop obsolete commented-out code.
* tests/gpgscm/scheme.c (opexe_5): Drop obsolete code. Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
parent
d7c5799c28
commit
9ee184bc0a
@ -4056,17 +4056,6 @@ static pointer opexe_5(scheme *sc, enum scheme_opcodes op) {
|
|||||||
case TOK_EOF:
|
case TOK_EOF:
|
||||||
s_return(sc,sc->EOF_OBJ);
|
s_return(sc,sc->EOF_OBJ);
|
||||||
/* NOTREACHED */
|
/* NOTREACHED */
|
||||||
/*
|
|
||||||
* Commented out because we now skip comments in the scanner
|
|
||||||
*
|
|
||||||
case TOK_COMMENT: {
|
|
||||||
int c;
|
|
||||||
while ((c=inchar(sc)) != '\n' && c!=EOF)
|
|
||||||
;
|
|
||||||
sc->tok = token(sc);
|
|
||||||
s_goto(sc,OP_RDSEXPR);
|
|
||||||
}
|
|
||||||
*/
|
|
||||||
case TOK_VEC:
|
case TOK_VEC:
|
||||||
s_save(sc,OP_RDVEC,sc->NIL,sc->NIL);
|
s_save(sc,OP_RDVEC,sc->NIL,sc->NIL);
|
||||||
/* fall through */
|
/* fall through */
|
||||||
@ -4135,14 +4124,6 @@ static pointer opexe_5(scheme *sc, enum scheme_opcodes op) {
|
|||||||
case OP_RDLIST: {
|
case OP_RDLIST: {
|
||||||
sc->args = cons(sc, sc->value, sc->args);
|
sc->args = cons(sc, sc->value, sc->args);
|
||||||
sc->tok = token(sc);
|
sc->tok = token(sc);
|
||||||
/* We now skip comments in the scanner
|
|
||||||
while (sc->tok == TOK_COMMENT) {
|
|
||||||
int c;
|
|
||||||
while ((c=inchar(sc)) != '\n' && c!=EOF)
|
|
||||||
;
|
|
||||||
sc->tok = token(sc);
|
|
||||||
}
|
|
||||||
*/
|
|
||||||
if (sc->tok == TOK_EOF)
|
if (sc->tok == TOK_EOF)
|
||||||
{ s_return(sc,sc->EOF_OBJ); }
|
{ s_return(sc,sc->EOF_OBJ); }
|
||||||
else if (sc->tok == TOK_RPAREN) {
|
else if (sc->tok == TOK_RPAREN) {
|
||||||
|
Loading…
x
Reference in New Issue
Block a user