paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 14:20:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* pointer fixes

Browse Source
This commit is contained in:
peter 1999-09-08 18:55:49 +00:00
parent d39d35ff55
commit 8a290c3cfd
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/go32v2/dos.pp
View File

@ -956,7 +956,7 @@ begin
while assigned(hp^) do
begin
inc(envcount);
hp:=hp+4;
inc(hp);
end;
end;
@ -968,7 +968,7 @@ begin
envstr:='';
exit;
end;
envstr:=strpas(ppchar(envp+4*(index-1))^);
envstr:=strpas(ppchar(pointer(envp)+4*(index-1))^);
end;
@ -990,7 +990,7 @@ begin
getenv:=copy(hs,eqpos+1,255);
exit;
end;
hp:=hp+4;
inc(hp);
end;
end;
@ -1015,7 +1015,10 @@ End;
end.
{
$Log$
Revision 1.10 1999-08-13 21:23:15 peter
Revision 1.11 1999-09-08 18:55:49 peter
* pointer fixes
Revision 1.10 1999/08/13 21:23:15 peter
* fsearch checks first if the specified file exists and returns that
if it was found

7
rtl/go32v2/emu387.pp
View File

@ -134,7 +134,7 @@ begin
getenv:=copy(hs,eqpos+1,255);
exit;
end;
hp:=hp+4;
inc(hp);
end;
end;
@ -217,7 +217,10 @@ begin
end.
{
$Log$
Revision 1.4 1999-04-28 00:27:43 pierre
Revision 1.5 1999-09-08 18:55:50 peter
* pointer fixes
Revision 1.4 1999/04/28 00:27:43 pierre
* bug0230 fixed OVERFLOW and DIVZ cause FPU exception
Revision 1.3 1999/04/08 12:22:59 peter