paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 11:38:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Enlarge target os/full variable for wasip1threads

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-03 15:21:13 +01:00
parent aaf0bf7e19
commit aeef060a0b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/systems.pas
View File

@ -558,8 +558,8 @@ interface
target_res : tresinfo;
target_dbg : tdbginfo;
target_cpu_string,
target_os_string : string[12]; { for rtl/<X>/,fcl/<X>/, etc. }
target_full_string : string[24];
target_os_string : string[14]; { for rtl/<X>/,fcl/<X>/, etc. }
target_full_string : string[28];
function set_target(t:tsystem):boolean;
function set_target_asm(t:tasm):boolean;
@ -643,6 +643,7 @@ begin
target_os_string:=lower(target_info.shortname);
target_cpu_string:=cpu2str[target_cpu];
target_full_string:=target_cpu_string+'-'+target_os_string;
Writeln('Full target :',target_full_string);
set_target:=true;
exit;
end;