From 1e45053e54defdbd1bf5f20dbedf90d5c89e08be Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Mon, 22 Aug 2016 12:14:40 +0200 Subject: [PATCH] more changes for win --- dastworx/build.bat | 2 +- src/ce_common.pas | 4 ++-- src/ce_dastworx.pas | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/dastworx/build.bat b/dastworx/build.bat index 1df397b9..832a3181 100644 --- a/dastworx/build.bat +++ b/dastworx/build.bat @@ -19,6 +19,6 @@ dmd %dast% %dparse% %iz% ^ -of"..\bin\dastworx" ::cleanup -del ..\bin\dastworx.o +del ..\bin\dastworx.obj echo ...done \ No newline at end of file diff --git a/src/ce_common.pas b/src/ce_common.pas index fa4fa167..4c91ba17 100644 --- a/src/ce_common.pas +++ b/src/ce_common.pas @@ -311,7 +311,7 @@ class function TStringHash.hash(const key: string; maxBucketsPow2: longword): lo var i: integer; begin - {$PUSH}{$R-} + {$PUSH}{$R-} {$Q-} result := 2166136261; for i:= 1 to key.length do begin @@ -327,7 +327,7 @@ var ptr: PByte; i: integer; begin - {$PUSH}{$R-} + {$PUSH}{$R-} {$Q-} ptr := PByte(key); result := 2166136261; {$IFDEF CPU32} diff --git a/src/ce_dastworx.pas b/src/ce_dastworx.pas index 33f73fc8..2d138fc9 100644 --- a/src/ce_dastworx.pas +++ b/src/ce_dastworx.pas @@ -71,7 +71,7 @@ begin prc.Executable := str; prc.Parameters.Add(files); prc.Parameters.Add('-i'); - prc.Options := [poUsePipes, poStderrToOutPut{$IFDEF WINDOWS}, poNewConsole{$ENDIF}]; + prc.Options := [poUsePipes {$IFDEF WINDOWS}, poNewConsole{$ENDIF}]; prc.ShowWindow := swoHIDE; prc.Execute; prc.CloseInput;