From 35e1269eceaee8a1e8cd1fdf74e9515b4e8fea51 Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Sun, 5 Feb 2023 19:19:39 -0500 Subject: Some README tweaks --- lib/c.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib') diff --git a/lib/c.tcl b/lib/c.tcl index 9e155502..27b7a2cb 100644 --- a/lib/c.tcl +++ b/lib/c.tcl @@ -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} { -- cgit v1.2.3