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

stdlib: increase string length for copy and insert

Browse source
This commit is contained in:
slederer 2025-01-15 01:55:58 +01:00
parent f18176e3fa
commit 3c8525dcca
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/stdlib.inc
View file

@ -150,8 +150,8 @@ procedure strmovedown(var s:string;index,length,delta:integer); external;
procedure RuntimeError(var s:string); external; procedure RuntimeError(var s:string); external;
(* from stdlib *) (* from stdlib *)
function copy(s:string;index,count:integer):string; external; function copy(s:string[256];index,count:integer):string[256]; external;
procedure insert(ins: string; var dest: string; position:integer); external; procedure insert(ins:string[256]; var dest:string[256]; position:integer); external;
procedure delete(var s:string; from:integer; count:integer); external; procedure delete(var s:string; from:integer; count:integer); external;
function pos(substr:string;var s:string):integer; external; function pos(substr:string;var s:string):integer; external;
function pwroften(exp:integer):real; external; function pwroften(exp:integer):real; external;

4
lib/stdlib.pas
View file

@ -402,7 +402,7 @@ begin
GetCurTimestamp := GetTimestamp(now); GetCurTimestamp := GetTimestamp(now);
end; end;
function copy(s:string;index,count:integer):string; function copy(s:string[256];index,count:integer):string[256];
var len:integer; var len:integer;
begin begin
copy := ''; copy := '';
@ -416,7 +416,7 @@ begin
end; end;
end; end;
procedure insert(ins: string; var dest: string; position:integer); procedure insert(ins:string[256]; var dest:string[256]; position:integer);
var i,count,from,to_:integer; var i,count,from,to_:integer;
begin begin
if position < 1 then position := 1; if position < 1 then position := 1;