paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-23 22:52:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ ppu files now has FPas as creator code on MacOS

Browse Source
This commit is contained in:
olle 2005-01-24 17:46:18 +00:00
parent b78d92b99d
commit 469d1cc5cf
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ppu.pas
View File

@ -746,9 +746,18 @@ begin
if not crc_only then if not crc_only then
begin begin
assign(f,fname); assign(f,fname);
{$ifdef MACOS}
{FPas is FreePascal's creator code on MacOS. See systems/mac_crea.txt}
SetDefaultMacOSCreator('FPas');
SetDefaultMacOSFiletype('FPPU');
{$endif}
{$I-} {$I-}
rewrite(f,1); rewrite(f,1);
{$I+} {$I+}
{$ifdef MACOS}
SetDefaultMacOSCreator('MPS ');
SetDefaultMacOSFiletype('TEXT');
{$endif}
if ioresult<>0 then if ioresult<>0 then
exit; exit;
Mode:=2; Mode:=2;
@ -1060,7 +1069,10 @@ end;
end. end.
{ {
$Log$ $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 * unit mapping rewrite
* new derefmap added * new derefmap added