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

3
lib/stdlib.pas
View file

@ -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}