Check-in [23f46849a7]

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

Overview
Comment:merge trunk
Timelines: family | ancestors | descendants | both | kbk-nre
Files: files | file ages | folders
SHA3-256:23f46849a7153336cbfa473a27c089b00949d81a44427ce2aa32a517f4ae83eb
User & Date: dkf 2018-04-29 17:37:56
Context
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
17:21
Fix native code generation when building DLLs check-in: 412811a9f7 user: dkf tags: trunk
2018-04-28
08:25
Added mrtest as a separately buildable package. check-in: 05a6521445 user: dkf tags: kbk-nre
Changes

Changes to codegen/config.tcl.

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
# Copyright (c) 2014-2017 by Donal K. Fellows
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
#------------------------------------------------------------------------------
 
package require llvmtcl 3.10
package require platform

namespace eval ::LLVM {
    namespace path ::llvmtcl
    variable THIS_SCRIPT [info script]

    variable counter 0
    variable debug 0
    # Turn on debugging metadata from llvmtcl 3.6.3 onwards
    variable debugmeta [package vsatisfies [package require llvmtcl] 3.6.3]
    variable time 0
    variable optimiseLevel 3
    variable quadcode-log {}
    variable dumpPre {}
    variable dumpPost {}
    variable useStubs 0
    variable OptExecutable [file join $::llvmtcl::llvmbindir opt]







|








<
|







7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

23
24
25
26
27
28
29
30
# Copyright (c) 2014-2017 by Donal K. Fellows
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
#------------------------------------------------------------------------------
 
package require llvmtcl 3.9
package require platform

namespace eval ::LLVM {
    namespace path ::llvmtcl
    variable THIS_SCRIPT [info script]

    variable counter 0
    variable debug 0

    variable debugmeta 1
    variable time 0
    variable optimiseLevel 3
    variable quadcode-log {}
    variable dumpPre {}
    variable dumpPost {}
    variable useStubs 0
    variable OptExecutable [file join $::llvmtcl::llvmbindir opt]

Changes to codegen/struct.tcl.

677
678
679
680
681
682
683
684
685

686
687
688
689
690
691
692
    #		(or .asm) format files instead.
    #
    # Results:
    #	None.

    method writeobject {filename {type object}} {
	WriteModuleMachineCodeToFile $module \
	    [file nativename [file normalize $filename]]


    }

    # Module:engine (property) --
    #
    #	Get the execution engine for the module.

    method engine {} {







|
<
>







677
678
679
680
681
682
683
684

685
686
687
688
689
690
691
692
    #		(or .asm) format files instead.
    #
    # Results:
    #	None.

    method writeobject {filename {type object}} {
	WriteModuleMachineCodeToFile $module \
	    [file nativename [file normalize $filename]] \

	    $type
    }

    # Module:engine (property) --
    #
    #	Get the execution engine for the module.

    method engine {} {