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

5
lib/stdlib.inc
View file

@ -240,6 +240,7 @@ procedure freadreal(var v:real;var f:file); external;
procedure openchannel(name:filenamestr; var f:file; mode:filemode; var error:integer); external; procedure openchannel(name:filenamestr; var f:file; mode:filemode; var error:integer); external;
procedure open(var f:file; name:pathnamestr; mode: filemode); external; procedure open(var f:file; name:pathnamestr; mode: filemode); external;
procedure noecho(var f:file; noecho:boolean; var old:boolean); external; procedure noecho(var f:file; noecho:boolean; var old:boolean); external;
procedure nointr(var f:file; aBool:boolean; var old:boolean); external;
procedure intstr(v:integer; fieldWith:integer; var rbuf:string); procedure intstr(v:integer; fieldWith:integer; var rbuf:string);
external; external;
@ -269,8 +270,8 @@ procedure TextDefault; external;
procedure PTerm; external; (* from runtime.s *) procedure PTerm; external; (* from runtime.s *)
procedure PExec(prgfile:pathnamestr; var args:PArgVec; argCount:integer;var error:integer); external; procedure PExec(prgfile:pathnamestr; var args:PArgVec; argCount:integer;var error:integer); external;
procedure PExec2(prgfile:pathnamestr; arg1:string; var error:integer); external; procedure PExec1(prgfile:pathnamestr; arg1:string; var error:integer); external;
procedure PExec3(prgfile:pathnamestr; arg1, arg2:string; var error:integer); external; procedure PExec2(prgfile:pathnamestr; arg1, arg2:string; var error:integer); external;
function ParamStr(i:integer):string; external; function ParamStr(i:integer):string; external;
function ParamCount():integer; external; function ParamCount():integer; external;

15
lib/stdlib.pas
View file

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

2
pcomp/pcomp.pas
View file

@ -1,5 +1,5 @@
(* Copyright 2021-2024 Sebastian Lederer. See the file LICENSE.md for details *) (* Copyright 2021-2024 Sebastian Lederer. See the file LICENSE.md for details *)
{$H384} {$H600}
{$S64} {$S64}
program PascalCompiler; program PascalCompiler;
{$R+} {$R+}

10
progs/shell.pas
View file

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