Commit 139f6330 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏢
Browse files

Made 2.0 compatible for linux.

parent 8eaab7c6
......@@ -396,8 +396,10 @@ Link winfun path u_system_file_name paths defs
= ((prog,io5),link_ok);
{}{
(u_startup_file_name,io1) = accFiles (MakeObjSystemPathname CurrentProcessor (MakeFullPathname system_directory_name startupModuleName)) io;
(u_reals_file_name,io2_) = accFiles (MakeObjSystemPathname CurrentProcessor (MakeFullPathname system_directory_name "_reals")) io1;
io2=IF_SOLARIS io2_ io1;
(u_reals_file_name,io2) =
IF_SOLARIS
(accFiles (MakeObjSystemPathname CurrentProcessor (MakeFullPathname system_directory_name "_reals")) io1)
("", io1);
libCleanxv_a_path = MakeFullPathname system_directory_name "libCleanxv.a";
(link_ok,io3) = accFiles link io2;
((std_error_not_empty,std_error_text),io4) = accFiles (ReadFileAsText errors_file_name) io3;
......@@ -735,6 +737,8 @@ exec file_name args wait_after_exec
fill_arguments [] argp argsp argv
| store_long argp 0==0 && store_byte argsp 0==0 && store_byte (argsp+1) 0==0
= argv;
// otherwise
= abort "fill_arguments []\n";
fill_arguments [arg:args] argp argsp argv
| store_long argp argsp==argsp && store_zstring 0==0
= fill_arguments args (argp+4) (argsp+size arg+1) argv;
......
Supports Markdown
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