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

* removed warnings

Browse Source
This commit is contained in:
peter 1998-10-25 23:38:35 +00:00
parent d736ecaf4d
commit bd6a47bab1
2 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
install/install.pas
View File

@ -390,7 +390,6 @@ program install;
i,line : integer; i,line : integer;
items : psitem; items : psitem;
p,f : pview; p,f : pview;
s : string;
const const
width = 76; width = 76;
@ -467,7 +466,6 @@ program install;
var var
p : pinstalldialog; p : pinstalldialog;
p2 : punzipdialog; p2 : punzipdialog;
p3 : pstatictext;
r : trect; r : trect;
result, result,
c : word; c : word;
@ -549,6 +547,12 @@ program install;
begin begin
{$ifndef fpc}
asm
mov ax,3
int 10h
end;
{$endif}
getdir(0,startpath); getdir(0,startpath);
successfull:=false; successfull:=false;
@ -571,7 +575,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.9 1998-10-23 16:57:40 pierre Revision 1.10 1998-10-25 23:38:35 peter
* removed warnings
Revision 1.9 1998/10/23 16:57:40 pierre
* compiles without -So option * compiles without -So option
* the main dialog init was buggy !! * the main dialog init was buggy !!

11
install/unzip.pas
View File

@ -37,7 +37,11 @@ Unzips deflated, imploded, shrunk and stored files
} }
INTERFACE INTERFACE
{$F+}
{$IFNDEF FPC}
{$F+}
{$ENDIF}
{$R-} {No range checking} {$R-} {No range checking}
USES USES
@ -377,8 +381,9 @@ VAR w : longint; {Current Position in slide}
totalabort, {User pressed abort button, set in showpercent!} totalabort, {User pressed abort button, set in showpercent!}
zipeof : boolean; {read over end of zip section for this file} zipeof : boolean; {read over end of zip section for this file}
inuse : boolean; {is unit already in use -> don't call it again!!!} inuse : boolean; {is unit already in use -> don't call it again!!!}
{$ifdef windows}
lastusedtime : longint; {Time of last usage in timer ticks for timeout!} lastusedtime : longint; {Time of last usage in timer ticks for timeout!}
{$endif}
(***************************************************************************) (***************************************************************************)
{.$I z_tables.pas} {Tables for bit masking, huffman codes and CRC checking} {.$I z_tables.pas} {Tables for bit masking, huffman codes and CRC checking}
@ -3003,7 +3008,7 @@ BEGIN
strcopy ( FileName, thename ); strcopy ( FileName, thename );
Size := UnZipSize ( SourceZipFile, CompressSize ); Size := UnZipSize ( SourceZipFile, CompressSize );
IF Size = 0 THEN ratio := 0 ELSE IF Size = 0 THEN ratio := 0 ELSE
Ratio := 100 -Round ( ( CompressSize /Size ) * 100 ); Ratio := 100 -Round ( ( CompressSize / Size ) * 100 );
Status := unzip_starting; Status := unzip_starting;
Report ( Status, @ZipRec ); Report ( Status, @ZipRec );
END; {start of ZIP file} END; {start of ZIP file}