Check-in [cdc4d10e86]

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.238
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
Unified Diff Ignore Whitespace Patch
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}
    
}