瀏覽代碼

* use special symbols for portability's sake

carl 23 年之前
父節點
當前提交
2502bdbf59
共有 2 個文件被更改,包括 10 次插入12 次删除
  1. 5 6
      utils/dxegen/dxegen.pp
  2. 5 6
      utils/ptopu.pp

+ 5 - 6
utils/dxegen/dxegen.pp

@@ -17,11 +17,7 @@ Uses Strings,DxeLoad,Coff,Dos;
 {$inline on}
 
 Const
-{$ifdef Unix}
-  DirSep  = '/';
-{$else}
-  DirSep  = '\';
-{$endif}
+  DirSep  = System.DirectorySeparator;
   Tempname= 'dxe__tmp.o';
 
 { This next function is needed for cross-compiling when the machine
@@ -314,7 +310,10 @@ Begin
 End.
 {
  $Log$
- Revision 1.4  2002-06-01 18:39:15  marco
+ Revision 1.5  2002-07-14 13:39:45  carl
+   * use special symbols for portability's sake
+
+ Revision 1.4  2002/06/01 18:39:15  marco
   * Renamefest
 
  Revision 1.3  2001/08/02 12:50:46  jonas

+ 5 - 6
utils/ptopu.pp

@@ -561,11 +561,7 @@ end;
 Procedure WriteCR (S: PStream);
 
 Const
-{$ifdef Unix}
-  Newline = #10;
-{$else}
-  NewLine = #13#10;
-{$endif}
+  Newline = System.LineEnding;
 
 begin
   WriteString(S,Newline);
@@ -1223,7 +1219,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-06-01 18:39:14  marco
+  Revision 1.4  2002-07-14 13:39:45  carl
+    * use special symbols for portability's sake
+
+  Revision 1.3  2002/06/01 18:39:14  marco
    * Renamefest
 
   Revision 1.2  2002/02/27 16:35:31  carl