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

pcomp: Increase heap and stack sizes

Browse source
This commit is contained in:
slederer 2025-01-12 00:02:54 +01:00
parent 347b57cae3
commit 74a467cba6
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/stdlib.pas
View file

@ -47,7 +47,7 @@ type file = record
ateof:boolean;
noecho:boolean; (* read chars are not echoed *)
raw:boolean; (* turn off backspace processing on input, CR processing on output *)
nointr: boolean); (* turn off keyboard interrupt character processing *)
nointr:boolean); (* turn off keyboard interrupt character processing *)
IODiskFile: (volumeid: integer;fileno: integer; filpos:integer; bufStart:integer;
size:integer; sizeExtents:integer;
@ -480,6 +480,9 @@ end;
That means you cannot use pos to search inside a string
literal. Hopefully this is not something you want to do.
*)
(* TODO: UCSD-Pascal and TP3.0 specs say, searched string
is a string expression so cannot be var parameter *)
function pos(substr:string;var s:string):integer;
var substrlen:integer;
slen:integer;