paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 16:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

minor fixes

Browse Source
This commit is contained in:
michael 1998-09-08 12:42:46 +00:00
parent 07b52c871f
commit b3d8746132
4 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/go32ex/Makefile
View File

@ -15,7 +15,7 @@ PP=ppc386
PPOPTS= PPOPTS=
# Script to convert the programs to LaTeX examples which can be included. # Script to convert the programs to LaTeX examples which can be included.
PP2TEX=pp2tex PP2TEX=../pp2tex
# Script to collect all examples in 1 file. # Script to collect all examples in 1 file.
MAKETEX=make1tex MAKETEX=make1tex

1
docs/linuxex/ex37.pp
View File

@ -21,6 +21,7 @@ begin
close (f); close (f);
chmod ('test21a',octal (755)); chmod ('test21a',octal (755));
popen (f,'./test21a arg1 arg2','W'); popen (f,'./test21a arg1 arg2','W');
rewrite (f);
if linuxerror<>0 then if linuxerror<>0 then
writeln ('error from POpen : Linuxerror : ', Linuxerror); writeln ('error from POpen : Linuxerror : ', Linuxerror);
for i:=1 to 10 do for i:=1 to 10 do

2
docs/refex/Makefile
View File

@ -15,7 +15,7 @@ PP=ppc386
PPOPTS= PPOPTS=
# Script to convert the programs to LaTeX examples which can be included. # Script to convert the programs to LaTeX examples which can be included.
PP2TEX=pp2tex PP2TEX=../pp2tex
# Script to collect all examples in 1 file. # Script to collect all examples in 1 file.
MAKETEX=make1tex MAKETEX=make1tex

5
docs/stringex/ex9.pp
View File

@ -7,6 +7,8 @@ Uses strings;
Const P1 : PCHAR = 'This is a pchar string.'; Const P1 : PCHAR = 'This is a pchar string.';
P2 : PCHAR = 'This is a PCHAR string.'; P2 : PCHAR = 'This is a PCHAR string.';
P3 : PCHAR = 'tHiS iS aLsO a PCHAR string'; P3 : PCHAR = 'tHiS iS aLsO a PCHAR string';
p4 : pchar = 'AAbcd';
p5 : pchar = 'AEbcd';
Var L : Longint; Var L : Longint;
@ -16,5 +18,6 @@ begin
L:=1; L:=1;
While StrLIComp (P2,P3,L)=0 do inc(L); While StrLIComp (P2,P3,L)=0 do inc(L);
Dec(L); Dec(L);
Writeln (L,'characters, case insensitive.'); Writeln (L,' characters, case insensitive.');
if strIcomp(p4,p5)=0 then writeln ('This can''t happen!');
end. end.