From b8d8fccccae77dddd208ad0010d45ffe138a2366 Mon Sep 17 00:00:00 2001 From: florian Date: Mon, 4 May 1998 16:21:54 +0000 Subject: [PATCH] + win95 flag to the interface moved --- rtl/dos/go32v2/system.pp | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/rtl/dos/go32v2/system.pp b/rtl/dos/go32v2/system.pp index a22e3e8d64..749eb128ec 100644 --- a/rtl/dos/go32v2/system.pp +++ b/rtl/dos/go32v2/system.pp @@ -91,9 +91,11 @@ var go32_info_block : t_go32_info_block; reales,realds,realfs,realgs, realip,realcs,realsp,realss : word; end; -var - dos_argv0 : pchar; - environ : ppchar; + var + dos_argv0 : pchar; + environ : ppchar; + { Running under Win95 ? } + Win95 : boolean; function do_write(h,addr,len : longint) : longint; function do_read(h,addr,len : longint) : longint; @@ -113,9 +115,6 @@ var const carryflag = 1; - var - Win95 : boolean; {Running under Win95?} - {$S-} procedure st1(stack_size : longint);[public,alias: 'STACKCHECK']; @@ -788,6 +787,7 @@ begin end; +{ truncate at a given position } procedure do_truncate (handle,pos:longint); var regs : trealregs; @@ -1042,7 +1042,10 @@ Begin End. { $Log$ - Revision 1.2 1998-03-30 21:49:12 florian + Revision 1.3 1998-05-04 16:21:54 florian + + win95 flag to the interface moved + + Revision 1.2 1998/03/30 21:49:12 florian + seg* added Revision 1.1.1.1 1998/03/25 11:18:42 root