diff options
| author | Omar Rizwan <omar@omar.website> | 2023-02-06 00:19:39 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-02-06 00:19:39 +0000 |
| commit | 35e1269eceaee8a1e8cd1fdf74e9515b4e8fea51 (patch) | |
| tree | 62f1e1a77b3538ae17287533fedebcb769c8ae15 /lib | |
| parent | c-statements: Harden the interface with the Tcl evaluator (diff) | |
| download | folk-35e1269eceaee8a1e8cd1fdf74e9515b4e8fea51.tar.gz folk-35e1269eceaee8a1e8cd1fdf74e9515b4e8fea51.zip | |
Some README tweaks
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/c.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -157,7 +157,7 @@ namespace eval c { set frame [info frame -2] if {[dict exists $frame line] && [dict exists $frame file] && [dict get $frame line] >= 0} { - subst {#line [dict get $frame line] "[dict get $frame file]"} + #subst {#line [dict get $frame line] "[dict get $frame file]"} } else { list } } ::proc code {newcode} { @@ -363,7 +363,7 @@ namespace eval c { # puts "=====================\n$sourcecode\n=====================" set cfd [file tempfile cfile cfile.c]; puts $cfd $sourcecode; close $cfd - exec cc -Wall -g -shared -fPIC {*}$cflags $cfile -o [file rootname $cfile][info sharedlibextension] + exec cc -Wall -g -shared -fsanitize=address -fPIC {*}$cflags $cfile -o [file rootname $cfile][info sharedlibextension] load [file rootname $cfile][info sharedlibextension] cfile } ::proc import {scc sname as dest} { |