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

10
progs/shell.pas
View file

@ -324,7 +324,7 @@ begin
PExec(EDITORPROG, args, 3, error);
end
else
PExec2(EDITORPROG, ShellWorkFile, error);
PExec1(EDITORPROG, ShellWorkFile, error);
writeln('PExec error ', error);
end;
@ -334,7 +334,7 @@ var filename:filenamestr;
begin
requireWorkfile;
filename := replaceExtension(ShellWorkFile, '.s');
PExec2(ASMPROG, filename, error);
PExec1(ASMPROG, filename, error);
writeln('PExec error ', error);
end;
@ -344,7 +344,7 @@ var filename:filenamestr;
begin
requireWorkfile;
filename := replaceExtension(ShellWorkFile, '.pas');
PExec3(COMPILERPROG, '-S', filename, error);
PExec2(COMPILERPROG, '-S', filename, error);
writeln('PExec error ', error);
end;
@ -354,7 +354,7 @@ var filename:filenamestr;
begin
requireWorkfile;
filename := replaceExtension(ShellWorkFile, '.pas');
PExec2(COMPILERPROG, filename, error);
PExec1(COMPILERPROG, filename, error);
writeln('PExec error ', error);
end;
@ -373,7 +373,7 @@ end;
procedure krunch;
var error:integer;
begin
PExec2(RECLAIMPROG, DefaultVolume, error);
PExec1(RECLAIMPROG, DefaultVolume, error);
writeln('PExec error ', error);
end;