Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add support for compiled procs that alter the callframe, then fail. |
|---|---|
| Timelines: | family | ancestors | descendants | both | notworking | kbk-refactor-callframe |
| Files: | files | file ages | folders |
| SHA3-256: |
30d6a54fdb42e1decb50a6be248ebac3 |
| User & Date: | kbk 2019-01-09 01:52:28 |
Context
|
2019-01-13
| ||
| 15:38 | Merge the (not-working) vararg reform branch. It appears that both these tasks need to be attacked at the same time because the changes are tightly interwoven. check-in: 05c93c9cc5 user: kbk tags: notworking, kbk-refactor-callframe | |
|
2019-01-09
| ||
| 01:52 | Add support for compiled procs that alter the callframe, then fail. check-in: 30d6a54fdb user: kbk tags: notworking, kbk-refactor-callframe | |
|
2019-01-08
| ||
| 04:17 | Fix more trivial errors in 'translate' and missing cases in code gen check-in: fba0ec7241 user: kbk tags: notworking, kbk-refactor-callframe | |
Changes
Changes to codegen/compile.tcl.
1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 |
}
method IssueInvokeFunction {tgt func arguments vname} {
upvar 1 callframe callframe thecallframe thecallframe
set BASETYPES {ZEROONE INT DOUBLE NUMERIC STRING}
set result [$b call $func $arguments $vname]
if {[my ValueTypes $tgt] eq "FAIL"} {
$b store $result $errorCode
my SetErrorLine $errorCode
} else {
set ts [lmap t $BASETYPES {Type $t?}]
if {[TypeOf $result] in $ts} {
$b store [$b extract $result 0] $errorCode
} elseif {[Type [TypeOf $result]?] eq [Type [my ValueTypes $tgt]]} {
|
| |
1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 |
}
method IssueInvokeFunction {tgt func arguments vname} {
upvar 1 callframe callframe thecallframe thecallframe
set BASETYPES {ZEROONE INT DOUBLE NUMERIC STRING}
set result [$b call $func $arguments $vname]
if {[my ValueTypes $tgt] in {"FAIL" "CALLFRAME FAIL"}} {
$b store $result $errorCode
my SetErrorLine $errorCode
} else {
set ts [lmap t $BASETYPES {Type $t?}]
if {[TypeOf $result] in $ts} {
$b store [$b extract $result 0] $errorCode
} elseif {[Type [TypeOf $result]?] eq [Type [my ValueTypes $tgt]]} {
|