diff options
| author | Justus Winter <[email protected]> | 2016-12-22 09:36:56 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-01-02 10:02:34 +0000 |
| commit | e8b843508dac96e9d0a3140954dd5a3618669cec (patch) | |
| tree | a10a893cdebe9e80b20d5f6d92e605f8e30aa281 /tests/gpgscm/scheme-private.h | |
| parent | doc: Remove warning that DNS is not routed via Tor (diff) | |
| download | gnupg-e8b843508dac96e9d0a3140954dd5a3618669cec.tar.gz gnupg-e8b843508dac96e9d0a3140954dd5a3618669cec.zip | |
gpgscm: Use boxed values for source locations.
* tests/gpgscm/scheme-private.h (struct port): Use boxed values for
filename and current line. This allows us to use the same Scheme
object for labeling all expressions in a file.
* tests/gpgscm/scheme.c (file_push): Use boxed type for filename.
(mark): Mark location objects of port objects.
(gc): Mark location objects in the load stack.
(port_clear_location): New function.
(port_reset_current_line): Likewise.
(port_increment_current_line): Likewise.
(file_pop): Adapt accordingly.
(port_rep_from_filename): Likewise.
(port_rep_from_file): Likewise.
(port_close): Likewise.
(skipspace): Likewise.
(token): Likewise.
(_Error_1): Likewise.
(opexe_0): Likewise.
(opexe_5): Likewise.
(scheme_deinit): Likewise.
(scheme_load_file): Likewise.
(scheme_load_named_file): Likewise.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to '')
| -rw-r--r-- | tests/gpgscm/scheme-private.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/gpgscm/scheme-private.h b/tests/gpgscm/scheme-private.h index 7f19a6ea3..aba2319b4 100644 --- a/tests/gpgscm/scheme-private.h +++ b/tests/gpgscm/scheme-private.h @@ -28,8 +28,8 @@ typedef struct port { FILE *file; int closeit; #if SHOW_ERROR_LINE - int curr_line; - char *filename; + pointer curr_line; + pointer filename; #endif } stdio; struct { |