* removed warnings

install/install.pas

@@ -390,7 +390,6 @@ program install;
        i,line : integer;
        items : psitem;
        p,f : pview;
-       s : string;
 
     const
        width = 76;
@@ -467,7 +466,6 @@ program install;
     var
        p    : pinstalldialog;
        p2   : punzipdialog;
-       p3   : pstatictext;
        r    : trect;
        result,
        c    : word;
@@ -549,6 +547,12 @@ program install;
 
 
 begin
+{$ifndef fpc}
+asm
+mov ax,3
+int 10h
+end;
+{$endif}
    getdir(0,startpath);
    successfull:=false;
 
@@ -571,7 +575,10 @@ begin
 end.
 {
   $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
    * the main dialog init was buggy !!
 

install/unzip.pas

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