paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-18 22:09:32 +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
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