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

20
compiler/scandir.pas
View File

@ -120,19 +120,18 @@ implementation
hs:=current_scanner.readid; hs:=current_scanner.readid;
if (hs='ON') then if (hs='ON') then
aktpackrecords:=4 aktpackrecords:=4
else else if (hs='OFF') then
if (hs='OFF') then
aktpackrecords:=1 aktpackrecords:=1
else if m_mac in aktmodeswitches then
begin
{ Support switches used in Apples Universal Interfaces} { Support switches used in Apples Universal Interfaces}
else if (hs='MAC68K') then
if (hs='MAC68K') and (m_mac in aktmodeswitches) then
aktpackrecords:=2 aktpackrecords:=2
else else if (hs='POWER') then
if (hs='POWER') and (m_mac in aktmodeswitches) then
aktpackrecords:=4 aktpackrecords:=4
else else if (hs='RESET') then
if (hs='RESET') and (m_mac in aktmodeswitches) then
aktpackrecords:=0 aktpackrecords:=0
end
else else
Message(scan_w_only_pack_records); Message(scan_w_only_pack_records);
end end
@ -1004,7 +1003,10 @@ implementation
end. end.
{ {
$Log$ $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 + mode macpas: support for Apples align directives
Revision 1.32 2004/04/04 18:46:09 olle Revision 1.32 2004/04/04 18:46:09 olle