forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

more changes for win

This commit is contained in:
Basile Burg 2016-08-22 12:14:40 +02:00
parent cc9420b78d
commit 1e45053e54
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dastworx/build.bat
View File

@ -19,6 +19,6 @@ dmd %dast% %dparse% %iz% ^
-of"..\bin\dastworx" -of"..\bin\dastworx"
::cleanup ::cleanup
del ..\bin\dastworx.o del ..\bin\dastworx.obj
echo ...done echo ...done

4
src/ce_common.pas
View File

@ -311,7 +311,7 @@ class function TStringHash.hash(const key: string; maxBucketsPow2: longword): lo
var var
i: integer; i: integer;
begin begin
{$PUSH}{$R-} {$PUSH}{$R-} {$Q-}
result := 2166136261; result := 2166136261;
for i:= 1 to key.length do for i:= 1 to key.length do
begin begin
@ -327,7 +327,7 @@ var
ptr: PByte; ptr: PByte;
i: integer; i: integer;
begin begin
{$PUSH}{$R-} {$PUSH}{$R-} {$Q-}
ptr := PByte(key); ptr := PByte(key);
result := 2166136261; result := 2166136261;
{$IFDEF CPU32} {$IFDEF CPU32}

2
src/ce_dastworx.pas
View File

@ -71,7 +71,7 @@ begin
prc.Executable := str; prc.Executable := str;
prc.Parameters.Add(files); prc.Parameters.Add(files);
prc.Parameters.Add('-i'); prc.Parameters.Add('-i');
prc.Options := [poUsePipes, poStderrToOutPut{$IFDEF WINDOWS}, poNewConsole{$ENDIF}]; prc.Options := [poUsePipes {$IFDEF WINDOWS}, poNewConsole{$ENDIF}];
prc.ShowWindow := swoHIDE; prc.ShowWindow := swoHIDE;
prc.Execute; prc.Execute;
prc.CloseInput; prc.CloseInput;