paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 13:31:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ enabled the command line option for the medium memory model

Browse Source 
git-svn-id: trunk@24847 -
This commit is contained in:
nickysn 2013-06-09 17:57:42 +00:00
parent b5c032874f
commit 435a97059d
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/options.pas
View File

@ -1848,11 +1848,10 @@ begin
begin
if (target_info.system in [system_i8086_msdos]) then
begin
Writeln('>', Upper(Copy(More,j+1,255)), '<');
case Upper(Copy(More,j+1,255)) of
'TINY': init_settings.x86memorymodel:=mm_tiny;
'SMALL': init_settings.x86memorymodel:=mm_small;
'MEDIUM',
'TINY': init_settings.x86memorymodel:=mm_tiny;
'SMALL': init_settings.x86memorymodel:=mm_small;
'MEDIUM': init_settings.x86memorymodel:=mm_medium;
'COMPACT',
'LARGE',
'HUGE': IllegalPara(opt); { these are not implemented yet }