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;