paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-08 07:38:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* halt moved to system.inc

Browse Source
This commit is contained in:
peter 2000-02-09 12:24:39 +00:00
parent 6c15031ffd
commit 1ed0599052
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/win32/syswin32.pp
View File

@ -208,14 +208,6 @@ end;
{$endif dummy} {$endif dummy}
procedure halt(errnum : byte);
begin
ExitCode:=errnum;
do_exit;
system_exit;
end;
function paramcount : longint; function paramcount : longint;
begin begin
paramcount := argc - 1; paramcount := argc - 1;
@ -229,7 +221,6 @@ end;
function GetCommandFile:pchar;forward; function GetCommandFile:pchar;forward;
function paramstr(l : longint) : string; function paramstr(l : longint) : string;
begin begin
if (l>=0) and (l<argc) then if (l>=0) and (l<argc) then
paramstr:=strpas(argv[l]) paramstr:=strpas(argv[l])
@ -1170,7 +1161,10 @@ end.
{ {
$Log$ $Log$
Revision 1.58 2000-01-20 23:38:02 peter Revision 1.59 2000-02-09 12:24:39 peter
* halt moved to system.inc
Revision 1.58 2000/01/20 23:38:02 peter
* support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase * support fm_inout as stdoutput for assign(f,'');rewrite(f,1); becuase
rewrite opens always with filemode 2 rewrite opens always with filemode 2