paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 04:39:22 +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 begin
if (target_info.system in [system_i8086_msdos]) then if (target_info.system in [system_i8086_msdos]) then
begin begin
Writeln('>', Upper(Copy(More,j+1,255)), '<');
case Upper(Copy(More,j+1,255)) of case Upper(Copy(More,j+1,255)) of
'TINY': init_settings.x86memorymodel:=mm_tiny; 'TINY': init_settings.x86memorymodel:=mm_tiny;
'SMALL': init_settings.x86memorymodel:=mm_small; 'SMALL': init_settings.x86memorymodel:=mm_small;
'MEDIUM', 'MEDIUM': init_settings.x86memorymodel:=mm_medium;
'COMPACT', 'COMPACT',
'LARGE', 'LARGE',
'HUGE': IllegalPara(opt); { these are not implemented yet } 'HUGE': IllegalPara(opt); { these are not implemented yet }