paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:50:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

* DosCalls not using Objects any more

Browse Source
This commit is contained in:
Tomas Hajny 2003-01-05 16:37:22 +00:00
parent 00b3fa1faf
commit b6748277ed
3 changed files with 10 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/os2/Makefile
View File

@ -1206,7 +1206,7 @@ strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc \
$(PROCINC)/strings.inc $(PROCINC)/stringss.inc \
$(SYSTEMUNIT)$(PPUEXT)
ports$(PPUEXT) : ports.pas objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
doscalls$(PPUEXT) : doscalls.pas strings$(PPUEXT) objects$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
doscalls$(PPUEXT) : doscalls.pas strings$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
kbdcalls$(PPUEXT) : kbdcalls.pas $(SYSTEMUNIT)$(PPUEXT)
moucalls$(PPUEXT) : moucalls.pas $(SYSTEMUNIT)$(PPUEXT)
moncalls$(PPUEXT) : moncalls.pas strings$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
@ -1223,7 +1223,7 @@ dynlibs$(PPUEXT) : $(INC)/dynlibs.pp doscalls$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
dos$(PPUEXT) : dos.pas $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \
doscalls$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
crt$(PPUEXT) : crt.pas $(INC)/textrec.inc $(SYSTEMUNIT)$(PPUEXT)
objects$(PPUEXT) : $(INC)/objects.pp $(SYSTEMUNIT)$(PPUEXT)
objects$(PPUEXT) : $(INC)/objects.pp dos$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
printer$(PPUEXT) : printer.pas $(INC)/textrec.inc $(SYSTEMUNIT)$(PPUEXT)
sysutils$(PPUEXT) : sysutils.pp $(wildcard $(OBJPASDIR)/*.inc) \
objpas$(PPUEXT) dos$(PPUEXT) doscalls$(PPUEXT)

4
rtl/os2/Makefile.fpc
View File

@ -102,7 +102,7 @@ strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc \
ports$(PPUEXT) : ports.pas objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
doscalls$(PPUEXT) : doscalls.pas strings$(PPUEXT) objects$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
doscalls$(PPUEXT) : doscalls.pas strings$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
kbdcalls$(PPUEXT) : kbdcalls.pas $(SYSTEMUNIT)$(PPUEXT)
@ -139,7 +139,7 @@ dos$(PPUEXT) : dos.pas $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \
crt$(PPUEXT) : crt.pas $(INC)/textrec.inc $(SYSTEMUNIT)$(PPUEXT)
objects$(PPUEXT) : $(INC)/objects.pp $(SYSTEMUNIT)$(PPUEXT)
objects$(PPUEXT) : $(INC)/objects.pp dos$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
printer$(PPUEXT) : printer.pas $(INC)/textrec.inc $(SYSTEMUNIT)$(PPUEXT)

28
rtl/os2/doscalls.pas
View File

@ -17,32 +17,13 @@
unit DosCalls;
{****************************************************************************
Preprocessor definitions
****************************************************************************}
{$IFNDEF FVISION_PSTRING}
{$IFNDEF OWN_PSTRING}
{$DEFINE FVISION_PSTRING} {Get the PString type from Free Vision.}
{$ENDIF}
{$ENDIF}
{***************************************************************************}
interface
{***************************************************************************}
{$IFDEF OWN_PSTRING}
uses Strings;
type PString=^string;
{$ELSE}
{$IFDEF FVISION_PSTRING}
uses Strings,Objects;
{$ELSE}
{$ERROR PString source unknown.}
{$ENDIF}
{$ENDIF}
type PString = PShortString;
{$PACKRECORDS 1}
@ -93,7 +74,7 @@ const dtSuspended =1; {Thread is started suspended instead of
Flags = Flags. Either dtsuspended or dt_stackcommited.
StackSize = Size of the stack of the new thread.}
function DosCreateThread (var TID: longint; Address: TThreadEntry;
AParam: pointer; Flags, StackSize: longint): longint; cdecl;
AParam: pointer; Flags, StackSize: longint): longint; cdecl;
(* Overloaded version for compatibility. *)
function DosCreateThread (var TID: longint; Address: pointer;
@ -4553,7 +4534,10 @@ external 'DOSCALLS' index 582;
end.
{
$Log$
Revision 1.18 2002-11-14 21:16:22 hajny
Revision 1.19 2003-01-05 16:37:22 hajny
* DosCalls not using Objects any more
Revision 1.18 2002/11/14 21:16:22 hajny
* corruption from the last commit corrected
Revision 1.17 2002/11/04 21:22:12 hajny