Commit 942229b4 authored by Diederik van Arkel's avatar Diederik van Arkel

mac linker fixes

parent 40eb6617
......@@ -3,7 +3,7 @@ implementation module linker3;
import StdFile,StdArray,StdClass,StdEnum,StdInt,StdBool,StdChar;
from StdMisc import abort;
from StdList import ++;
from StdString import class %;
from StdString import class %, +++.,instance toString Int;
import linker2,linker_resources;
import xcoff_linker;
......@@ -481,6 +481,8 @@ write_code_to_pef_file
| relocation_size==0x8f || relocation_size==0x0f
-> relocate_mw_toc symbol_a.[relocation_symbol_n]
(relocation_offset-text_v_address) module_offset_a first_symbol_n relocation_symbol_n marked_offset_a0 text_a0;
u
-> abort ("Unimplemented relocation type '"+++.toString u+++."' encountered\n")
}
}
{
......
......@@ -67,7 +67,10 @@ create_application_resource file_name add_carb /* RWS ... */ application_existed
THEN remove_resource "SIZE" 0
THEN remove_resource "SIZE" 1
THEN remove_resource "STHP" 0
THEN remove_resource "cfrg" 0;
THEN remove_resource "cfrg" 0
// DvA
THEN remove_resource "carb" 0;
// ...DvA
}
= (HOpenResFile 0 0 file_name 3 (HCreateResFile 0 0 file_name t1));
{}{
......
......@@ -83,6 +83,7 @@ read_xcoff_files file_names names_table0 one_pass_link files file_n
[file_name:file_names]
# (ok,xcoff_header_or_error_message,file,files) = open_file_and_read_xcoff_header file_name files;
| not ok
# (_,files) = fclose file files
-> ([xcoff_header_or_error_message],EndSections,file_n,[],names_table0,files);
| xcoff_header_or_error_message WORD 0==0x01DF
# (error,text_section,data_section,xcoff_file0,names_table1,files) = read_xcoff_file file_name names_table0 one_pass_link xcoff_header_or_error_message file files file_n;
......
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