浏览代码

+ added enum TNewExeTargetOS

git-svn-id: trunk@42187 -
nickysn 6 年之前
父节点
当前提交
ded3dec22a
共有 1 个文件被更改,包括 10 次插入0 次删除
  1. 10 0
      compiler/ogomf.pas

+ 10 - 0
compiler/ogomf.pas

@@ -346,6 +346,16 @@ interface
         nehfIsDLL);                                                   { bit 15 }
         nehfIsDLL);                                                   { bit 15 }
       TNewExeHeaderFlags = set of TNewExeHeaderFlag;
       TNewExeHeaderFlags = set of TNewExeHeaderFlag;
 
 
+      TNewExeTargetOS = (
+        netoUnknown                        = $00,
+        netoOS2                            = $01,
+        netoWindows                        = $02,
+        netoMultitaskingMsDos4             = $03,
+        netoWindows386                     = $04,
+        netoBorlandOperatingSystemServices = $05,
+        netoPharLap286DosExtenderOS2       = $81,
+        netoPharLap286DosExtenderWindows   = $82);
+
       TOmfAssembler = class(tinternalassembler)
       TOmfAssembler = class(tinternalassembler)
         constructor create(info: pasminfo; smart:boolean);override;
         constructor create(info: pasminfo; smart:boolean);override;
       end;
       end;