paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 16:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Performanceimprovement

Browse Source
This commit is contained in:
olle 2004-05-11 22:51:34 +00:00
parent 311473b80f
commit 717ca3489e
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/scandir.pas
View File

@ -120,21 +120,20 @@ implementation
hs:=current_scanner.readid;
if (hs='ON') then
aktpackrecords:=4
else
if (hs='OFF') then
else if (hs='OFF') then
aktpackrecords:=1
{ Support switches used in Apples Universal Interfaces}
else if m_mac in aktmodeswitches then
begin
{ Support switches used in Apples Universal Interfaces}
if (hs='MAC68K') then
aktpackrecords:=2
else if (hs='POWER') then
aktpackrecords:=4
else if (hs='RESET') then
aktpackrecords:=0
end
else
if (hs='MAC68K') and (m_mac in aktmodeswitches) then
aktpackrecords:=2
else
if (hs='POWER') and (m_mac in aktmodeswitches) then
aktpackrecords:=4
else
if (hs='RESET') and (m_mac in aktmodeswitches) then
aktpackrecords:=0
else
Message(scan_w_only_pack_records);
Message(scan_w_only_pack_records);
end
else
begin
@ -1004,7 +1003,10 @@ implementation
end.
{
$Log$
Revision 1.33 2004-05-11 18:30:50 olle
Revision 1.34 2004-05-11 22:51:34 olle
* Performanceimprovement
Revision 1.33 2004/05/11 18:30:50 olle
+ mode macpas: support for Apples align directives
Revision 1.32 2004/04/04 18:46:09 olle