paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 12:30:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* dpmi can only be set after reading the options

Browse Source
This commit is contained in:
peter 1999-10-13 10:24:49 +00:00
parent b8da895212
commit 1e940ee840
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/options.pas
View File

@ -1053,8 +1053,6 @@ begin
{$ifdef i386} {$ifdef i386}
def_symbol('CPU86'); def_symbol('CPU86');
def_symbol('CPU87'); def_symbol('CPU87');
if (target_info.target in [target_i386_GO32V1,target_i386_GO32V2]) then
def_symbol('DPMI'); { MSDOS is not defined in BP when target is DPMI }
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
def_symbol('CPU68'); def_symbol('CPU68');
@ -1219,6 +1217,10 @@ begin
(cs_profile in initmoduleswitches) then (cs_profile in initmoduleswitches) then
initglobalswitches:=initglobalswitches-[cs_link_strip]; initglobalswitches:=initglobalswitches-[cs_link_strip];
{ Set defines depending on the target }
if (target_info.target in [target_i386_GO32V1,target_i386_GO32V2]) then
def_symbol('DPMI'); { MSDOS is not defined in BP when target is DPMI }
MaybeLoadMessageFile; MaybeLoadMessageFile;
dispose(option,Done); dispose(option,Done);
@ -1228,7 +1230,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.24 1999-10-03 19:44:41 peter Revision 1.25 1999-10-13 10:24:49 peter
* dpmi can only be set after reading the options
Revision 1.24 1999/10/03 19:44:41 peter
* removed objpasunit reference, tvarrec is now searched in systemunit * removed objpasunit reference, tvarrec is now searched in systemunit
where it already was located where it already was located