Commit 8b904adf authored by John van Groningen's avatar John van Groningen

add (ignored) 64 bit processor parameter to Link

parent 5d0079f3
......@@ -119,6 +119,7 @@ Link :: // Links the given file:
!String // dynamic linker name
// !Bool // add 'carb' 0 resource?
!Processor // target processor
!Bool // use_64_bit_processor
!*(PSt .l) // state
->
( !*(PSt .l) // state
......
......@@ -505,13 +505,13 @@ where
Link :: !String !(WindowFun *(PSt .l)) !Pathname !ApplicationOptions
!Pathname !(List Pathname) !(List Pathname) !(List Pathname) !Bool
!Bool !Bool !Bool !String !Bool !String !Pathname !String !Processor/*!Bool*/ !*(PSt .l)
!Bool !Bool !Bool !String !Bool !String !Pathname !String !Processor !Bool !*(PSt .l)
-> (!*(PSt .l),!Bool)
Link linker` winfun path
applicationOptions=:{fs,fn,em,ss,hs,initial_heap_size,profiling,heap_size_multiple,o,memoryProfilingMinimumHeapSize=minheap}
optionspathname library_file_names object_file_names
static_libraries static gen_relocs gen_linkmap
link_resources resource_path gen_dll dll_names startupdir dynlinker processor/*add_carb_resource*/ ps
link_resources resource_path gen_dll dll_names startupdir dynlinker processor use_64_bit_processor /*add_carb_resource*/ ps
# (ok,linker) = mangleLinker linker` startupdir
| not ok
# ps = winfun [linker] ps
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment