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

* cardinal2pointer changes

Browse Source
This commit is contained in:
Tomas Hajny 2003-11-06 23:21:51 +00:00
parent e861eaa4c0
commit 315d8bf6a0
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/emx/system.pas
View File

@ -1216,7 +1216,7 @@ begin
case os_mode of case os_mode of
osDOS: osDOS:
begin begin
stackbottom:=cardinal(heap_brk); {In DOS mode, heap_brk is stackbottom:=pointer(heap_brk); {In DOS mode, heap_brk is
also the stack bottom.} also the stack bottom.}
ApplicationType := 1; (* Running under DOS. *) ApplicationType := 1; (* Running under DOS. *)
IsConsole := true; IsConsole := true;
@ -1225,7 +1225,7 @@ begin
osOS2: osOS2:
begin begin
DosGetInfoBlocks (@TIB, @PIB); DosGetInfoBlocks (@TIB, @PIB);
StackBottom := cardinal (TIB^.Stack); StackBottom := pointer (TIB^.Stack);
Environment := pointer (PIB^.Env); Environment := pointer (PIB^.Env);
ApplicationType := PIB^.ProcType; ApplicationType := PIB^.ProcType;
IsConsole := ApplicationType <> 3; IsConsole := ApplicationType <> 3;
@ -1266,7 +1266,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.19 2003-11-01 19:25:50 hajny Revision 1.20 2003-11-06 23:21:51 hajny
* cardinal2pointer changes
Revision 1.19 2003/11/01 19:25:50 hajny
* fix of previous mistyping * fix of previous mistyping
Revision 1.18 2003/10/25 22:45:37 hajny Revision 1.18 2003/10/25 22:45:37 hajny