paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 18:39:30 +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=
# Script to convert the programs to LaTeX examples which can be included.
PP2TEX=pp2tex
PP2TEX=../pp2tex
# Script to collect all examples in 1 file.
MAKETEX=make1tex

1
docs/linuxex/ex37.pp
View File

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

2
docs/refex/Makefile
View File

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

5
docs/stringex/ex9.pp
View File

@ -7,6 +7,8 @@ Uses strings;
Const P1 : PCHAR = 'This is a pchar string.';
P2 : PCHAR = 'This is a PCHAR string.';
P3 : PCHAR = 'tHiS iS aLsO a PCHAR string';
p4 : pchar = 'AAbcd';
p5 : pchar = 'AEbcd';
Var L : Longint;
@ -16,5 +18,6 @@ begin
L:=1;
While StrLIComp (P2,P3,L)=0 do inc(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.