aboutsummaryrefslogtreecommitdiffstats
path: root/Modis/SDK/StrUtils.pas
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-08-27 15:26:05 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-08-27 15:26:05 +0000
commit2c87ea1040f8fc02fcadbf920d02685198a0c216 (patch)
treefda8cb97a4ebcae55701f30dc2e356f5fd609738 /Modis/SDK/StrUtils.pas
parent50d173a828e75d2b8bc439c8b65bc8bb1127fe48 (diff)
downloadusdx-2c87ea1040f8fc02fcadbf920d02685198a0c216.tar.gz
usdx-2c87ea1040f8fc02fcadbf920d02685198a0c216.tar.xz
usdx-2c87ea1040f8fc02fcadbf920d02685198a0c216.zip
Artwork/Game/Modis/Tools changed to lower case
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1314 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Modis/SDK/StrUtils.pas')
-rw-r--r--Modis/SDK/StrUtils.pas73
1 files changed, 0 insertions, 73 deletions
diff --git a/Modis/SDK/StrUtils.pas b/Modis/SDK/StrUtils.pas
deleted file mode 100644
index a5735b8f..00000000
--- a/Modis/SDK/StrUtils.pas
+++ /dev/null
@@ -1,73 +0,0 @@
-unit StrUtils;
-
-interface
-
-{$I switches.inc}
-
-uses ModiSDK;
-
-//function StrToAChar(Str: String): AChar;
-function CreateStr(Str: PChar): PChar;
-procedure FreeStr(Str: PChar);
-
-implementation
-
-{function StrToAChar(Str: String): AChar;
-var
- L, I: Integer;
-begin
- L := Length(Str);
- For I := 0 to L-1 do
- AChar[I] := Str[I+1];
-
- For I := L to 254 do
- AChar[I] := #0;
-end; }
-
-function StrCopy(Dest, Source: PChar): PChar; assembler;
-asm
- PUSH EDI
- PUSH ESI
- MOV ESI,EAX
- MOV EDI,EDX
- MOV ECX,0FFFFFFFFH
- XOR AL,AL
- REPNE SCASB
- NOT ECX
- MOV EDI,ESI
- MOV ESI,EDX
- MOV EDX,ECX
- MOV EAX,EDI
- SHR ECX,2
- REP MOVSD
- MOV ECX,EDX
- AND ECX,3
- REP MOVSB
- POP ESI
- POP EDI
-end;
-
-function StrLen(Str: PChar): Cardinal; assembler;
-asm
- MOV EDX,EDI
- MOV EDI,EAX
- MOV ECX,0FFFFFFFFH
- XOR AL,AL
- REPNE SCASB
- MOV EAX,0FFFFFFFEH
- SUB EAX,ECX
- MOV EDI,EDX
-end;
-
-function CreateStr(Str: PChar): PChar;
-begin
- GetMem(Result, StrLen(Str) + 1);
- StrCopy(Result, Str);
-end;
-
-procedure FreeStr(Str: PChar);
-begin
- FreeMem(Str);
-end;
-
-end. \ No newline at end of file