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; ateof:boolean;
noecho:boolean; (* read chars are not echoed *) noecho:boolean; (* read chars are not echoed *)
raw:boolean; (* turn off backspace processing on input, CR processing on output *) 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; IODiskFile: (volumeid: integer;fileno: integer; filpos:integer; bufStart:integer;
size:integer; sizeExtents:integer; size:integer; sizeExtents:integer;
@ -480,6 +480,9 @@ end;
That means you cannot use pos to search inside a string That means you cannot use pos to search inside a string
literal. Hopefully this is not something you want to do. 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; function pos(substr:string;var s:string):integer;
var substrlen:integer; var substrlen:integer;
slen:integer; slen:integer;

2
pcomp/pcomp.pas
View file

@ -1,4 +1,6 @@
(* 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}
{$S64}
program PascalCompiler; program PascalCompiler;
{$R+} {$R+}
{$!}{$ifdef FPC}uses math,crt;{$endif} {$!}{$ifdef FPC}uses math,crt;{$endif}