paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 05:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ On GO32, GBA and NDS, disable RTL features that aren't implemented.

Browse Source 
git-svn-id: trunk@6521 -
This commit is contained in:
daniel 2007-02-17 09:10:27 +00:00
parent d4160ca74f
commit a662c5fedb
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/globals.pas
View File

@ -1198,8 +1198,7 @@ implementation
LinkLibraryOrder :=TLinkStrMap.Create; LinkLibraryOrder :=TLinkStrMap.Create;
{ enable all features by default } { enable all features by default }
for i:=low(tfeature) to high(tfeature) do features:=[low(Tfeature)..high(Tfeature)];
include(features,i);
end; end;
end. end.

6
compiler/parser.pas
View File

@ -120,6 +120,12 @@ implementation
include(supported_calling_conventions,pocall_syscall); include(supported_calling_conventions,pocall_syscall);
system_m68k_amiga: system_m68k_amiga:
include(supported_calling_conventions,pocall_syscall); include(supported_calling_conventions,pocall_syscall);
system_arm_gba:
features:=features-[f_threading,f_commandargs,f_fileio,f_textio];
system_arm_nds:
features:=features-[f_threading,f_commandargs,f_fileio,f_textio];
system_i386_go32v2:
features:=features-[f_threading];
end; end;
end; end;