← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to fv/stddlg.pas

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fv/stddlg.pas
1
 
{ $Id: stddlg.pas,v 1.20 2005/03/07 16:59:42 peter Exp $  }
2
1
{*******************************************************}
3
2
{ Free Vision Runtime Library                           }
4
3
{ StdDlg Unit                                           }
561
560
{****************************************************************************}
562
561
 
563
562
uses
564
 
  App, Memory, HistList, MsgBox, Resource;
 
563
  App, {Memory,} HistList, MsgBox, Resource;
565
564
 
566
565
type
567
566
 
1020
1019
     if (S.Attr and Directory = 0) and
1021
1020
        MatchesMaskList(S.Name,WildName) then
1022
1021
     begin
1023
 
       P := MemAlloc(SizeOf(P^));
 
1022
{       P := MemAlloc(SizeOf(P^));
1024
1023
       if assigned(P) then
1025
 
       begin
 
1024
       begin} 
 
1025
         new(P);
1026
1026
         P^.Attr:=S.Attr;
1027
1027
         P^.Time:=S.Time;
1028
1028
         P^.Size:=S.Size;
1029
1029
         P^.Name:=S.Name;
1030
1030
         FileList^.Insert(P);
1031
 
       end;
 
1031
{       end;}
1032
1032
     end;
1033
1033
     FindNext(S);
1034
1034
   end;
1042
1042
  begin
1043
1043
    if (S.Attr and Directory <> 0) and (S.Name <> '.') and (S.Name <> '..') then
1044
1044
    begin
1045
 
      P := MemAlloc(SizeOf(P^));
 
1045
{      P := MemAlloc(SizeOf(P^));
1046
1046
      if P <> nil then
1047
 
      begin
 
1047
      begin}
 
1048
        new(p);
1048
1049
        P^.Attr:=S.Attr;
1049
1050
        P^.Time:=S.Time;
1050
1051
        P^.Size:=S.Size;
1051
1052
        P^.Name:=S.Name;
1052
1053
        FileList^.Insert(P);
1053
 
      end;
 
1054
{      end;}
1054
1055
    end;
1055
1056
    FindNext(S);
1056
1057
  end;
1061
1062
  if Length(Dir) > 4 then
1062
1063
 {$endif not Unix}
1063
1064
  begin
 
1065
{
1064
1066
    P := MemAlloc(SizeOf(P^));
1065
1067
    if P <> nil then
1066
 
    begin
 
1068
    begin}
 
1069
      new(p);
1067
1070
      FindFirst(Tmp, Directory, S);
1068
1071
      FindNext(S);
1069
1072
      if (DosError = 0) and (S.Name = PrevDir) then
1084
1087
     {$ifdef fpc}
1085
1088
      FindClose(S);
1086
1089
     {$endif}
1087
 
    end;
 
1090
{    end;}
1088
1091
  end;
1089
1092
  if P = nil then
1090
1093
    MessageBox(strings^.get(sTooManyFiles), nil, mfOkButton + mfWarning);
2728
2731
  DeleteFile := @StdDeleteFile;
2729
2732
{$endif PPC_BP}
2730
2733
end.
2731
 
 
2732
 
{
2733
 
 $Log: stddlg.pas,v $
2734
 
 Revision 1.20  2005/03/07 16:59:42  peter
2735
 
   * fix matchmask
2736
 
 
2737
 
 Revision 1.19  2005/02/14 17:13:18  peter
2738
 
   * truncate log
2739
 
 
2740
 
}