slederer/Tridora-CPU
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 3 Wiki Activity Actions

stdlib: add nointr procedure

Browse source 
stdlib: give PExec2 and PExec3 more sensible names

pcomp: increase heap size
This commit is contained in:
slederer 2025-02-02 01:18:01 +01:00
parent b0c4b664f2
commit c779cd0d3f
4 changed files with 22 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/stdlib.pas
View file

@ -2563,6 +2563,16 @@ begin
end;
end;
procedure nointr(var f:file;aBool:boolean;var old:boolean);
begin
if f.typ <> IOChannel then
fileerror(f, IOInvalidOp)
else
begin
old := f.nointr;
f.nointr := nointr;
end;
end;
(*
implementation of Xorshift algorithm by George Marsaglia,
see: Marsaglia, George (July 2003).
@ -2599,6 +2609,7 @@ begin
if ord(aChar) <= ord('z') then
upcase := chr(ord(aChar) - 32)
else
upcase := aChar
else
upcase := aChar;
end;
@ -2664,14 +2675,14 @@ begin
end;
end;
procedure PExec2(prgfile:pathnamestr; arg1:string; var error:integer);
procedure PExec1(prgfile:pathnamestr; arg1:string; var error:integer);
var args:PArgVec;
begin
args[0] := arg1;
PExec(prgfile, args, 1, error);
end;
procedure PExec3(prgfile:pathnamestr; arg1, arg2:string; var error:integer);
procedure PExec2(prgfile:pathnamestr; arg1, arg2:string; var error:integer);
var args:PArgVec;
begin
args[0] := arg1;