* RTLLITE conditional added to produce smaller RTL.

rtl/dos/go32v2/system.pp

@@ -50,8 +50,11 @@ var
   argv  : ppchar;
   envp  : ppchar;
   dos_argv0 : pchar;
+
+{$ifndef RTLLITE}
 { System info }
   Win95 : boolean;
+{$endif RTLLITE}
 
 type
 { Dos Extender info }
@@ -165,7 +168,7 @@ _is_not_lowest:
 {$endif SYSTEMDEBUG}
         movl    __stkbottom,%ebx
         cmpl    %eax,%ebx
-        jae     __short_on_stack
+		jae     __short_on_stack
         popl    %ebx
         popl    %eax
         leave
@@ -241,7 +244,7 @@ end;
               movw dseg,%ax
               movw %ax,%es
               movw sseg,%ax
-              movw %ax,%ds
+			  movw %ax,%ds
               movl %ecx,%eax
               shrl $2,%ecx
               rep
@@ -279,7 +282,7 @@ end;
               rep
               movsb
               incl %esi
-              incl %edi
+			  incl %edi
            .LSEG_MOVE1:
               subl $4,%esi
               subl $4,%edi
@@ -301,7 +304,7 @@ begin
 rv := 0;
 while (s^ <>#0) do
   begin
-  v := ord(s^) - ord('0');
+  v := byte(s^) - byte('0');
   if (v > 9) then v := v - 7;
   v := v and 15; { in case it's lower case }
   rv := rv*16 + v;
@@ -313,11 +316,11 @@ end;
 procedure setup_arguments;
 type  arrayword = array [0..0] of word;
 var psp : word;
-    i,j : byte;
-    quote : char;
-    proxy_s : string[7];
-    tempargv : ppchar;
-    al,proxy_argc,proxy_seg,proxy_ofs,lin : longint;
+	i,j : byte;
+	quote : char;
+	proxy_s : string[7];
+	tempargv : ppchar;
+	al,proxy_argc,proxy_seg,proxy_ofs,lin : longint;
     largs : array[0..127] of pchar;
     rm_argv : ^arrayword;
 begin
@@ -339,7 +342,7 @@ for i:=1 to length(doscmd) do
     quote := #0;
     doscmd[i] := #0;
     largs[argc]:=@doscmd[j];
-    inc(argc);
+	inc(argc);
     j := i+1;
     end else
   if (quote = #0) and ((doscmd[i] = '''') or (doscmd[i]='"')) then
@@ -377,7 +380,7 @@ if (argc > 1) and (far_strlen(get_ds,longint(largs[1])) = 6)  then
     Writeln('proxy command line ');
 {$EndIf SYSTEMDEBUG}
     proxy_argc := atohex(largs[2]);
-    proxy_seg  := atohex(largs[3]);
+	proxy_seg  := atohex(largs[3]);
     proxy_ofs := atohex(largs[4]);
     getmem(rm_argv,proxy_argc*sizeof(word));
     sysseg_move(dos_selector,proxy_seg*16+proxy_ofs, get_ds,longint(rm_argv),proxy_argc*sizeof(word));
@@ -415,7 +418,7 @@ function strcopy(dest,source : pchar) : pchar;
             movl 12(%ebp),%edi
             movl $0xffffffff,%ecx
             xorb %al,%al
-            repne
+			repne
             scasb
             not %ecx
             movl 8(%ebp),%edi
@@ -475,7 +478,7 @@ begin
     inc(longint(cp)); { skip to next character }
     end;
   envp[env_count]:=nil;
-  inc(longint(cp),3);
+  longint(cp):=longint(cp)+3;
   getmem(dos_argv0,strlen(cp)+1);
   if (dos_argv0 = nil) then halt;
   strcopy(dos_argv0, cp);
@@ -491,7 +494,7 @@ end;
      begin
         if len > tb_size then runerror(217);
         sysseg_move(dos_selector,tb,get_ds,addr,len);
-     end;
+	 end;
 
     procedure sysrealintr(intnr : word;var regs : trealregs);
 
@@ -586,9 +589,11 @@ begin
   syscopytodos(longint(p),strlen(p)+1);
   regs.realedx:=tb and 15;
   regs.realds:=tb shr 4;
+{$ifndef RTLLITE}
   if Win95 then
    regs.realeax:=$7141
   else
+{$endif RTLLITE}
    regs.realeax:=$4100;
   regs.realesi:=0;
   regs.realecx:=0;
@@ -612,9 +617,11 @@ begin
   regs.realedx:=tb and 15 + strlen(p2)+2;
   regs.realds:=tb shr 4;
   regs.reales:=regs.realds;
+{$ifndef RTLLITE}
   if Win95 then
    regs.realeax:=$7156
   else
+{$endif RTLLITE}
    regs.realeax:=$5600;
   regs.realecx:=$ff;            { attribute problem here ! }
   sysrealintr($21,regs);
@@ -632,24 +639,24 @@ begin
   writesize:=0;
   while len > 0 do
    begin
-     if len>tb_size then
-      size:=tb_size
-     else
-      size:=len;
-     syscopytodos(addr+writesize,size);
-     regs.realecx:=size;
-     regs.realedx:=tb and 15;
-     regs.realds:=tb shr 4;
-     regs.realebx:=h;
-     regs.realeax:=$4000;
-     sysrealintr($21,regs);
-     if (regs.realflags and carryflag) <> 0 then
-      begin
-        InOutRes:=lo(regs.realeax);
-        exit(writesize);
-      end;
-     len:=len-size;
-     writesize:=writesize+size;
+	 if len>tb_size then
+	  size:=tb_size
+	 else
+	  size:=len;
+	 syscopytodos(addr+writesize,size);
+	 regs.realecx:=size;
+	 regs.realedx:=tb and 15;
+	 regs.realds:=tb shr 4;
+	 regs.realebx:=h;
+	 regs.realeax:=$4000;
+	 sysrealintr($21,regs);
+	 if (regs.realflags and carryflag) <> 0 then
+	  begin
+		InOutRes:=lo(regs.realeax);
+		exit(writesize);
+	  end;
+	 len:=len-size;
+	 writesize:=writesize+size;
    end;
   Do_Write:=WriteSize
 end;
@@ -681,7 +688,7 @@ begin
         exit;
       end
      else
-      if regs.realeax<size then
+	  if regs.realeax<size then
        begin
          syscopyfromdos(addr+readsize,regs.realeax);
          do_read:=readsize+regs.realeax;
@@ -795,7 +802,7 @@ begin
       fminput,fmoutput,fminout : Do_Close(filerec(f).handle);
       fmclosed : ;
      else
-      begin
+	  begin
         inoutres:=102; {not assigned}
         exit;
       end;
@@ -830,9 +837,11 @@ begin
    end;
 { real dos call }
   syscopytodos(longint(p),strlen(p)+1);
+{$ifndef RTLLITE}
   if Win95 then
    regs.realeax:=$716c
   else
+{$endif RTLLITE}
    regs.realeax:=$6c00;
   regs.realedx:=action;
   regs.realds:=tb shr 4;
@@ -842,27 +851,27 @@ begin
   sysrealintr($21,regs);
   if (regs.realflags and carryflag) <> 0 then
    begin
-     InOutRes:=lo(regs.realeax);
-     exit;
+	 InOutRes:=lo(regs.realeax);
+	 exit;
    end
   else
    filerec(f).handle:=regs.realeax;
 { append mode }
   if (flags and $10)<>0 then
    begin
-     do_seekend(filerec(f).handle);
-     filerec(f).mode:=fmoutput; {fool fmappend}
+	 do_seekend(filerec(f).handle);
+	 filerec(f).mode:=fmoutput; {fool fmappend}
    end;
 end;
 
 {*****************************************************************************
-                           UnTyped File Handling
+						   UnTyped File Handling
 *****************************************************************************}
 
 {$i file.inc}
 
 {*****************************************************************************
-                           Typed File Handling
+						   Typed File Handling
 *****************************************************************************}
 
 {$i typefile.inc}
@@ -890,9 +899,11 @@ begin
   syscopytodos(longint(@buffer),length(s)+1);
   regs.realedx:=tb and 15;
   regs.realds:=tb shr 4;
+{$ifndef RTLLITE}
   if Win95 then
    regs.realeax:=$7100+func
   else
+{$endif RTLLITE}
    regs.realeax:=func shl 8;
   sysrealintr($21,regs);
   if (regs.realflags and carryflag) <> 0 then
@@ -927,15 +938,17 @@ begin
   regs.realedx:=drivenr;
   regs.realesi:=tb and 15;
   regs.realds:=tb shr 4;
+{$ifndef RTLLITE}
   if Win95 then
    regs.realeax:=$7147
   else
+{$endif RTLLITE}
    regs.realeax:=$4700;
   sysrealintr($21,regs);
   if (regs.realflags and carryflag) <> 0 then
    Begin
-     InOutRes:=lo(regs.realeax);
-     exit;
+	 InOutRes:=lo(regs.realeax);
+	 exit;
    end
   else
    syscopyfromdos(longint(@temp),251);
@@ -943,34 +956,35 @@ begin
   i:=0;
   while (temp[i]<>#0) do
    begin
-     if temp[i]='/' then
-      temp[i]:='\';
-     dir[i+4]:=temp[i];
-     inc(i);
+	 if temp[i]='/' then
+	  temp[i]:='\';
+	 dir[i+4]:=temp[i];
+	 inc(i);
    end;
   dir[2]:=':';
   dir[3]:='\';
-  dir[0]:=chr(i+3);
+  dir[0]:=char(i+3);
 { upcase the string }
   dir:=upcase(dir);
   if drivenr<>0 then   { Drive was supplied. We know it }
-   dir[1]:=chr(65+drivenr-1)
+   dir[1]:=char(65+drivenr-1)
   else
    begin
    { We need to get the current drive from DOS function 19H  }
    { because the drive was the default, which can be unknown }
-     regs.realeax:=$1900;
-     sysrealintr($21,regs);
-     i:= (regs.realeax and $ff) + ord('A');
-     dir[1]:=chr(i);
+	 regs.realeax:=$1900;
+	 sysrealintr($21,regs);
+	 i:= (regs.realeax and $ff) + ord('A');
+	 dir[1]:=chr(i);
    end;
 end;
 
 
 {*****************************************************************************
-                         SystemUnit Initialization
+						 SystemUnit Initialization
 *****************************************************************************}
 
+{$ifndef RTLLITE}
 function CheckWin95:boolean;
 var
   regs : TRealRegs;
@@ -979,6 +993,7 @@ begin
   sysrealintr($2f,regs);
   CheckWin95:=(regs.realeax=0) and ((regs.realebx and $ff00)=$400);
 end;
+{$endif RTLLITE}
 
 
 procedure OpenStdIO(var f:text;mode:word;hdl:longint);
@@ -1013,7 +1028,11 @@ Begin
 End.
 {
   $Log$
-  Revision 1.6  1998-05-31 14:18:29  peter
+  Revision 1.7  1998-06-15 15:17:08  daniel
+
+  * RTLLITE conditional added to produce smaller RTL.
+
+  Revision 1.6  1998/05/31 14:18:29  peter
     * force att or direct assembling
     * cleanup of some files