home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 07_08 / tricks / memoswap.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-25  |  957 b   |  36 lines
  1. (* ------------------------------------------------------ *)
  2. (*                  MEMOSWAP.PAS                          *)
  3. (*  Schnelles Vertauschen von Variablen und Speicher-     *)
  4. (*  bereichen ohne tempörare Variablen.                   *)
  5. (*         (c) 1990 Hulusi Zorba & TOOLBOX                *)
  6. (* ------------------------------------------------------ *)
  7. {$D-}
  8. {$M 1024,0,0}
  9.  
  10. UNIT MemoSwap;
  11.  
  12. INTERFACE
  13.  
  14.   PROCEDURE SwapMem(p1,p2 : Pointer; Count : Word);
  15.   PROCEDURE SwapByte(VAR b1,b2);
  16.   PROCEDURE SwapWord(VAR w1,w2);
  17.   PROCEDURE SwapReal(VAR w1,w2);
  18.  
  19. IMPLEMENTATION
  20.  
  21.   PROCEDURE SwapMem(p1,p2 : Pointer; Count : Word);
  22.   EXTERNAL;
  23.  
  24.   PROCEDURE SwapByte(VAR b1,b2); EXTERNAL;
  25.  
  26.   PROCEDURE SwapWord(VAR w1,w2); EXTERNAL;
  27.  
  28.   PROCEDURE SwapReal(VAR w1,w2); EXTERNAL;
  29.  
  30. {$L MemoSwap}
  31.  
  32. END.
  33. (* ------------------------------------------------------ *)
  34. (*                Ende von MEMOSWAP.PAS                   *)
  35.  
  36.