From 469d1cc5cf276591d6cd27762b539975e6b6feb6 Mon Sep 17 00:00:00 2001
From: olle <olle>
Date: Mon, 24 Jan 2005 17:46:18 +0000
Subject: [PATCH]   + ppu files now has FPas as creator code on MacOS

---
 compiler/ppu.pas | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/compiler/ppu.pas b/compiler/ppu.pas
index e8762b416f..f5f82f3dfa 100644
--- a/compiler/ppu.pas
+++ b/compiler/ppu.pas
@@ -746,9 +746,18 @@ begin
   if not crc_only then
     begin
       assign(f,fname);
+      {$ifdef MACOS}
+      {FPas is FreePascal's creator code on MacOS. See systems/mac_crea.txt}
+      SetDefaultMacOSCreator('FPas');  
+      SetDefaultMacOSFiletype('FPPU');
+      {$endif}
       {$I-}
-       rewrite(f,1);
+      rewrite(f,1);
       {$I+}
+      {$ifdef MACOS}
+      SetDefaultMacOSCreator('MPS ');
+      SetDefaultMacOSFiletype('TEXT');
+      {$endif}
       if ioresult<>0 then
        exit;
       Mode:=2;
@@ -1060,7 +1069,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.62  2005-01-19 22:19:41  peter
+  Revision 1.63  2005-01-24 17:46:18  olle
+    + ppu files now has FPas as creator code on MacOS
+
+  Revision 1.62  2005/01/19 22:19:41  peter
     * unit mapping rewrite
     * new derefmap added