Check-in [ebcc398686]

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

Overview
Comment:Allow 'inlinehint' as an overriding inline control attribute, just like 'noinline'.
Timelines: family | ancestors | descendants | both | kbk-nre
Files: files | file ages | folders
SHA3-256:ebcc39868689470aa477b5402945a32db7cd83c7f0dc69871587ef51d6e38848
User & Date: dkf 2018-04-30 19:01:12
Context
2018-05-01
02:13
Make sure that local vars are located on the coro frame and not on the stack. Fix a spurious error when an 'upvar' follows a 'moveToCallFrame' for a nonexistent local var. check-in: 2945c2321c user: kbk tags: kbk-nre
2018-04-30
19:01
Allow 'inlinehint' as an overriding inline control attribute, just like 'noinline'. check-in: ebcc398686 user: dkf tags: kbk-nre
2018-04-29
17:37
merge trunk check-in: 23f46849a7 user: dkf tags: kbk-nre
Changes

Changes to codegen/struct.tcl.

235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
    # Results:
    #	A TclOO object that encapsulates the function.

    method local {name signature args} {
	set oldfile [my debug file]
	my debug file [dict get [info frame -1] file]
	set f [my function.create $name [Type func{$signature}]]
	if {"noinline" ni $args} {
	    lappend args alwaysinline
	}
	$f private
	$f attribute {*}$args
	upvar 1 $name ref
	set ref [$f ref]
	my debug file $oldfile







|







235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
    # Results:
    #	A TclOO object that encapsulates the function.

    method local {name signature args} {
	set oldfile [my debug file]
	my debug file [dict get [info frame -1] file]
	set f [my function.create $name [Type func{$signature}]]
	if {"noinline" ni $args && "inlinehint" ni $args} {
	    lappend args alwaysinline
	}
	$f private
	$f attribute {*}$args
	upvar 1 $name ref
	set ref [$f ref]
	my debug file $oldfile