Check-in [cdc4d10e86]
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Oops, one extra callframe ref in 'callframe-error-quads'
Timelines: family | ancestors | descendants | both | notworking | kbk-refactor-callframe
Files: files | file ages | folders
SHA3-256:cdc4d10e86fecec2caee48eedd8fdb7c71ea5482f4e898a06a03c4658bf75a0c
User & Date: kbk 2019-01-02 02:20:10
Context
2019-01-05
22:48
Generate only one moveFromCallFrame per bytecode instruction check-in: 9dbaca7922 user: kbk tags: notworking, kbk-refactor-callframe
2019-01-02
02:20
Oops, one extra callframe ref in 'callframe-error-quads' check-in: cdc4d10e86 user: kbk tags: notworking, kbk-refactor-callframe
2019-01-01
23:06
Update quadcode generation and documentation so that 'direct' operations refer to the callframe (which is necessary in the event that they are emitted to deal with double-dereference). CODE ISSUER IS NOT YET UPDATED TO COPE WITH THE CHANGE. check-in: 104debc734 user: kbk tags: notworking, kbk-refactor-callframe
Changes

Changes to quadcode/translate.tcl.

1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
#
# Results:
#	None

oo::define quadcode::transformer method callframe-error-quads {pc opcode result
							       args} {

    my quads $opcode {temp @tuple} {temp @callframe} {temp @callframe} $args
    my quads extractCallFrame {temp @callframe} {temp @tuple}
    my quads retrieveResult {temp @exception} {temp @tuple}
    set target [my exception-target $pc catch]
    my generate-jump $target maybe {temp @exception}
    my quads extractMaybe $result {temp @exception}
    
}







|







1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
#
# Results:
#	None

oo::define quadcode::transformer method callframe-error-quads {pc opcode result
							       args} {

    my quads $opcode {temp @tuple} {temp @callframe} $args
    my quads extractCallFrame {temp @callframe} {temp @tuple}
    my quads retrieveResult {temp @exception} {temp @tuple}
    set target [my exception-target $pc catch]
    my generate-jump $target maybe {temp @exception}
    my quads extractMaybe $result {temp @exception}
    
}