Kaynağa Gözat

* more ugly workarounds until compiler gets updated

Károly Balogh 20 yıl önce
ebeveyn
işleme
8fc8899851
2 değiştirilmiş dosya ile 43 ekleme ve 2 silme
  1. 21 1
      rtl/morphos/doslib.pp
  2. 22 1
      rtl/morphos/exec.pp

+ 21 - 1
rtl/morphos/doslib.pp

@@ -53,6 +53,13 @@ function WriteStr(str: PChar): LongInt; Inline;
 procedure VWritef(format: PChar; argv: Pointer); Inline;
 
 
+{ * calls with tags workarounds (should be removed later)
+  *********************************************************************
+  * }
+
+function CreateNewProcTags(tags: array of dword): PProcess; Inline;
+
+
 
 implementation
 
@@ -115,13 +122,26 @@ end;
 
 
 
+{ * calls with tags workarounds (should be removed later)
+  *********************************************************************
+  * }
+
+function CreateNewProcTags(tags: array of DWord): PProcess; Inline;
+begin
+  CreateNewProcTags:=CreateNewProc(@tags);
+end;
+
+
 begin
   DosBase:=MOS_DOSBase;
 end.
 
 {
   $Log$
-  Revision 1.3  2004-08-09 12:57:07  karoly
+  Revision 1.4  2004-12-10 12:50:35  karoly
+    * more ugly workarounds until compiler gets updated
+
+  Revision 1.3  2004/08/09 12:57:07  karoly
     + added {$INLINE ON} to fix cycle
 
   Revision 1.2  2004/08/09 00:10:19  karoly

+ 22 - 1
rtl/morphos/exec.pp

@@ -27,15 +27,36 @@ var
 {$include execd.inc}
 {$include execf.inc}
 
+
+function NewGetTaskAttrs(Task    : PTask;
+                         Data    : Pointer;
+                         DataSize: Cardinal;
+                         TType   : Cardinal;
+                         Tags    : array of DWord): Cardinal; Inline;
+
 implementation
 
+
+function NewGetTaskAttrs(Task    : PTask;
+                         Data    : Pointer;
+                         DataSize: Cardinal;
+                         TType   : Cardinal;
+                         Tags    : array of DWord): Cardinal; Inline;
+begin
+  NewGetTaskAttrs:=NewGetTaskAttrsA(Task,Data,DataSize,TType,@Tags);
+end;
+
+
 begin
   ExecBase:=MOS_ExecBase;
 end.
 
 {
   $Log$
-  Revision 1.2  2004-08-03 15:35:23  karoly
+  Revision 1.3  2004-12-10 12:50:34  karoly
+    * more ugly workarounds until compiler gets updated
+
+  Revision 1.2  2004/08/03 15:35:23  karoly
     - removed conflicting calls
 
   Revision 1.1  2004/06/13 22:46:36  karoly