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

+ win95 flag to the interface moved

Browse Source
This commit is contained in:
florian 1998-05-04 16:21:54 +00:00
parent f325d30461
commit b8d8fcccca
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/dos/go32v2/system.pp
View File

@ -91,9 +91,11 @@ var go32_info_block : t_go32_info_block;
reales,realds,realfs,realgs, reales,realds,realfs,realgs,
realip,realcs,realsp,realss : word; realip,realcs,realsp,realss : word;
end; end;
var var
dos_argv0 : pchar; dos_argv0 : pchar;
environ : ppchar; environ : ppchar;
{ Running under Win95 ? }
Win95 : boolean;
function do_write(h,addr,len : longint) : longint; function do_write(h,addr,len : longint) : longint;
function do_read(h,addr,len : longint) : longint; function do_read(h,addr,len : longint) : longint;
@ -113,9 +115,6 @@ var
const carryflag = 1; const carryflag = 1;
var
Win95 : boolean; {Running under Win95?}
{$S-} {$S-}
procedure st1(stack_size : longint);[public,alias: 'STACKCHECK']; procedure st1(stack_size : longint);[public,alias: 'STACKCHECK'];
@ -788,6 +787,7 @@ begin
end; end;
{ truncate at a given position }
procedure do_truncate (handle,pos:longint); procedure do_truncate (handle,pos:longint);
var var
regs : trealregs; regs : trealregs;
@ -1042,7 +1042,10 @@ Begin
End. End.
{ {
$Log$ $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 + seg* added
Revision 1.1.1.1 1998/03/25 11:18:42 root Revision 1.1.1.1 1998/03/25 11:18:42 root